为多个目录中的文件运行 perl 脚本

Question

I have multiple files (of the same name) in different subdirectories. I would like to run my perl script on all these files at once instead of have to do it individually.

For example I have the following file paths:

/Users/.../Documents/Results/DataSet1/Parameter1/Parameter2/data.dat
/Users/.../Documents/Results/DataSet2/Parameter1/Parameter2/data.dat
/Users/.../Documents/Results/DataSet3/Parameter1/Parameter2/data.dat
/Users/.../Documents/Results/DataSet4/Parameter1/Parameter2/data.dat
...

I want run my perl script on every data.dat file from the Results directory. Side note: I am using a Mac and would like to run the script from terminal. Right now to do each file individually I use perl myscript.pl *.dat for every folder.

Answer 1

一种解决方案是让 bash 为您完成工作。

for i in $(find /Users/.../Documents/Results -name data.dat); do (cd $(dirname $i); perl myscript.pl data.dat); done

Answer 2

You could use a combination of threads and glob with perl, like this:

use threads;

my $basepath = '/Users/.../Documents/Results';
my @files = glob qq("${basepath}/DataSet?/Parameter?/Parameter?/data.dat");

threads->create(\&processdata, $_) for @files;

sub processdata {
    my $file = shift;
    # do your processing here
}

This starts a distinct thread for each data.dat file found by the glob.