よろしくお願い致します。
エクセルで編集した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];
}
分かりにくい説明で申し訳ありません。
補足説明も致しますので、どうぞよろしくお願い致します。
No.2ベストアンサー
- 回答日時:
逆の発想ですが、行の末尾にカンマを付けてはどうでしょうか。
...
while(my $line = $io->getline) {
$line .= ',' if substr($line, -1) ne ',';
push @ids, (split(/,/, $line))[0];
...
お礼が遅くなり誠に申し訳ありませんでした。
お教え頂いた通りにコードを加えてみたところ、
1行目と2行目を区別して表示することができました。
本当に助かりました。ありがとうございました。
No.3
- 回答日時:
項目名が違う(項目1<->項目6)ので、別項目のように思えてしまうのですが、
項目1と項目6が「同じ項目のデータ一つ目、二つ目」という関係であれば、
foreach my $line(@lines){
my @colomns = split /\,/,$line;
}
これでカンマで区切られた各値が@Colmnsに格納されます。
$colomns[0]で項目1、$colomns[1]で項目2が取り出せます。
今回の場合の項目6は、一行目(項目1~5)の処理が終わった後に、繰り返し処理で$colomns[0]に上書されます。
上書される前にprintなどの望む出力を入れましょう。
お礼が遅くなり誠に申し訳ありませんでした。
先にお答え頂いた方の方法で問題なく表示できましたので、
まだお教え頂いた方法で試してはいないのですが、
こちらも今後の参考とさせて頂きます。
分かりやすいご説明をして頂き、ありがとうございました。
No.1
- 回答日時:
えー・・・っとよく分からないのですが、html上で改行入れるなら
print $hoge<br>;
でしょうか。読み込む部分も
my $io = IO::File->new('$LOG_FILE', 'r') or die $!;
my @lines = $io->getlines;
$io->close;
foreach my $line(@lines){
my @col = split /\,/,$line;
#以上でpushってしてる処理の部分おしまい。以下、ただの表示。
print "ids = $col[0]\n";
print "new_checks = $col[1]\n";
print "dates = $col[2]\n";
.........
}
のように思われます。
この回答への補足
早速ご回答頂きありがとうございます。
分かりづらい内容で申し訳ありません。
お伺いしたかったのはhtml上で改行をいれたいという内容ではなく、
CSVファイルの読み込みに関してなのです。
現在使用しているCGIは、CSVファイルの最後の項目の後にカンマがないと、
1行目と2行目の区別ができないようになっているのですが、
下記のBのように、それぞれの行の最後の項目にカンマがなくとも、
1行目と2行目を区別できるようにしたいと考えております。
CSVファイルの内容
--
A.※CGIで読み込みできる(項目6からは2行目と認識されます)
↓
項目1,項目2,項目3,項目4,項目5,
項目6,項目7,項目8,項目9,項目10,
B.※CGIで読み込みできない(項目5と6が同じ項目だとみなされる)
↓
項目1,項目2,項目3,項目4,項目5
項目6,項目7,項目8,項目9,項目10
もし実現出来る方法がありましたら、ご教授頂けると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字型変数を使って2進数表示す...
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
stable diffusionのエラー
-
VBAでShift-JISのURLエンコード
-
エクセルシート名の制限を変更...
-
formからPOSTしたテキストエリ...
-
Rstudioによるテキストマイニン...
-
Excel 1セル当りの文字数が2...
-
.netで、ibm漢字で書かれたテキ...
-
バイト列とバイナリ列の違いが...
-
DataGridViewの特定列に入力さ...
-
VBSでテキストファイルの文字列...
-
リトルエンディアンのデータを...
-
ワイド文字のバイト数が取得で...
-
変数の構造について
-
SendMailのsubject文字化け
-
この関数はどのプログラミング...
-
html→aspxへのタグ変換方法
-
VB6でのファイルサイズ取得につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA エクセルで1列で表示したい。
-
MATLAB(マトラボ)とcsvファ...
-
文字型変数を使って2進数表示す...
-
VBScripの2次元動的配列
-
matlabで、平均値を求める方法...
-
MSDOSからワイルドカード指定で...
-
VB6.0でMSChartをタイマーを使...
-
perl これは前文検索システムの...
-
いつどこゲームのようなテキス...
-
複数のCSVを一度にダウンロード
-
utf-8のコードを使いたい
-
mkdirでのファイルロック
-
昇順に整列するプログラムにつ...
-
csvファイルでの,(カンマ)の...
-
ポインター引数の関数でコンパ...
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
エクセルシート名の制限を変更...
-
DataGridViewの特定列に入力さ...
-
stable diffusionのエラー
おすすめ情報