正则表达式求教

kajue

TRAPOOL  CHRATE  SPV  RNOTRA  POOLACT  POOLIDLE  POOLTRAF
FRA       FR      1    1704    1704      960       744

SUBPOOL                       SUBACT   SUBIDLE   SUBTRAF
1                             1704      960       744

TRAPOOL  CHRATE  SPV  RNOTRA  POOLACT  POOLIDLE  POOLTRAF
FR       FR      1      96      96       84        12

我想把非FR的行选出来得到类似下面的结果
FRA       FR      1    1704    1704      960       744

用 /^[^(FR)]\S*\s+\S+\s+\d+\s+\S+\s+\S+\s+\S+\s+\S+/ 怎么也匹配不出来，请高手们指教

fengc

假设你是想匹配头2个字母是FR，但是R后面跟了其它的大写英文字母的行。那么这样写就可以了：

/^FR[A-Z]/

无关的内容不必去匹配它。

kajue

原帖由 fengc 于 2007-2-2 18:01 发表
假设你是想匹配头2个字母是FR，但是R后面跟了其它的大写英文字母的行。那么这样写就可以了：

/^FR[A-Z]/

无关的内容不必去匹配它。

但不包含FR的行就没办法匹配了。

我现在是把所有行都分割了，在对每个元素匹配

1. @a=split(/\s+/,$line);
   
2. 
   
3. if ($a[0] ne "FR" && $a[0] ne "HR" && $a[0] ne "EFR")
   
4. {}

复制代码

总之谢谢各位热心的回复

hmilymb

反过来想一想：

    只打印不匹配的。

[code]
    if(!m/^FR\s/){
        print $_."\n";
    }
[\code]