比较perl中的两个字符串以查找不匹配

时间:2013-09-07 20:51:48

标签: perl

我是Perl的初学者。我有一个文件两列。我想比较第一列(作为参考)和第二列(测试):

pppqqrrsttqrstrr    pppqrrrsttqrstrr

if p in ref =~ p in test print p
if q in ref =~ q in test print q
if r in ref =~ r in test print r
if s in ref =~ s in test print s

if t in ref =~ t in test print W

if q in ref =~ r in test print w

输出:pppqwrrsWWqrsWrr

我试过了:

#!/usr/bin/perl
use warnings;
use strict;

open my $F1, '>', 'match' or die $!;
while(<>){
    chomp($_);
    my @file = split ("\t| ",$_);
    my @ref = split (//, $file[0]);
    my @test = split (//, $file[1]);
       for my $i (0 .. @ref -1) {
          if(($ref[$i] =~ /Pp/) && ($test[$i] =~ /Pp/)){
            print $F1 ("$ref[$i]");
                     }  
          elsif(($ref[$i] =~ /Qq/) && ($test[$i] =~ /Qq/)){
            print $F1 ("$ref[$i]");
                     }
          elsif(($ref[$i] =~ /Rr/) && ($test[$i] =~ /Rr/)){
            print $F1 ("$ref[$i]");
                     }          
          elsif(($ref[$i] =~ /Ss/) && ($test[$i] =~ /Ss/)){
            print $F1 ("$ref[$i]");
                     }
          elsif(($ref[$i] =~ /Tt/) && ($test[$i] =~ /Tt/)){
            print $F1 ("W");
                     }
          elsif(($ref[$i] =~ m/Qq/) && ($test[$i] =~ m/Rr/)){
            print $F1 ("w");            
                     }
            $i++;       

}print $F1 ("\n");}
close $F1;

但我没有得到任何东西!!!

谢谢

1 个答案:

答案 0 :(得分:8)

看起来像这样:

$test[$i] =~ /Pp/

您正在尝试查找其中包含Pp的字符串,但您实际在做的是查找带有P后跟{{{ 1}}。你打算做的是:

p

其中$test[$i] =~ /[Pp]/ 是一个与其中任何一个匹配的字符类。

然而,更好的方法是在正则表达式上使用[Pp]修饰符来使测试用例不敏感

i