lwpcook(3)

🎀 NAME 🎀

Okay bestie, welcome to lwpcook — The libwww-perl cookbook. Yep, this is lwpcook(3) from the User Contributed Perl Documentation, and it’s basically a little recipe box for making libwww-perl do cute useful things. 💖

---

✨ DESCRIPTION ✨

This doc is packed with examples showing typical usage of the libwww-perl library. For the deep lore on any individual module, go read that module’s own documentation — it’s giving “required reading,” but in a good way. 📚

All the examples should be runnable programs. In most cases you can test the code sections by piping the program text directly to perl. No cap. 🫶

---

🌸 GET 🌸

Using this library to just fetch documents from the net is so easy. The LWP::Simple module gives you the get() function, which returns the document specified by its URL argument:

use LWP::Simple;
$doc = get 'http://search.cpan.org/dist/libwww-perl/';

Or, as a perl one-liner using the getprint() function:

perl -MLWP::Simple -e 'getprint "http://search.cpan.org/dist/libwww-perl/"'

Or — how about fetching the latest perl by running this command:

perl -MLWP::Simple -e '
  getstore "ftp://ftp.sunet.se/pub/lang/perl/CPAN/src/latest.tar.gz",
           "perl.tar.gz"'

You’ll probably first want to find a CPAN site closer to you by running something like the following command:

perl -MLWP::Simple -e 'getprint "http://www.cpan.org/SITES.html"'

Enough of this simple stuff, bestie! The LWP object oriented interface gives you more control over the request sent to the server. With this interface you have full control over headers sent and how you want to handle the response returned. 👑

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("$0/0.1 " . $ua->agent);
# $ua->agent("Mozilla/8.0") # pretend we are very capable browser

$req = HTTP::Request->new(
   GET => 'http://search.cpan.org/dist/libwww-perl/');
$req->header('Accept' => 'text/html');

# send request
$res = $ua->request($req);

# check the outcome
if ($res->is_success) {
   print $res->decoded_content;
}
else {
   print "Error: " . $res->status_line . "\n";
}

The lwp-request program (alias GET) that is distributed with the library can also be used to fetch documents from WWW servers. Slay. 💅

---

🦋 HEAD 🦋

If you just want to check if a document is present — like, is the URL valid? — try running code that looks like this:

use LWP::Simple;

if (head($url)) {
   # ok document exists
}

The head() function really returns a list of meta-information about the document. The first three values of the list returned are the document type, the size of the document, and the age of the document. 🎀

More control over the request, or access to all header values returned, requires that you use the object oriented interface described for GET above. Just s/GET/HEAD/g. Iconic.

---

🔥 POST 🔥

There is no simple procedural interface for posting data to a WWW server. You must use the object oriented interface for this. The most common POST operation is to access a WWW form application:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(
    POST => 'https://rt.cpan.org/Public/Dist/Display.html');
$req->content_type('application/x-www-form-urlencoded');
$req->content('Status=Active&Name=libwww-perl');

my $res = $ua->request($req);
print $res->as_string;

Lazy people use the HTTP::Request::Common module to set up a suitable POST request message — it handles all the escaping issues — and it has a suitable default for the content_type:

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = POST 'https://rt.cpan.org/Public/Dist/Display.html',
              [ Status => 'Active', Name => 'libwww-perl' ];

print $ua->request($req)->as_string;

The lwp-request program (alias POST) that is distributed with the library can also be used for posting data. 🫡

---

🌈 PROXIES 🌈

Some sites use proxies to go through fire wall machines, or just as cache in order to improve performance. Proxies can also be used for accessing resources through protocols not supported directly — or supported badly :-) — by the libwww-perl library.

You should initialize your proxy setting before you start sending requests:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->env_proxy; # initialize from environment variables
# or
$ua->proxy(ftp  => 'http://proxy.myorg.com');
$ua->proxy(wais => 'http://proxy.myorg.com');
$ua->no_proxy(qw(no se fi));

my $req = HTTP::Request->new(GET => 'wais://xxx.com/');
print $ua->request($req)->as_string;

The LWP::Simple interface will call env_proxy() for you automatically. Applications that use the $ua->env_proxy() method will normally not use the $ua->proxy() and $ua->no_proxy() methods. 💡

Some proxies also require that you send it a username/password in order to let requests through. You should be able to add the required header, with something like this:

