用perl 怎么处理不同文件夹下相同的文件？

2025-04-24 08:52:39

推荐回答（3个）

回答1：

已测试通过。
#!/use/bin/perl -w
use strict;
use File::Find;

sub wanted{
my $file_name="test.txt"; #要处理的文件名test.txt
open IN,$File::Find::name;
if($_ eq $file_name){
my @row=;
my $rows=scalar(@row);
print "$File::Find::name has $rows rows.\n";
print @row; #这个是文件的内容，不用输出的话，就删除。
}
close IN;
}

my @dir=qw(E:/perl/新建文件夹 C:/新建文件夹); #要找的父目录，为一个或多个,目录用正斜杠'/'
find \&wanted,@dir;

回答2：

生物信息学？
需求描述得太专业了不太清楚你的需求
最好给出示例数据和要达成的目标

回答3：

linux系统下面有个命令wc，widows下面得自己下载或者编译一个了，用perl的话，速度慢。