perlのsplitで空の末尾を残す場合

Chromecast ブラック

Chromecast ブラック

#CSVデータ
my $csv_data = "aaaa,bbbb,cccc,";
my @value_array  = split(/,/,$csv_data);
#↑↑場合は
#@value_array = ('aaaa','bbbb','cccc');
#splitの第3引数に-1を指定
my @value_array  = split(/,/,$csv_data,-1);
#↑↑場合は
#@value_array = ('aaaa','bbbb','cccc','');
#末尾の空白部分が配列の最後に格納される

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です