为什么我使用Net :: FTP在这个Perl脚本中出现“找不到文件”错误？

Question

有人可以告诉我这段代码有什么问题吗？

据我所知@zipFiles = grep /zip/, $ftp->dir;正在创建一个概率，但如果我将删除此部分，那么我将无法使用正则表达式部分。

错误：＆lt;“Time，file_created_date，File_size，File_name”＆gt;找不到文件。

use Net::FTP;

#use File::Copy;

$Login   = "<redacted>";
$Pwd     = "<redacted>";
$ftpHost = "<redacted>";

$ftpFolder = "/daj/dhakj/ahdakl/abc_201206_def_05";
$ftp = Net::FTP->new( $ftpHost, Timeout => 100 );

if ($ftp) {
    print $ftp->message;
}

$ftp->login( $Login, $Pwd );
print $ftp->message;
$ftp->cwd($ftpFolder);
@all_dir = $ftp->ls();

#print @all_dir;

foreach $ls_dir (@all_dir) {
    if ( $ls_dir !~ /exe|txt|zip/ ) {
        $latest_dir = $ls_dir;
    }
}

print "$latest_dir\n";
$mcl_dir = '/daj/dhakj/ahdakl/abc_201206_def_05' . $latest_dir;
$ftp->cwd($mcl_dir) or die "not able to change the dir\n\n";
@zipFiles = grep /zip/, $ftp->dir;

foreach my $myfile (@zipFiles) {
    if ( $myfile !~ /a|b|c|d|/g ) {
        $ftp->get("$myfile");
        print $ftp->message;
    }
}