in reply to Checking for Duplicate Files during an FTP
my $ez = Net::FTP::Common->new(\%common_cfg, %netftp_config); ez->login or die "cant login: $@"; my %retval = $ez->dir; my @names_only = keys %retval; my @files_only = grep( $retval{$_}->{perm} !~ /^d/, keys %retval );
|
|---|