perl 在 ftp->ls 中使用通配符引用

Question

远程目录mydir的内容：

blah.myname.1.txt
blah.myname.somethingelse.txt
blah.myname.randomcharacters.txt
blah.notmyname.1.txt
blah.notmyname.2.txt
...

在 perl 中，我想用 myname 下载所有这些东西

真的在适当的引用中失败了。请帮忙。

失败的代码

my @files;
@files = $ftp->ls( '*.myname.*.txt' );  # finds nothing
@files = $ftp->ls( '.*.myname.*.txt' );  # finds nothing

等等。

如何放置通配符以便它们被ls 解释，而不是被perl 解释？这里出了什么问题？

Answer 1

我假设您使用的是Net::FTP 包。那么这部分文档很有趣：

ls ( [ DIR ] )

获取 DIR 的目录列表，或当前目录。

在数组上下文中，返回从服务器返回的行列表。在标量上下文中，返回对列表的引用。

这意味着，如果您在不带参数的情况下调用此方法，您会从当前目录获得所有文件列表，否则从指定目录获得。

没有任何关于任何模式的消息，这并不奇怪：FTP 只是一个传输文件的协议，而这个模块只是该协议的包装器。

您可以使用grep 轻松进行过滤：

my @interesting = grep /pattern/, $ftp->ls();

要选择包含字符序列myname 的所有文件，请使用grep /myname/, LIST。
要选择包含字符序列.myname. 的所有文件，请使用grep /\.myname\./, LIST。
要选择以字符序列.txt 结尾的所有文件，请使用grep /\.txt$/, LIST。

LIST 是 $ftp->ls 或其他 grep，因此您可以轻松链接多个过滤步骤。

当然，Perl 正则表达式比这更强大，我们可以在单个 /\.myname\.[^.]+\.txt$/ 或其他东西中完成所有过滤，具体取决于您的确切要求。如果您迫切需要一种通配符语法，可以使用一些工具将 glob 模式转换为正则表达式对象，例如 Text::Glob，甚至可以直接进行 glob 匹配：

use Text::Glob qw(match_glob);

my @interesting = match_glob ".*.myname.*.txt", $ftp->ls;

但是，至少可以这么说，这是不优雅的，因为正则表达式远更强大，绝对值得学习。