Using is_success() with getstore() : HTTP « Network « Perl






  1. Perl
  2. Network
  3. HTTP

Using is_success() with getstore()

    


#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $status = getstore("http://www.demo.org/","/tmp/demo");
unless (is_success($status)) {
    die "Couldn't retrieve page: $status";
}
open (PAGE, "/tmp/braingia") or die "$!";
while (<PAGE>) {
    print();
}
close(PAGE);








Related examples in the same category

1.Using HTTP::Request to post request and save response to a file
2.Get a web page
3.Retrieving a Web Page with get()
4.Using getstore() to Print an Invalid Page
5.Setting a User Agent and Retrieving a Web Page
6.Get a web page and save it to a local file