Perl split字符串分割函数用法指南

2019-10-01 13:56:58刘景俊

有网友对这种方式做了测试,显示较好。引用如下:
>>>
一个文件,每行都有18项,各项之间用t分割,使用时用到了第6项,折腾了几种用法


my @array = split("t",$_); my $var = $array[6];   测试文件平均用时8.2s
 my($var) = (split("t",$_))[6];  测试平均用时5.1s
 my(undef,undef,undef,undef,undef,undef,$var) = split("t",$_); 平均用时3.53s
 my(undef,undef,undef,undef,undef,undef,$var) = split("t",$_,7);平均用时3.52s
 my $var = (split("t",$_,7))[6]; 平均用时3.53s

看来后3种才是王道,如果需要使用多项也可以进行进行适当的变动。不过两项如果跨度比较大,3,4应该是不错选择,5就只能用中间数组。

自己动手测试下吧。