エクセルで編集したCSVファイルを読み込むときに
よろしくお願い致します。
エクセルで編集したCSVファイルを読み込み、HTMLとして表示するCGIがあります。
エクセルでCSVファイルを編集すると最後の項目の後にカンマ(,)が付かないのですが、
使用しているCGIでは、カンマがないと行が改行されたとみなされません。
行の最後にカンマがなくても行を改行させるには、どのようなコードを追加すればよいのでしょうか?
CGIのCSVファイルの読み込みする部分のコードは以下のようになっています。
# ログファイル読み込み
my $LOG_FILE = 'log.csv';
my $io = IO::File->new($LOG_FILE, 'r') or die $!;
flock($io, 1);
while(my $line = $io->getline) {
push @ids, (split(/,/, $line))[0];
push @new_checks, (split(/,/, $line))[1];
push @dates, (split(/,/, $line))[2];
push @contents, (split(/,/, $line))[3];
push @contents2, (split(/,/, $line))[4];
push @contents3, (split(/,/, $line))[5];
push @contents4, (split(/,/, $line))[6];
push @contents5, (split(/,/, $line))[7];
push @contents6, (split(/,/, $line))[8];
}
分かりにくい説明で申し訳ありません。
補足説明も致しますので、どうぞよろしくお願い致します。
お礼
回答ありがとうございます。 この件なのですが、デバッグモードの時に 確認できないだけで、実際にtraceしてみると 分割できていました。 どうもお騒がせして申し訳ないです・・