ファイルからの読みこみについて

質問

下記のようなdata.txtがあります。
2005/12/01,0:44:55,2.2
2005/12/01,0:45:55,7.8
2005/12/01,0:46:55,4.8
2005/12/01,0:47:55,5.5
いまこのようなプログラムがあります。（一部）
$date=[];
$temp=[];
open(DATA,"data.txt");
while(<DATA>){ #一行ずつ読む
if(/$name/){print "$_<BR>";} #$nameの中身を発見→出力
@field = split(/,/,);
push @$date, $field[1];
push @$temp, $field[2];
}
@data=($date, $temp);
です。
簡単にプログラムの説明をしますとdata.txtで$name（$name=2005/12/01）という文字を一行単位で検索していきます（今はすべてが当てはまります）この検索してヒットした一行の，区切りの一番右のデータを並べたものを＄tempとし、，区切りの真ん中のデータを並べたものを$dateとしています。このプログラムですと$temp は　[2.2,7.8,4.8,5.5]になり$dateは["0:45:55","0:45:55","0:45:55","0:45:55"]となるはずですがこのプログラムを実行すると検索結果は表示されるのですがプログラムの最後の行の@data=・・・というところが検索結果でなくdata.txtのすべてになってしまいます。どうやったら正常にもどりますか？？お願いします。

回答No.2

BLUEPIXY · ベストアンサー

>if(/$name/){print "$_<BR>";}
これが、閉じてますね＾＾
if(/$name/){print "$_<BR>";} #$nameの中身を発見→出力
@field = split(/,/,);
push @$date, $field[1];
push @$temp, $field[2];
}
を
if(/$name/){
chomp;
print "$_<BR>"; #$nameの中身を発見→出力
@field = split(/,/,);
push @$date, $field[1];
push @$temp, $field[2];
}
}
にしませう

お礼

とても参考
になりました、

ありがとうございました

回答No.1

BLUEPIXY

@dataは、
(["0:45:55","0:45:55","0:45:55","0:45:55"],[2.2,7.8,4.8,5.5])
になりますね。(chompしたほうがいいかも)
@dataがdata.txtのすべてになるということですが、どのようにして確認されたのでしょうか？

補足

この後にグラフを書くプログラムがつながっていて書かれたグラフがすべてになっています。