Re: First release of LWP5

Gisle Aas (aas@oslonett.no)
Mon, 17 Jul 1995 14:20:20 +0200 

Here are some examples of LWP usage.  More examples can be found by looking at 
the "get", "mirror" or "test/*" scripts found in the lwp-0.01 package.


The simplest way to use the library is like this:

  $ perl -e 'use LWP::Simple; getprint("http://www.perl.com/")'


Real usage of the library will be more like this:

  #!/usr/local/perl

  $DEBUG = 1;

  require LWP::UserAgent;
  require URI::URL;

  $ua  = new LWP::UserAgent;
  $url = new URI::URL "http://www.perl.com/";

  $request = new LWP::Request('GET', $url);
  $request->header('From', 'aas@oslonett.no');
  $request->header('User-Agent', 'this script/0.01');

  print $request->asString if $DEBUG;

  $response = $ua->request($request);

  if ($response->isSuccess) {
      $document = $response->content;
  } else {
      die "Bad things happen";
  }

--
Gisle Aas                               <aas@oslonett.no>
Oslonett AS                             http://www.oslonett.no/home/aas/