csvデータをひとつのテーブルに読み込みたい

質問

Perlを勉強し始めた初心者です。
Perlでスケジュール管理ができるものを作っています。
月ごとのカレンダーではなく、1日単位で画面が切り替わるようにしています。
9:00～21:30までの時間を30分ごとに区切ったタイムテーブルに、
csvに保存している予定データを表示させたいのですが、うまくいきません。

かなり省略していますが、下記のようなソースです。
************************************************************************
for($i=9; $i<=21; $i++) #時間の数だけテーブルをループさせます。
{
open(IN,"data.csv");
while (<IN>)
{
#ここにテーブルタグを書き、csvの予定データを読み込みます。
}
close(IN);
}

************************************************************************

上のようにすると、csvファイルにある予定データの数だけテーブルを
繰り返してしまいます。もし予定データが５件あるとしたら、9:00の行が５つ、
9:30の行が５つ、と作成されてしまいます。
テーブルを重複させずにcsvのデータを表示させるにはどうしたら良いのでしょうか？
根本的な考え方が間違っているのでしょうか？

わかりにくい質問になってしまいましたが、アドバイス頂ければ嬉しく思います。

回答No.2

tatsu99

すいません。書かれている意味が分かりません。
for($i=9; $i<=21; $i++) と書かれていますが、
９時から２１時まで、３０分毎にくぎるなら、２６回分必要なので
for($i=9; $i<=21; $i++)とするなら、
ひとつの$iで０分台と３０分台の２つ分を処理すべきかと思います。
for ($i=2*9;$i <= 21*2; $i++)とすれば２６回分のループが作れます。
＞もし予定データが５件あるとしたら、9:00の行が５つ、
＞9:30の行が５つ、と作成されてしまいます。
予定データが５件の意味が分かりません。
Ａさん、Ｂさん、Ｃさん、Ｄさん、Ｅさんの分で５件なのですか。
それとも、９：００、９：３０、１０：００、１０：３０、１１：００
の分で５件なのですか。
前者なら、２６回のループで各担当者分の予定を記述しているため、それで問題ないと考えます。
後者なら、while(<>)を１回だけ実行し、９：００から順番に割り当てればよいと考えます。

回答No.1

TagoSuck

CSVのデータ内容と、テーブルタグの出力内容がわからないので、なんともいえませんが、9時から21時までの間の13回ファイルをオープンして全てのデータを読み込み、出力し、閉じていますので、そのようになるのかと。

例えば、配列とかハッシュにCSVの内容を持っておいて、日付と時間で検索を行って、それを出力するとかの処理が必要ではないでしょうか？

ファイルが日時別に管理されているなら別ですが、その場合には、オープンするファイル名が定数にはなりませんね。