#!/usr/bin/perl -w
use Net::FTP;
my $hostname = '';
my $login = "";
my $passwd = "";
$ftp=ftp_login($hostname,$login,$passwd);
@a = $ftp->ls();
foreach $in (@a){
print $in, "\n";
}
#ftp_login($hostname,$login,$password);
sub ftp_login {
my ($hostname,$login,$password) = @_;
my $ftp = Net::FTP->new(Host=>$hostname) or die "Cannot connect to the server $hostname: $@";
$ftp ->login($login,$password) or die "Cannot login to server $hostname, whith $login, $password: $@ ";
print "FTP $login login to $hostname whith $password OK \n";
return $ftp;
}
Именно так. vsftpd например не показывает ".*" без "-a" опции. Я как то из-за одного клиента ручками сырки vsftpd правил - странно, что стандартной опции у vsftpd нет :-/