On Wed, Jun 26, 2002 at 06:39:38AM -0500, Clay Fandre wrote:
> Why do all this for a simple ftp script? KISS.
Possibly for ease of error handling or to leverage an existing Perl
and/or expect codebase -- example (code shown below was pulled almost
directly from the 'perldoc LWP' documentation):
#!/usr/bin/perl
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$req = HTTP::Request->new(GET =>
'ftp://me:passwd@some.where.com/file.txt');
$res = $ua->request($req);
if($res->is_success) {
print $res->content;
} else {
print "Bad luck this time.\n";
}
--
Joel Schneider Jazz - jazz88fm.com
joel at joelschneider.net ISEE - www.i-see.org