求一个正则表达式，用来选择要的文件

54red

015_S21_vcf_HSP_else_mutation1.txt
015_S21_vcf_HSP_else_mutation2.txt
015_S21_vcf_HSP_mutation1.txt
015_S21_vcf_HSP_mutation2.txt
others.txt

我有这几个个文件：（文件名不打算改了）
打算分开操作，不过我的正则估计不大对，求大家帮帮忙！.*(?!else)_mutation2.* 不能选择不带else的mutation2
现在我用的：
if($file=~m/.*else_mutation2\.txt*/)
    {
        print OUT "疾病不相关新突变\n";
       
        }
    if($file=~m/.*(?!else)_mutation2.*/)
        {
        print OUT "疾病相关新突变\n";

        }
    if($file=~m/.*else_mutation1.*/)
    {
        print OUT "疾病不相关致病突变\n";
       
        }
    if($file=~m/.*(?!else)_mutation1.*/)
        {
        print OUT "疾病相关致病突变\n";
       
        }

MMMIX

回复 1# 54red


    应该用断言, 例如:

1. 
   
2. $ perl -E '@a = qw(015_S21_vcf_HSP_else_mutation2.txt 015_S21_vcf_HSP_mutation2.txt); for (@a) { say if m/(?<!else_)mutation2/ }'
   
3. 015_S21_vcf_HSP_mutation2.txt
   

复制代码

54red

十分感谢，有空我要好好学一学正则！回复 2# MMMIX