请教正则表达式的逗号匹配问题

dl0622

my $start1 = qr/^FEE=(\d+\,\d+)$/;

上面这句我主要是想匹配下面这行：
FEE = 29,49

但是它连下面这行也匹配了：
FEE = 49

怎样才能只匹配带逗号那行呢？实在不懂，麻烦指点，谢谢！

iamlimeng

$str1 = 'FEE=29,49';
$str2 = 'FEE=49';
if ($str1 =~ /^FEE=(\d+\,\d+)$/) { print "STR1 match!\n"; }
if ($str2 =~ /^FEE=(\d+\,\d+)$/) { print "STR2 match!\n"; }

这样写只匹配STR1

dl0622

另外再问个问题：
$CONDITION_GROUP代表条件组，它的值是外部传入，同一个值会从外部传入多次。
对于传入的不同的值，我想分组处理，比如传入了三次值100，这时脚本在接到第二次的100时可判断跟第一次是相同的，分为同一个组，不知该如何用脚本表达呢？

dl0622

两个问题尚未解决，请大家指点指点，谢谢啦~！

mwm5

贴数据最好~正则很多时候和环境关系比较紧密~
另外逗号不是元字符，没有必要转义~

dl0622

我觉得已经描述的很清楚了，数据太多，贴了就没人有耐心看了。

dugu072_cu

只要是符号，转义下倒是没啥问题的
第一个问题，描述很清楚，但是你贴的数据，肯定都不会匹配上，因为字串有空格，你的regex没有...
本地确认，去掉数据的空格，没有问题：
C:\>perl -e "my $start1 = qr/^FEE=(\d+\,\d+)$/;if ( 'FEE=49' =~ /$start1/ ) { print \"matche
d!\n\"}";

C:\>perl -e "my $start1 = qr/^FEE=(\d+\,\d+)$/;if ( 'FEE=29,49' =~ /$start1/ ) { print \"mat
ched!\n\"}";
matched!
第二个问题，我也看不懂你说什么...

dl0622

原帖由 dugu072_cu 于 2010-1-4 11:25 发表
只要是符号，转义下倒是没啥问题的
第一个问题，描述很清楚，但是你贴的数据，肯定都不会匹配上，因为字串有空格，你的regex没有...
本地确认，去掉数据的空格，没有问题：
C:\>perl -e "my $start1 = qr/^F ...

不好意思我没说清楚，空格我已经在前面处理过的了，所以不是空格的问题。

blackold

郁闷！看了几遍，还不明白是什么意思。