
Jasmine
Administrator
Feb 11, 2000, 10:51 PM
Post #2 of 2
(5038 views)
|
You can try LWP <BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR> #!/usr/bin/perl -w # # Perl script to download a Web page. # use LWP::UserAgent; # The agent helps you get web documents. $webagent = new LWP::UserAgent; print "Content-type: text/html\n\n"; $url = 'http://www.whatever.com/file_to_display.txt'; $request = new HTTP::Request(GET => $url); # Get web document. $response = $webagent->request( $request ); if ( $response->is_success ) { print "header information\n"; print $response->content, "\n"; print "footer information\n"; } </pre><HR></BLOCKQUOTE> [This message has been edited by Jasmine (edited 02-12-2000).]
|