Question

perl split函数问题，分割串末尾有空数据算不算。$str = 'a \t b \t c \t \t \t';用tab分割存在@str里

@str = split('\t', $str); 这个时候@str的大小应该是多少？5 ？还是3 ?
我这里从程序里提出代码来测试的时候是3 可是写到程序里的时候就成5了，特郁闷，有哪位大侠也遇到这类情况么？请问如何解决，谢谢

Answer 1

分割串末尾是完全的空数据的话，split出来的数组长度必然只有3。
但是如果你的末尾有诸如换行符（\n\r\s）等其他字符的话，也就是说table键后面并不是什么都没有话那么分隔出来的必然就是5咯~~~

追问

是这样的，我现在用的是perl 5.86，我自己新写一个小程序测试split的功能时候从输入文件中烤出一字符串，测试显示是不计数的，可是在程序里根据句柄一条一条读入的时候，perl又读了空数据(split前我已经chomp过了，应该没有\n\r的问题),数据结尾没有空格...句柄读入还可能有别的不可见结尾符么？

追答

会不会数据之间而不是数据末尾多了不止一个\t?你用@str = split('\s+', $str);试试看。

追问

我在数据读入之后原本程序：
while(my $line = ){
chomp($line);# chop($line);
my @lists = split('\t', $line);print scalar(@lists),"★\n";
我加了个chop这后就是正确的了(空的数据不计，无论结尾多少个tab都不计...)
perl从文本读入数据，一条数据结尾除\n外，还可能有别的特殊符号么？

追答

你可以打印一下chop($line)嘛，看看是什么。这种情况我也没有见到过，只是在将文本导入数据库的时候，有时候会出现格式不对的情况，就是因为换行为"/r/n"而不是单纯的“/n”。chomp只能去掉\n不是吗？而chop可以去掉最后一个字符，不管是什么，所以chop去掉字符的范围肯定是比chomp要多的。

追问

my $cho = chop($line);
print $cho , "●\n";
打印出来是什么都没有，空的....

追答

晕，当然时空的了。如果不是空的你就看得到了。我是说有什么内容，根据你答应出来的结果看推测一下是什么内容。
my $cho = chop($line);
print $cho , "****\n";
这样看看****前面是什么东西不就可以推测你文本里面最后一个字符是什么了吗！如果换行了然后chomp又不对，那么就是\r了。如果是个空格，那么就是\s了。自己多测几次，就能找到问题所在了。我还不信这么个小问题还能难倒人了。

追问

你没耐心看哦，print $cho , "●\n";我说是的这个‘●’前面打印出来是什么都没有，说明这可能是个不显示在屏幕上的某特殊东西吧，肉眼看和cmd的屏幕上贴出来是什么都没有的，会不会是perl几部还是什么制度什么的东西，刚好碰上了。问题是很小，答案也明显，我只是还没找到是什么特殊东西...

Answer 2

http://perldoc.perl.org/5.8.8/functions/split.html

Splits the string EXPR into a list of strings and returns that list. By default, empty leading fields are preserved, and empty trailing ones are deleted. (If all fields are empty, they are considered to be trailing.)

另外，关于你的问题
perl -e '$num=split("\t","a123\a123\tjjc\t\t\t\n");print $num;'
5
perl -e '$num=split("\t","a123\a123\tjjc\t\t\t");print $num;'
2

就是因为最后有\n所以才会导致split会拆分中间的几个\t