Question

我写了一些相当简单的东西，通过perl中的ftp来同步我的文件

sub ftp_update {
    print "Checkin\' $_[0] \n";
    $ftp->cwd($_[0]);
    chdir $_[0];
    my @ls = $ftp->ls;

    foreach (@ls) {         
        ftp_update($_) if $ftp->isdir($_);

        next unless (! -e $_);

        if ($ftp->isfile($_)) {
            print "Gettin\' $_\n";
            $ftp->get($_);
        }               
    }
    $ftp->cdup;
    chdir "..";
}

它可以正常工作，但与FileZilla相比，它的速度非常慢。即使一切都是最新的，即没有实际的文件传输，它仍然比FileZilla慢得多。

有什么建议吗？

Answer 1

mirror()的{{1}}函数是否适用于LWP::Simple架构？该示例同时显示了"ftp:"和"http:"，因此它也可能适用于FTP。

但我很好奇 - 如果你已经有另一个程序可以满足你的需求，那么你正在寻找什么呢？

使用perl Net :: FTP的递归ftp同步非常慢

1 个答案: