こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

CSVファイルからdataをcgiに取り込みたい。

初めまして、perl全くの初心者であります。
なにとぞよろしくお願いいたします。
CSVファイルからdataをcgiに取り込みたいのですが、他者の質問を参考にしたのですがなかなか理解しがたく、みなさまのお力を拝借したいわけです。

例)
以下のようなcsvがあるとします。
data.csv
 テレビ,tv.jpg,安いよ,39800
 ビデオ,vtr.jpg,高機能,29800
 洗濯機,sen.jpg,2層式,128000

この場合、
 $sina[x] $jpg[x] $pr[x] $kakaku[x]
みたいに、各データを当てはめたいのですが、どのようにすればいいのでしょうか?
また、データ記載の商品の数(例では3です)を求めたいのですが。

投稿日時 - 2001-07-02 22:10:09

QNo.98689

すぐに回答ほしいです

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

俺も初心者なんであんま自信ないですが、こんなのどうでしょう?
------------
open(IN,"data.csv");
flock(IN,2);
@line = <IN>;
flock(IN,8);
close(IN);

$cnt = 0;
foreach(@line){
($sina[$cnt],$jpg[$cnt],$pr[$cnt],$kakaku[$cnt]) = split(/\,/,$_);
$cnt++;
}

---------------------
$cntにデータの数が入ります。
foreach(@line)で配列の0番目から順に$_に代入して、反復実行します。

投稿日時 - 2001-07-02 22:29:01

お礼

ありがとうございます。非常に助かりました。
初心者にはシンプルでわかりやすい記述で、
なんにでも応用が利きそうです。
また、よろしくお願いいたします。

投稿日時 - 2001-07-02 23:30:00

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問