Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: ftplist.pl

by a (Friar)
on Feb 01, 2001 at 10:50 UTC ( [id://55660]=note: print w/replies, xml ) Need Help??


in reply to ftplist.pl

Um, I'm hoping your cutnpaste lost something, but there's trouble between the open(FilesToGet, ' and the {, as it might be:
open(FilesToGet, "FilesToGet.txt") or die "can't open FilesToGet.txt: $!"; while (<FilesToGet>) {
and then you can skip
$TheFile = $_; chomp($TheFile); $INFILE = $TheFile;
and just do:
chomp; $ftp->get($_);
but to make life even easier:
#!/usr/bin/perl -w use Net::FTP; use strict; my $hostname = 'user defined'; my $username = 'user defined'; my $password = 'user defined'; my $home = 'user defined'; my $debug = 5; open(FilesToGet, "FilesToGet.txt") or die "can't open FilesToGet.txt: $!"; my $ftp = Net::FTP->new($hostname); $ftp->login($username, $password); $ftp->cwd($home); while (<FilesToGet>) { print STDERR "Getting $_" if $debug > 3; chomp; $ftp->get($_); } $ftp->quit;

a

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://55660]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2024-03-29 06:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found