问一个perl模式匹配的问题

hepower

回复  hepower


    yy 给出的匹配很OK，再配上 jason680 的if格式就基本满足你的需求了
珞水的大叔 发表于 2010-11-11 22:28

    my $feature_name = "FP321_ddd";
if($feature_name =~ /(\d+)/){
    print $1;
}

不行阿，什么也打印不出来阿。

猪鼻插葱

my $feature_name = "FP321_ddd";
if($feature_name =~ /(\d+)/){
    print $1;
}

不行阿 ...
hepower 发表于 2010-11-16 14:51

我测试了一下  大叔提供的代码完全可用  Fedora 10下结果为321

flw

所以 5.10 和 Perl6 发明了 say，
就是给你们这帮笨人用的。

hepower

我测试了一下  大叔提供的代码完全可用  Fedora 10下结果为321
猪鼻插葱 发表于 2010-11-16 15:01

    我这里不行阿 ，我的环境是Ubuntu9.1,为啥呢～

猪鼻插葱

所以 5.10 和 Perl6 发明了 say，
就是给你们这帮笨人用的。
flw 发表于 2010-11-16 16:23

额 我在想笨是注定的了 主要是想着怎么先飞

flw

我这里不行阿 ，我的环境是Ubuntu9.1,为啥呢～
hepower 发表于 2010-11-16 16:52

    print $1, "\n";

试试

黑色阳光_cu

我测试时喜欢warn

hepower

print $1, "\n";

试试
flw 发表于 2010-11-16 17:10

    可以了，谢谢！