使用PERL脚本从ftp中删除文件的时间超过给定时间

Question

我尝试从我的ftp服务器中删除给定的文件（例如，如果它早于给定的值，例如2分钟）

我有这样的自动取款机。 该脚本可以正常运行，但是应该检查文件的部分不起作用。

到目前为止我的代码：

my $max_time = 120;

if (!&ftp'get($lockkudatei, $Path.$tmpfile, 0)) {
    &timedprint("No excisting Lock file");
} else {
    my $file_ku_mdtm = $ftp->mdtm($lockkudatei);

    if( time - $file_ku_mdtm >= $max_time ) {
        if(&ftp'delete("$lockkudatei")) {
            &timedprint("Lock file deleted");
        } else {
            &timedprint("Lock file could not be deleted");
            &dodie("Lock file could not be deleted");
        }
    } else {
        &dodie( "No excisting Lock file\n");
    }
}

多迪：

 sub dodie {
     ($msg) = @_;
     #$t=localtime(time());
     #print STDOUT "\nt: $msg";
     print STDOUT "\nERROR:$msg";
     die( $msg );
 }

时间表：

sub timedprint {
     ($msg) = @_;
     #$t=localtime(time());
     #print STDOUT "\nt: $msg";
     print STDOUT "\n$msg";
 }

提前致谢！

Answer 1

使用Net :: FTP模块重建脚本，并彻底清除旧代码。 现在它可以与模块中的mdtm（）一起使用。

工作正常：

my $file_ku_mdtm = $ftp->mdtm($lockkudatei);
if( time - $file_ku_mdtm >= $max_time ) {}