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_ 回答日時： 2011/04/15 19:38

$fileName = $query->param('fileName');

で取得できるのはアップロードしたときのファイル名で、CGI.pmはそのファイル名とは別の名前でサーバ上に一時ファイルを作ります。

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

この回答へのお礼

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

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

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

お礼日時：2011/04/26 08:37