[已解決]如何將名字相近的文件合并？，謝謝~

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
程序應(yīng)該怎么寫。
我先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);

復(fù)制代碼

為什么得不到結(jié)果，求指教，謝謝~~~

不僅僅是符號

$name=~/^TCGA(.*)117C$/;    #這個是匹配117C結(jié)尾的文件名，所以沒結(jié)果
然后還需要對$1進(jìn)行一個判斷，最后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);

復(fù)制代碼

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);
   

復(fù)制代碼

這樣就可以了，謝謝大家哈~~~~