请各位大侠进来看看PERL的split是不是有问题，谢谢！

xchinaunix

最近在使用split时遇到点问题,分割的结果因输入的不同表现出不同的现象，如下：
my $str= '1|2|3|||';
my @abcd = split(/\|/, $str);
print scalar(@abcd) . "\n";

输出：3

这样就出现一个问题，如果我用split将字符串'1|2|3|||'切开后，就再也无法用join还原回去了，丢失了两个域。
比如当用split将字符串'1|2|3|||'切开后，用join连接的结果为：1|2|3，少了两个域。
如果后面全部都是'||||'，则这些域全部都会丢失。


而很奇怪的是，如果my $str='1|2|3||4|'，则输出：5
为什么这个时候第四个域没有丢失呢？

请各位路过的大侠帮忙解释一下这是什么原因导致的，谢谢！

redicaps

split本来就会丢弃尾部空白的字段
perldoc -f split

flw

你连这个规律都总结不出来，
真是的。

其实就是丢弃末尾的罢了。

顺便说一句，你一定没看过 perldoc -f split

bluewaterray

碰到问题千万要先怀疑自己

Perl_Er

http://perldoc.perl.org/functions/split.html
可以加limit参数。

xchinaunix

谢谢四位帅哥友情出手，加LIMIT参数搞定。

xti9er

不错，我还真没注意到