my $file = $q->param('LOGFILE');

多分perlだと思うのですが、perlのバージョンとＯＳとサーバーのバージョンを教えて下さい。

あとファイルのエンコードもお願いします。

まず、言語は何でしょうか。perlのように見えますが。

close(LOG)したあとwhile(<LOG>){}があるのでそもそもwhileループの中は実行されないんじゃありませんか。それに、sysread(LOG, $filestr, $file_size)の$file_sizeが未定義だから0なので、$filestrの中身は空でしょう。

何が間違っているというか、全然間違っていますよね。

下のデータはこんなデータなんですよね？

060904 日本太郎 10 4 男性

060904 日本花子 9 4 女性

これを@csv_datに入れるんですか？

二次元配列にするのか、ハッシュの配列にするのか、そのへんの設計をはっきりした方がいいと思います。

このようにしてはどうですか。

open(LOG, "$CONF{'LOG_DIR'}/$file") || &ErrorPrint("ログファイル $file をオープンできませんでした。 : $!");

my $i;

my %csv_data;

while (<LOG>) {

chomp;

my ($date, $name, $month, $day, $sex) = split /\t/, $_;

$csv_data[$i] = {

'date' => $date,

'name' => $name,

'month' => $month,

'day' => $day,

'sex' => $sex

};

$i++;

}

close (LOG);

以下のようにしてそれぞれの要素を読み出すことが出来ます。

print $csv_data[0]{'sex'};

print $csv_data[1]{'name'};

結局何がしたいのか明確ではないんですが、$filestrってなんですか？$file_sizeも未定義のままだし、使わなくていいんじゃあ？

my @csvdata = ();

while(<LOG>){

chomp;

push @csv_data , [split /\t/];

}

こうじゃないんですか？