Question

我正在尝试通过Perl脚本将文件发送到远程主机。为此，我想列出本地目录，然后选择要上传的文件，因为我使用以下命令迭代文件列表：

my @files = '!ls'; does not work
my @files = 'lls'; does not work either

然后我想做：

foreach my $file (@files) {
next if -d $file;
next unless $file =~ /^gateway_data/;
$ftp->put($file) or warn "Failed '$file': $! ($^E)";
}

除了上面两个命令之外，还有另一个命令来创建本地目录中的文件列表吗？将不胜感激。

Answer 1

opendir(my $DIR, './') or die $!;
my @files = readdir($DIR);
foreach my $file (@files) {
    next if -d $file;
    next unless $file =~ /^gateway_data/;
    $ftp->put($file) or warn "Failed '$file': $! ($^E)";
}

这应该有用。

如何在ftp上列出本地目录的内容？

1 个答案: