Поиск шаблона с использованием 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"; 
}