Perlでの一括アップロード

質問

同じファイルを違うファイル名で一括でアップロードしたいのですが。

最初の一つしか正常にアップされません。
残りのファイルは正しいファイル名で作成はされるのですが、０バイトの状態です。

原因としてはファイルを書き込む
Whileの中のprintしている部分かと思われます。
ちなみにバイナリデータも取得できています。

＊このソースはファイルのアップ部分だけで、
実際にはforeachの中で関数として呼ばれています。
エラー関数や、モジュールの呼び出し部分は省略しています。
仕様モジュールCGI.pm

ソースは以下のとおりです。

ご教授の方よろしくお願いいたします。

# 最大許容サイズ（KByte）
my $maxsize = 300;

# 保存先ディレクトリ
my $logfiles = "./file";

# アップロードを許可するファイルの種類
my %hash_mime = (
'text/html' => 'html',
'image/jpeg' => 'jpg',
'image/pjpeg' => 'jpg'
);

# ファイル取得
my $fH = $query->upload('filename');

# エラーチェック
if ($query->cgi_error) {
my $err = $query->cgi_error;
&error("$err") if ($err);
}

&error("File transfer error.") unless (defined($fH));

# MIMEタイプ取得
my $mimetype = $query->uploadInfo($fH)->{'Content-Type'};

# 保存するファイル名を取得
my $set = &set_name($mimetype);

# ファイル保存
my ($buffer);
open (OUT, ">$logfiles/$set") || &error("Can't open $set");
binmode (OUT);
while(read($fH, $buffer, 1024)){
print OUT $buffer;
}
close (OUT);
close ($fH) if ($CGI::OS ne 'UNIX');
chmod (0666, "$logfiles/$set");

回答No.1

osamuy · ベストアンサー

＞ 同じファイルを違うファイル名で一括でアップロードしたいのですが。

中身一緒なんだから、ファイルを一つだけアップロードして、あとは複数のファイル名（パス）をPOSTして、サーバ側でコピーした方が効率的では。

１回は正しく処理されているようですので、予期した通りにデータが流れてきているかtcpdumpとかのネットワークパケットキャプチャとかで追跡してみては。

プログラムの誤りがあるのだとしたら、今回示されてないコードの部分にありそうな気がします。

お礼

返事が遅くなって申し訳ありませんでした。

ファイルをコピーする方法で解決いたしました。
モジュールを使うバージョンと
読み込み書き込みでコピーするバージョン
2タイプで作成し分岐で汎用性をもたしてみました。

なぜ2番目以降のファイルの書き込みができなかったのかの原因は不明ですが。結果オーライということにしときます。

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