一个匹配的小问题，高手支招！

hcduguo

my $str='2000万元';
$str=~m/(\d+.?\d+)(元|万|万元)/;
print "$1--->$2\n";

只能匹配“万”无法匹配“万元”？如何处理呀？$str是个变量，有可能是以上三种情况的任意一种！

大大狗

my $str='2000万';
$str=~m/(\d+.?\d+)(万元|元|万)/;
print "$1--->$2\n";

[ 本帖最后由 大大狗 于 2007-2-9 16:26 编辑 ]

jack2000_lu

Try:
$str=~m/(\d+.?\d+)(元$|万$|万元$)/;

hcduguo

谢谢！楼上的！