gt;
> Chris
>
>
>
>
> -----Original Message-
> From: Kelvin Wu [mailto:[EMAIL PROTECTED]
> Sent: Monday, August 09, 2004 10:44 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Net::FTP Help !
>
> my @raw_list = $ftp->dir($remote_dir);
> my @f
d what is this doing ..
Thanks
Chris
-Original Message-
From: Kelvin Wu [mailto:[EMAIL PROTECTED]
Sent: Monday, August 09, 2004 10:44 PM
To: [EMAIL PROTECTED]
Subject: Re: Net::FTP Help !
my @raw_list = $ftp->dir($remote_dir);
my @files;
for (@raw_list) {
# Skip directory
my @raw_list = $ftp->dir($remote_dir);
my @files;
for (@raw_list) {
# Skip directory and symblink
next if $_ =~ /^d|^l/;
# Store file name
if ($_ =~ /(.+)(\d\d:\d\d) (.+)/) {
next if ($2 eq '.' or $2 eq '..');
push @files, $2;
}
}
On Mon, 9 Aug 2004 19:38:19 -0600, Wiggins d An
>
> Hi Guys and Gals ,
>
> I'm new to perl ... Here is my problem ..
>
> I'm connecting fine to the remote computer and logging in fine .. what I
> want to do is a get all files from the remote directory . Here is is a
> snippet of the code
>
> $ftp->cwd($remote_dir)
> or die "cannot cha
