Question

如何用perl循环读取多个文本文件，并进行数据处理

Answer 1

for my $f(@files) {
    open(my $H, $f);
    process($H);
    close $H;
}
sub process {
   my $H = shift;
   while (<$H>) {.......}
}