ftpbackup script

ioiioi

我在perlmonk上找大一个很有用的脚本，它用于备份远程主机的数据相信会很有用，只是我还读不懂，期望 对大家能有帮助。

<code>
#!/usr/bin/perl
#
# Entries in the file and host list should be seperated with
# a new row. spaces or other signs will make the script fail.
# You can use comments in the host and file lists if you put
# a '#' sign in the beginning of the line.
#
use Net::FTP;
use strict;

my $usage = "$0 filelist hostlist username password directoryn";
my $filelist = $ARGV[0] or die "$usage";
my $hostlist = $ARGV[1] or die "$usage";
my $username = $ARGV[2] or die "$usage";
my $password = $ARGV[3] or die "$usage";
my $home = $ARGV[4] or die "$usage";
my $debug = 5;
our $nr1 = 0;

open(FilesToGet, $filelist)
or die "can't open filelist $filelist: $!n";

open(HostsToGet, $hostlist)
or die "can't open hostlist $hostlist: $!n";

my @hostarr = <HostsToGet>;
chomp @hostarr;
my $hostarrnr = @hostarr;

my @filearr = <FilesToGet>;
chomp @filearr;
my $filearrnr = @filearr;

@hostarr = grep !/^#/, @hostarr;
@filearr = grep !/^#/, @filearr;

my $filearrnr = @filearr;
my $hostarrnr = @hostarr;

print "nHosts: $hostarrnrn";
print "Files: " . ($filearrnr * $hostarrnr) . "nn";

sub ftpbackup {
    if (my $pid = fork) {
        print STDERR "Connecting to $hostarr[$nr1]n" if $debug > 3;
        my $ftp = Net::FTP->new($hostarr[$nr1]);
        $ftp->login($username, $password);
        $ftp->cwd($home);
        for (my $nr2 = 0; $nr2 < $filearrnr; $nr2++) {
            print STDERR "Getting $filearr[$nr2]n" if $debug > 3;
            $ftp->get($filearr[$nr2],("$hostarr[$nr1]." . $filearr[$nr2]));
        }
        $ftp->quit;
        exit;
    }
}

for ($nr1 = 0; $nr1 < $hostarrnr; $nr1++) {
    ftpbackup();
}
<*code>

兰花仙子

ft，不知你在哪里找来的这个script，code繁杂不说，变量defined非常混乱，既有重复的my申明，又非常不明智在subroutine里使用外部变量，在大型program里，这样随时会引起fatal errors的。
至于script本身，并没有什么好说的，一个Net::FTP模块的应用罢了。

subs

是一个普通的 FTP 备份程序，虽然代码写得不很漂亮，但是没像你说的“繁杂”（还那么短的代码）。
“变量 defined 非常混乱”？用了 “use strict”，运行也没有什么错，只是变量的名字可能起得不太好。

“既有重复的my申明，又非常不明智在subroutine里使用外部变量”
哪有重复的 my 声明？在 subroutine 里就绝对不能使用“外部变量”（你指的是“在 subroutine 外的变量”？）？

还有，这只是一段完成简单任务的小脚本，为什么偏要用“大型program”来跟它相比？

“不知你在哪里找来的这个script”
请你看清楚别人的帖子，楼主在第一行就说明：“我在perlmonk上找……”。

[ 本帖最后由 subs 于 2005-11-8 21:39 编辑 ]

兰花仙子

原帖由 subs 于 2005-11-8 21:34 发表
是一个普通的 FTP 备份程序，虽然代码写得不很漂亮，但是没像你说的“繁杂”（还那么短的代码）。
“变量 defined 非常混乱”？用了 “use strict”，运行也没有什么错，只是变量的名字可能起得不太好。

“既 ...

ft，你加上use warnings运行这段script再来跟偶说吧！