perlでＣＳＶ形式ファイルのアップロード

質問

本日、同じ質問をしたものです。
前回の問題は解決したのですが、ファイルがアップロードできないで悩んでします。

ＣＧＩのプログラムは以下のソースです。

#! c:/perl/bin/perl

use CGI;
#　CGIヘッダーの出力
print "Content-type: text/html\n\n";

my ($query,$fileName);
$query = new CGI;
$fileName = $query->param('fileName');

open(OUT, ">./a.csv");
binmode(OUT);
while(read($fileName,$buffer,1024))
{
print OUT $buffer;
}

close(OUT);
close($fileName); #ファイルハンドルをcloseしています。

exit ;

ファイルは、作られるのですが、中身が書き込まれません。

どなたか教えてください。

お願いします。

回答No.1

_--_1l1_1_ · ベストアンサー

$fileName = $query->param('fileName');
で取得できるのはアップロードしたときのファイル名で、CGI.pmはそのファイル名とは別の名前でサーバ上に一時ファイルを作ります。

$query->upload()で一時ファイルのファイルハンドラを取得し、ファイルの内容を読み出します。
$fh = $query->upload('fileName');
read($fhe,$buffer,1024);
...

お礼

御礼が遅くなり申し訳ありません

おっしゃる通りにやってみましたところ、できました。

ありがとうございました。