求一个正则表达式

小公猫

$str = '
hello>2012 - China[sh-shanghai01-nanjing]
welcome>2013 - New[bj-beijing02-shenyang]
June>2014 - FuJian[jx-jiangxi03-guangdong]
';

我现在要找出每一行中，第二个数字串(橙色)不为03的第一个数字串(红色)。
上面的例子为：2012、2013，因为2014后面的数字为03.

我试了好多表达式，都匹配不出，大致是这样的：@arr = $str =~ m{([0-9]+) - .* (?!03)g};  #错误

请大家帮忙看看。

yinyuemi

回复 1# 小公猫

1. perl -le '$str = "
   
2. hello>2012 - China[sh-shanghai01-nanjing]
   
3. welcome>2013 - New[bj-beijing02-shenyang]
   
4. June>2014 - FuJian[jx-jiangxi03-guangdong]
   
5. ";
   
6. @arr = $str=~ />(\d+).*\d(?<!03)-/mg;
   
7. use Data::Dumper;
   
8. print Dumper \@arr'
   
9. 
   
10. $VAR1 = [
    
11.           '2012',
    
12.           '2013'
    
13.         ];
    
14. 
    

复制代码

masylichu

1. perl -le '$string=qq(June>2014 - FuJian[jx-jiangxi03-guangdong]);@match= $string =~ />(\d+).*03-/g;print @match'

复制代码

输出：
2014  

小公猫

yinyuemi 发表于 2012-06-18 13:38
回复 1# 小公猫

大哥，发现跟我的实际情况还有点不一样：
$str = '
hello>2012 - China[sh3-shanghai01-nanjing1]
welcome>2013 - New[bj5-beijing02-shenyang1]
June>2014 - FuJian[jx8-jiangxi03-guangdong1]
';

要排除'jiangxi03'以外的第一个数，结果也就是2012、2013

我改了一下：
@arr = $str=~ />(\d+) - .*-w+\d(?<!jiangxi03)-/mg;

ciedecem

回复 1# 小公猫


    我也是新手，请试一下我写的吧
$str= '
hello>2012 - China[sh-shanghai01-nanjing]
welcome>2013 - New[bj-beijing02-shenyang]
June>2014 - FuJian[jx-jiangxi03-guangdong]
';

my @line = split ( /\n/, $str);
foreach (@line) {
    print "$_\n";
    my @k = split "-" ;
    if( $k[2] =~ /03/ ){
        print $k[2]."\n";
        print "$1\n" if($k[0] =~ />(\d+)/);
    }
}
运行结果是：

hello>2012 - China[sh-shanghai01-nanjing]
welcome>2013 - New[bj-beijing02-shenyang]
June>2014 - FuJian[jx-jiangxi03-guangdong]
jiangxi03
2014

请多指教！

小公猫

ciedecem 发表于 2012-06-18 17:26
回复 1# 小公猫

小伙子，你没看懂我的意思。
我现在已经解决了~