请教一个经典的模式匹配问题，我已经想了好几天了

白水

$a="zzzzz123a4xxx123b4www123f4ssss12374";
         ~~~~~   ~~~~~   ~~~~~    ~~~~~我要匹配其中的123*4
怎样用最简单的模式匹配，得到"a b f 7"的结果？

apile

$a="zzzzz123a4xxx123b4www123f4ssss12374";
~~~~~ ~~~~~ ~~~~~ ~~~~~我要匹配其中的123*4
怎样用最简单的模式匹配，得到"a b f 7"的结果？

$a=~s/123(.*)4/&getdata($1)/eg;
sub getdata(){
  $data .=$_." ";
  return $_;
}
print $data;
因為手邊沒linux可以測試..所以你要試試看..
就這樣匹配沒錯...

house1

测试了一下，失败，什么都没有打出来 :~(

house1

我改了一下，改了getdata()里的return

$a="zzzzz123a4xxx123b4www123f4ssss12374";
$a=~s/123(.*)4/&getdata($1)/eg;

sub getdata(){
my ($a)=@_;
$data.=$a." ";
return $data;
}

print $data;

现在结果是
a4xxx123b4www123f4ssss1237

原来它把最前面的123后最后面的4看成一个了
怎么办？？？

lgjut

太贪吃了，把中间的*去掉。：）

$a="zzzzz123a4xxx123b4www123f4ssss12374";
$a=~s/123(.)4/&getdata($1)/eg;

sub getdata(){
my ($a)=@_;
$data.=$a." ";
return $data;
}

print $data;

sdupoplar

也可把中间的*换成*?

$a="zzzzz123a4xxx123b4www123f4ssss12374";
$a=~s/123(.*?)4/&getdata($1)/eg;

sub getdata(){
my ($a)=@_;
$data.=$a." ";
return $data;
}

print $data;

house1

成功了，我把最终的最简代码写一下：
------------------------------------------------------------
$a="zzzzz123gong4xxx123xi4www123fa4ssss123cai48888888881234";

$a=~s/123(.*?)4/&getdata($1)/eg;

sub getdata(){
$data .="@_[0] ";
return;
}

print $data;
------------------------------------------------------------
输出结果：
gong xi fa cai

成功啦！！！

deathcult

1. 
   
2. $a="zzzzz123a4xxx123b4www123f4ssss12374";
   
3. 
   
4. print "$1\n"  while($a =~ /123(.)4/g);
   

复制代码

deathcult

如果123和4之间非一个字符，那就这样匹配：

print "$1\n"  while($a =~ /123([^4]+)4/g);

白水

谢谢，可以的

([^4]+)

这个是什么意思？看不明白啊...能不能再讲解一下？？