懒惰匹配

ianywhere

$strbuff = "PREFIX|aaaa|bbbb|gggg|cccc|dddd";

$strbuff =~ /.+\|(a.+?)\|b(.+?)\|(c.+?)\|(d.+?)$/;

print "a is:".$1."\n";
print "b is:".$2."\n";
print "c is:".$3."\n";
print "d is:".$4."\n";

为什么$2的值是bbb|gggg？ 我希望$2=bbb。

longbow0

1. 
   
2. /\|(a+?)\|(b+?)\|(c+?)\|(d+?)$/
   

复制代码

zhlong8

你RE中少了个 \|g(.+?)

ianywhere

/\|(a+?)\|(b+?)\|(c+?)\|(d+?)$/

这样的话， $1  ~ $4 都没有值了

ianywhere

回复 3# zhlong8


我就是要处理|b和|c中可能出现其他数据的情况， 例如|gggg。
请问是不是可以跳过|gggg?

albertd

$strbuff =~ /\|(.+?a)\|(.+?b)\|.*\|(.+?c)\|(.+?d)$/;

albertd

1. $strbuff =~ /\|(.+?a)\|(.+?b)\|.*\|(.+?c)\|(.+?d)$/;

复制代码

ianywhere

$strbuff =~ /\|(.+?a)\|(.+?b)\|.*\|(.+?c)\|(.+?d)$/;
albertd 发表于 2011-04-14 15:08

   行了， 谢谢！！！！

jason680

$strbuff = "REFIX|aaaa|bbbb|gggg|cccc|dddd";

$strbuff =~ /.+\|(a.+?)\|b(.+?)\|(c.+?)\|(d.+?)$/;
...
ianywhere 发表于 2011-04-14 14:32

$ cat split.pl
$strbuff = "PREFIX|aaaa|bbbb|gggg|cccc|dddd";
@data = (split('\|', $strbuff))[1,2,4,5];
print "@data\n";

$ perl split.pl
aaaa bbbb cccc dddd

ianywhere

$ cat split.pl
$strbuff = "REFIX|aaaa|bbbb|gggg|cccc|dddd";
@data = (split('\|', $strbuff) ...
jason680 发表于 2011-04-14 17:29

谢谢！