Jasmine
Administrator
Feb 11, 2000, 10:51 PM
Post #2 of 2
(2013 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).]
|
MAIN
SEARCH
WHO'S 
LOG 