Perl搜索目录并将所有结果复制到主页

Question

我希望使用Perl自动化一个简单的过程，但我不太熟悉正则表达式等等......

我们说我们在某个目录中;我想搜索该目录中文件名包含输入＆＃34; string＆＃34;的所有文件，然后将所有结果复制到主目录。

如何在Perl中完成？

Answer 1

glob和File::Copy将帮助您入门：

use warnings;
use strict;
use File::Copy qw(cp);

my $str = 'foo';
for (glob "*$str*") {
    cp($_, $ENV{HOME});
}