perl 匹配问题，求助

icybay

#!/usr/bin/perl
use strict;

my $a="asdf1234df35";
if ($a=~ /.*(\d+)/)
{
    print "$1";
}else
{
    print "no matched";
}
我想匹配最后的35，但由于前面使用了.*最后只能匹配到5。 求助啊

jason680

回复 1# icybay


m/(\d+)$/

icybay

上面只是一个例子，数字不一定在最后的，需要换种方法

回复 2# jason680

dgtnk

.* 是贪婪匹配
后面加问号 就可以 非贪婪匹配

kk861123

回复 3# icybay


    那你的数据有什么特点？或者贴上你的数据来...

jason680

回复 3# icybay

先把问题"写"清楚....

icybay

数据没有什么特点，前面可能是任意字符，只是想匹配最后出现的数字（1个或多个），最后不一定是以数字结尾
回复 5# kk861123

icybay

非贪婪会匹配前面的数字串
回复 4# dgtnk

kk861123

数据没有什么特点，前面可能是任意字符，只是想匹配最后出现的数字（1个或多个），最后不一定是以数字结尾
...
icybay 发表于 2011-11-18 16:41

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $a = "asdf1234df35";
   
6. my $l = ($a =~ /(\d+)/g)[-1];
   
7. print $l,"\n";

复制代码

icybay

恩，佩服，这种写法很好，谢谢了
回复 9# kk861123