小编use*_*181的帖子

1. 我要匹配的模式是 *_name.txt

2. 我要搜索的目录是 $dir（$dir 有很多子目录，这就是为什么我需要File::Find而不是glob

3. 我不会使用Find::Find::Rule（我知道它有简单的代码，但是当我运行时，它有不存在的文件错误。我不想向我的 perl 库添加其他文件）

我到目前为止的语法是

use File::Find;
find(\&store_foundfiles,$dir);
sub store_foundfiles {
  my @string = *_name.txt;
  #I DONT KNOW FROM HERE ON"
  #I WANT TO IMPLEMENT THE FOLLOWING...
  #FOREACH MATCH ON @string, STORE THE MATCH TO ARRAY '@found'
}