Using getstore() to Print an Invalid Page : HTTP « Network « Perl






  1. Perl
  2. Network
  3. HTTP

Using getstore() to Print an Invalid Page

    


#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $status = getstore("http://www.demo.org/nofile.aspx","/tmp/demo");

unless (is_success($status)) {
        die "Couldn't retrieve page: ${$status}";
}
open (PAGE, "/tmp/demo") 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 is_success() with getstore()
5.Setting a User Agent and Retrieving a Web Page
6.Get a web page and save it to a local file