问一个perl模式匹配的问题

hepower

我的字符串如下格式
FPxxxxdd
xxxx为数字，不一定是4位数，位数是不确定的
dd为非数字，通常为空格，也可能是别的字符，但不是数字
我以前是如下匹配的
$feature_name =~/^FP(.+?) /

但是是根据空格，目前有可能不是空格，请问应该如何写匹配？
谢谢！

liyangole

$feature_name =~ /^FP(?:\d{4,})\D/

hepower

$feature_name =~ /^FP(?:\d{4,})\D/
liyangole 发表于 2010-11-10 15:58

    好像不行阿，
我使用如下：

1. my $feature_name = "FP321_ddd";
   
2. $feature_name =~ /^FP(?:\d{4,})\D/;
   
3. print $1;

复制代码

打印不出东西，应该打印出321

hepower

有哪位同学能帮忙看一下吗？
谢谢:wink:

yybmsrs

想要数字？

hepower

是的，从第一个不是数字的地方开始匹配，要前面的数字

jason680

好像不行阿，
我使用如下：打印不出东西，应该打印出321
hepower 发表于 2010-11-10 17:27

三个问题:
1.你要值,不能用 ?:
2. 明明只有三个数, 怎会用 \d{4,}
3. 要用if

1. my $feature_name = "FP321_ddd";
   
2. if($feature_name =~ /^FP(\d+)\D/){
   
3.     print $1;
   
4. }

复制代码

yybmsrs

1. my $feature_name = "FP321_ddd";
   
2. 
   
3. $feature_name =~ /(\d+)/;
   
4. 
   
5. print $1;

复制代码

hepower

三个问题:
1.你要值,不能用 ?:
2. 明明只有三个数, 怎会用 \d{4,}
3. 要用if
jason680 发表于 2010-11-11 16:24

这是上面一个同学给的代码，不是我写的。。。。

珞水的大叔

回复 9# hepower


    yy 给出的匹配很OK，再配上 jason680 的if格式就基本满足你的需求了

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

复制代码