Question

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

比如有俩个文件夹，A B,俩文件夹里都有相同的文件1.txt。我想读取里面的内容，并测出内容的长度。
一共有100多个文件夹。。。
谢谢大侠。

Answer 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=<IN>;
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;

Answer 2

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

追问

看来你不太了解生物信息学，里面有很多东西说起来太复杂。
我想知道怎么实现：有俩个文件夹，A B,俩文件夹里都有相同的文件1.txt。我想读取里面的内容，并测出每个文件里内容的长度，输入到2.txt文件里。
剩下我自己想办法。

追答

处理不同文件夹下相同的文件？？
有俩个文件夹，A B？？
需要比较的文件夹名称之间存在某种规律 还是指需要两两比较找出名称相同的文件进行处理？

并测出每个文件里内容的长度？？
是指输出每一行的长度
文件内容形如：
AAAACCCCGGGGTTTT
AAAACCCCGGGG

输出形如：
AAAACCCCGGGGTTTT 16
AAAACCCCGGGG 12

=========================
A、B文件夹中都有相同的文件1.txt（内容也相同，还是仅仅名称相同？？）
如果只是名称相同 都输出到2.txt 采用何种方式？
建议你截取部分数据 再给出希望达成的目标示例。

Answer 3

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

追问

我还是想用peri 编个脚本，还请大仙指点指点。

追答

你是不是想比较A，B两个文件夹中的内容？
另外是perl，不是peri

追问

对，是那么回事。
呵呵，见笑了。perl语言

追答

还请您详述要求。。

追问

我想读取里面的内容，并测出内容的长度。
文件里都是基因序列，我要让他们俩俩做局域比对，输出最佳匹配区域序列。要是能输出次强匹配区域，次次强匹配区域更好。
这个问题困扰我挺长时间，不知道我的表达是否清楚，真非常非常感谢你。

追答

不知道你要内容长度干什么，序列比对你是要自己写程序比对还是用外部程序，另外bioperl模块里面dpAlign可以做序列比对。