寻求帮助呢！根据一个文件每行的部分内容提取另一个文件的序列！！！！

新建文件夹.rar (35.3 KB)

实现功能：
file1中fips1PMG_6 若和file2中ACS_ake_6 中的数字相同，则提取序列并保存。file2中剩下未匹配的序列也保存在另一个文件中。
即两个文件_后面的数字若相同，序列保存在一个文件，其余序列保存在另一个文件！

谢谢！
perl应该可以实现，但由于刚刚接触perl，思路不清晰，寻求帮助！

去看看正则吧。

今天看了一天   
#!/usr/bin/perl -w
# Program name: Cutseq.pl
#===============================================================================================================

open(OUTPUT,">test") or die "can not output";
$/= ">" ;

    open(INPUT1,"file2") or die "can not find the file";
              while(<INPUT1>) {
                                                       our($title,$seqence)= split(/\n/,$_,2);
                                                                    $title=~/_(\d)+/g;
                                                                        $match1=$&;
                                                                          
                                                                          $hash{$match1}=$sequence;}

        open(INPUT2,"file1") or die "can not find the file";

                     
                           while(<INPUT2>) { our($name1,$name2,$name3)=split(/(\s)+/,$_)
                                                 $name3=~/_(\d)+/g;
                                                     $match2=$&;

                                        if ($match2=$match1) {print OUTPUT "$match1\n$sequence";
                                        }                         
                                                                 
                                                                 }

               



                                            }


只能想到这   可是run不出来  也觉得有些不对，但不知道怎么改

你说的序列具体是指什么。。。。。。我就把那些字母给保存到文件了