use strict;
use Net::FTP;

my $remote_host     = "*****************";
my $remote_user     = "*******";
my $remote_password = "*******";
my $remote_dir      = "/tmp";

my $ftp = Net::FTP->new($remote_host) or die "error initiating ftp: $!
+\n";

$ftp->login($remote_user,$remote_password) or die "couldn't login: $!\
+n";

# force binary transmission of files, generally a good idea
$ftp->binary();

my @files = $ftp->ls($remote_dir);
print join "\n",@files;

print "\n","="x80,"\n";

# now change current working directory and do ls there
$ftp->cwd($remote_dir);
my @files = $ftp->ls();
print join "\n",@files;
[download]

I think what the person is asking is how to do a listing, but ignore all of the directory entries in the directory he is reading from.

Frankly, I don't think this could be done with Net::FTP->ls(), AFAIK, because it doesn't give you any bits to determine between dirs and files, and you certainly can't do a grep ! -d  $_, readdir REMOTE_DIR with the FTP module.

Perhaps the easiest way would be to use the Net::FTP->dir command. This will give you an ls -l UNIX long directory list with file permissions and stuff. Then you can probably do a  grep ! /^d/, Net::FTP->dir() instead. Of course, then you have to extract the filename from each line from amidst the other info, but that's not hard.

--

flounder

You might try using ftp->size(). On servers that support this command, it will return a size in bytes for the file listed (and a 2NN status code), or return an error code (550 Not a plain file). This works on my UNIX/Linux servers.