split実行時の空要素の扱い注意点

関数splitは、第3引数に何も指定しないと、
空要素が自動的に削除される。

区切りパターンと同数の要素を得るためには、第3引数に負数を指定する。

my $num = split(/,/, "1,2,,,");
my $num2 = split(/,/, "1,2,,,", -1);
my $num3 = split(/,/, "1,2,,,5", -1);
print $num,"\n".$num2,"\n".$num3;

結果
2
5
5

• 参考

http://perldoc.jp/func/split