分割時に末尾の空フィールドを残す
splitの第3引数に-1を指定します。
my $hoge = 'a,b,c,,'; # 空フィールドを削除する場合 my @foo = split /,/, $hoge; # @foo = ('a', 'b', 'c') # 空フィールドを残す場合 my @bar = split /,/, $hoge, -1; # @bar = ('a', 'b', 'c', '', '')
my $hoge = 'a,b,c,,'; # 空フィールドを削除する場合 my @foo = split /,/, $hoge; # @foo = ('a', 'b', 'c') # 空フィールドを残す場合 my @bar = split /,/, $hoge, -1; # @bar = ('a', 'b', 'c', '', '')