perlを使用してCSVデータからテキストデータを作成

2010/05/17 18:51

このQ&Aのポイント

perlを使用して、CSVデータからテキストデータを作成する方法について教えてください。
同じIDのアイテムと商品だけを表示する方法についても教えてください。
ファイル名とファイルの中身はどのように生成すれば良いですか？

perlを使って、CSVデータからテキストデータを作りたいです。

perlを使って、CSVデータからテキストデータを作りたいです。今、こういうCSVデータで、 ----------------------------------- ID 　　　 | アイテム　｜　商品名 ----------------------------------- 1111 　　 | AAAAAAAA 　｜　aaaaaaaa ----------------------------------- 1111 　　 | BBBBBBBB 　｜　bbbbbbbb ----------------------------------- 1111 　　 | CCCCCCCC 　｜　cccccccc ----------------------------------- 2222 　　 | AAAAAAAA 　｜　aaaaaaaa ----------------------------------- 2222 　　 | DDDDDDDD 　｜　dddddddd こういうテキストファイルを作りたいです。ファイル名　⇒　1111.txt ファイルの中身 ---------------------------------- ID:1111 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 BBBBBBBB 【商品名】 bbbbbbbbb 【アイテム】 CCCCCCCCC 【商品名】 ccccccccc ファイル名　⇒　2222.txt ファイルの中身 ---------------------------------- ID:2222 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 DDDDDDDDD 【商品名】 ddddddddd ---------------------------------- 同じIDだったら、そこだけのアイテム名・商品名が、同じIDのテキストに入るようなことをやりたいです。それぞれのファイル名で保存するところまでは出来たのですが、こんな感じになってしまいます。。ファイル名　⇒　1111.txt ファイルの中身 ---------------------------------- ID:1111 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 BBBBBBBB 【商品名】 bbbbbbbbb 【アイテム】 CCCCCCCCC 【商品名】 ccccccccc 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 DDDDDDDDD 【商品名】 ddddddddd ファイル名　⇒　2222.txt ファイルの中身 ---------------------------------- ID:2222 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 BBBBBBBB 【商品名】 bbbbbbbbb 【アイテム】 CCCCCCCCC 【商品名】 ccccccccc 【アイテム】 AAAAAAAA 【商品名】 aaaaaaaa 【アイテム】 DDDDDDDDD 【商品名】 ddddddddd ---------------------------------- どうしたら同じIDのファイルに、同じIDのアイテムと商品だけを表示することが出来るようになるのでしょうか、、すみませんが、どうぞ宜しくお願いいたします。

potwell331
お礼率47% (20/42)

Perl
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ORUKA1951
ベストアンサー率45% (5062/11036)

2010/05/17 19:33 回答No.1

CSVはそれを出力するアプリケーションによって異なりますが、それはきちんと２次元配列に入っているとします。 #CSVはそれを出力するアプリケーションによって異なりますが、それはきちんと２次元配列に入っているとします。 my @DATA=( ["ID","アイテム","商品名"], ["1111","AAAAAAAA","aaaaaaaa"], ["1111","BBBBBBBB","bbbbbbbb"], ["1111","CCCCCCCC","cccccccc"], ["2222","AAAAAAAA","aaaaaaaa"], ["2222","DDDDDDDD","dddddddd"], ); これを for(1..$#DATA){}でループさせて、IDだけのリストと、ハッシュ(ID)のハッシュ(アイテム,商品名)に代入して、最後にIDをキーにしてハッシュを呼び出す。複雑なデータならリファレンスを使って処理するのでしょうが、ここは順当に初心者でもわかりやすい方法で・・

質問者

お礼 2010/05/17 20:40

$user_id[$k] = $split_data[1]; for($j = 0; $j < @csv_data; $j++){ @split_data = split("\,",$csv_data[$j]); if($split_data[1] == $user_id[$k]) { print FH … こうやって書いたら上手く行きました！ありがとうございました！

質問者

補足 2010/05/17 20:29

今、こんな感じで書いています。 for($j = 0; $j < @csv_date; $j++){ @split_date = split("\,",$csv_date[$j]); 　　　　if(※ユーザーIDが一緒だったらという条件を加えたい){ print FH "■ID${split_date[0]}\n\n"; print FH "アイテム／${split_date[1]}\n"; print FH "商品／${split_date[2]}\n"; print FH "------------------------------------\n\n"; } } ここの※印のところの書き方が分かりません、、ここの書き方って教えていただけないでしょうか、、すみません。