ファイルからの読みこみについて
下記のような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のすべてになってしまいます。どうやったら正常にもどりますか？？お願いします。
お礼
回答ありがとうございます。 お礼が遅くなりすみません。 どうにか、解決しました。 ありがとうございます。