ファイル内を検索してグラフを書く方法を教えてください。。。

質問

ここにdata.txtというファイルがあります。
中身はこのようになっています。
2005/12/01,0:44:55,7.3
2005/12/02,0:45:55,7.8
2005/12/03,0:46:55,7.8
2005/12/04,0:47:55,7.8
・
・
ちなみに，区切りで左側は日付、真ん中が時間、右側が温度になっています。
これは一行一行改行されています。
たとえばこのファイルの中から2005/12/01～2005/12/04というのをフォームで指定して各日にちに対応する温度を取り出します。
この取り出した温度をperlのGD::Graphモジュールを使って折れ線グラフ化したいのですが何かいい方法はありませんか？？できればプログラムをお願いします。
またはこの形までもっていく方法もおねがいします。
@data=(
["2005/12/01","2005/12/02","2005/12/03","2005/12/04"],
[7.3,7.8,7.8,7.8]
);
です。上の［］が，区切りの日付、下の［]が温度です。必ずしも4日とは限らないのでそこをおねがいします。

回答No.1

BLUEPIXY · ベストアンサー

>またはこの形までもっていく方法
こっちだけ
$date=[];
$temp=[];

open(INDATA,"<", "data.txt");
while(<INDATA>){
@field=split /,/;
push @$date, $field[0];
push @$temp, $field[2];
}
close(INDATA);
@data=($date, $temp);

お礼

ありがとうございます。試してみたいとおもいます。