データファイルからのデータの取得方法
たびたびの質問ですみません。
初心者のため文法が理解できていないのか、今度はデータの読み込みでうまくいきません。
記述中のcgiファイルと同じディレクトリにdata.datというファイルがあり、そのファイルには三行のデータが記述されています。
内容は下記の内容です。
---以下から---
2006,03,18,,1800,グランド代,鈴木,公園,練習
2006,03,19,1500,,部費,加藤,＃１鈴木,2006年度
2006,03,25,1500,,部費,加藤,＃２太田,2006年度
---以上まで---
このデータを各変数に割り当てたいのですが、うまくいきません。
下記のように記述していますが、いかがなモノでしょうか？
---以下から---
$fileline = 0;
open FD, "<data.dat" || die $!;
while (<FD>) {
$fileline++;
}
close FD;
open(FILE, "<data.dat") or printErrorPage("データファイルが開けません。");
eval{ flock(FILE, 1); };
@data = <FILE>;
close FILE;
for($k=0; $k<$fileline; ++$k){
($year,$month,$date,$in,$out,$mono,$member,$etc1,$etc2) = split(/\,/, $data[$i]);
$totalin = $totalin + $in[$k];
$totalout = $totalout + $out[$k];
}
$totalinout = $totalin - $totalout;
---以上まで---
最終的に$totalinには1500と1500が足されて3000と入って、$totaloutには1800と入って、$totalinoutには3000から1800が引かれて1200と計算されるようにしたいのです。
