Mega Code Archive

 

Categories / Perl / Network

 

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