perl - 使用 perl 搜索模式

Question

Perl 新手。

在 FTP 服务器上查找搜索模式时需要帮助

下面的例子

# more file1
1 
2
3

目录

# ls
1
2
3
4

如何使用 perl 搜索文件中的模式并匹配目录中的文件。并显示如下

1
2 
3

感谢你的帮助

Answer 1

my $dir = "/path/to/some/dir";
my $filename = "some_filename";
my @files_to_find = ();

open my $file, '<', $filename or die $!;
while( my $line = <$file> ) {
    chomp $line;
    push @files_to_find, $line;
}
close $file;

for my $f (@files_to_find) {
    print "$f\n" if -e "$dir/$f";
}