use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] => 'http://username:password@proxy.myorg.com');

$req = HTTP::Request->new('GET',"http://www.perl.com");

$res = $ua->request($req);
print $res->decoded_content if $res->is_success;

Replace proxy.myorg.com, username, and password with something suitable for your site. 🍓

---

🔐 ACCESS TO PROTECTED DOCUMENTS 🔐

Documents protected by basic authorization can easily be accessed like this:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://www.linpro.no/secret/');
$req->authorization_basic('aas', 'mypassword');
print $ua->request($req)->as_string;

The other alternative is to provide a subclass of LWP::UserAgent that overrides the get_basic_credentials() method. Study the lwp-request program for an example of this. 🕵️‍♀️

---

🍪 COOKIES 🍪

Some sites like to play games with cookies. By default LWP ignores cookies provided by the servers it visits. LWP will collect cookies and respond to cookie requests if you set up a cookie jar. LWP doesn’t provide a cookie jar itself, but if you install HTTP::CookieJar::LWP, it can be used like this:

use LWP::UserAgent;
use HTTP::CookieJar::LWP;

$ua = LWP::UserAgent->new(
    cookie_jar => HTTP::CookieJar::LWP->new,
);

# and then send requests just as you used to do
$res = $ua->request(HTTP::Request->new(GET => "http://no.yahoo.com/"));
print $res->status_line, "\n";

Cookies? Handled. Vibes? Immaculate. 🎀

---

🧚 HTTPS 🧚

URLs with https scheme are accessed in exactly the same way as with http scheme, provided that an SSL interface module for LWP has been properly installed — see the README.SSL file found in the libwww-perl distribution for more details. If no SSL interface is installed for LWP to use, then you will get the error 501 Protocol scheme 'https' is not supported when accessing such URLs. 😭

Here’s an example of fetching and printing a WWW page using SSL:

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.helsinki.fi/');
my $res = $ua->request($req);
if ($res->is_success) {
    print $res->as_string;
}
else {
    print "Failed: ", $res->status_line, "\n";
}

Secure, slay, secure. 🔒✨

---

🪞 MIRRORING 🪞

If you want to mirror documents from a WWW server, then try to run code similar to this at regular intervals:

use LWP::Simple;

%mirrors = (
   'http://www.sn.no/'                       => 'sn.html',
   'http://www.perl.com/'                    => 'perl.html',
   'http://search.cpan.org/distlibwww-perl/' => 'lwp.html',
   'gopher://gopher.sn.no/'                  => 'gopher.html',
);

while (($url, $localfile) = each(%mirrors)) {
   mirror($url, $localfile);
}

Or, as a perl one-liner:

perl -MLWP::Simple -e 'mirror("http://www.perl.com/", "perl.html")';

The document will not be transferred unless it has been updated. Efficiency queen behavior. 👑

---

🐘 LARGE DOCUMENTS 🐘

If the document you want to fetch is too large to be kept in memory, then you have two alternatives. You can instruct the library to write the document content to a file — the second $ua->request() argument is a file name:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET =>
    'http://www.cpan.org/CPAN/authors/id/O/OA/OALDERS/libwww-perl-6.26.tar.gz');
$res = $ua->request($req, "libwww-perl.tar.gz");
if ($res->is_success) {
   print "ok\n";
}
else {
   print $res->status_line, "\n";
}

Or you can process the document as it arrives — the second $ua->request() argument is a code reference:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$URL = 'ftp://ftp.isc.org/pub/rfc/rfc-index.txt';

my $expected_length;
my $bytes_received = 0;
my $res =
   $ua->request(HTTP::Request->new(GET => $URL),
             sub {
                 my($chunk, $res) = @_;
                 $bytes_received += length($chunk);
                 unless (defined $expected_length) {
                    $expected_length = $res->content_length || 0;
                 }
                 if ($expected_length) {
                      printf STDERR "%d%% - ",
                                100 * $bytes_received / $expected_length;
                 }
                 print STDERR "$bytes_received bytes received\n";

                 # XXX Should really do something with the chunk itself
                 # print $chunk;
             });
 print $res->status_line, "\n";

Big files? We stream. We process. We do not panic. 💅

---

📜 COPYRIGHT 📜

Copyright 1996-2001, Gisle Aas

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

---

mwah — page source/version: perl v5.42.0 · date: 2026-05-18 🌈💖