Mega Code Archive

 

Categories / Perl / Network

 

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);