[已解决]如何将名字相近的文件合并？，谢谢~

baiguihuajl

我有很多mzML文件，要将相近名字的文件合并：
例如文件名如下：
TCGA_good_117C_BI_f01.mzML
TCGA_good_117C_BI_f02.mzML
TCGA_good_117C_BI_f03.mzML
TCGA_good_117C_BI_fA.mzML
TCGA_uaigi_117C_BI_f01.mzML
TCGA_uaigi_117C_BI_f02.mzML
TCGA_uaigi_117C_BI_f03.mzML
TCGA_uaigi_117C_BI_fA.mzML
......
我想将
TCGA_good_117C_BI_f01.mzML
TCGA_good_117C_BI_f02.mzML
TCGA_good_117C_BI_f03.mzML
TCGA_good_117C_BI_fA.mzML
合并为
TCGA_good_117C.mzML
将
TCGA_uaigi_117C_BI_f01.mzML
TCGA_uaigi_117C_BI_f02.mzML
TCGA_uaigi_117C_BI_f03.mzML
TCGA_uaigi_117C_BI_fA.mzML
合并为
TCGA_uaigi_117C.mzML
程序应该怎么写。
我先ls>1.txt，得到所有文件的名字，再写了一个程序

1. #user/bin/perl
   
2. open(F1,"1.txt");
   
3. while(<F1>){
   
4.         chomp;
   
5.         $name=~/^TCGA(.*)117C$/;
   
6.         `cat $_.mzML >> name.mzML`;
   
7. }
   
8. close(F1);

复制代码

为什么得不到结果，求指教，谢谢~~~

不仅仅是符号

$name=~/^TCGA(.*)117C$/;    #这个是匹配117C结尾的文件名，所以没结果
然后还需要对$1进行一个判断，最后system("...");把文件合并

stanley_tam

不知道这样行不行

1. #user/bin/perl
   
2. open(F1,"1.txt");
   
3. while(<F1>){
   
4.         chomp;
   
5.         ($name) = $_ =~ /^(TCGA.*117C)/ ;
   
6.         `cat $_ >> $name.mzML`;
   
7. }
   
8. close(F1);

复制代码

baiguihuajl

1. #user/bin/perl
   
2. open(F1,"1.txt");
   
3. while(<F1>){
   
4.         chomp;
   
5.         @a=split('_',$_);
   
6.         $name=$a[1];
   
7.         `cat $_ >> $name.mzML`;        
   
8. }
   
9. close(F1);
   

复制代码

这样就可以了，谢谢大家哈~~~~