画像の複数登録についての質問です。

質問

画像を複数登録したいんですが500エラーが出てしまいます。

htmlから
<input type="file" size="50" name="img1_1">
<input type="file" size="50" name="img1_2">
として、cgiにsubmitします。

cgi側でファイル名をデータ番号に変えて保存します。
例）
aaaaa.jpg
↓
1234.jpg

---cgi---

if ($param{'img1_1->name'} ne ""){
if ($param{'img1_1->name'} =~ /(\.gif|\.jpg|\.jpeg|\.pig|\.bmp)$/ ) {
$extension = ($param{'img1_1->name'} =~ m/\.([^\.][0-9a-zA-Z]*)$/);
$extension = $1;

$filename1_1 = $upload_dir.$param{'data_num2'}."_1".$extension;

if (open(OUT, ">$filename1_1")) {
binmode(OUT);
print OUT $param{'img1_1'};
close(OUT);
}
}

}

if ($param{'img1_2->name'} ne ""){
if ($param{'img1_2->name'} =~ /(\.gif|\.jpg|\.jpeg|\.pig|\.bmp)$/ ) {
$extension = ($param{'img1_2->name'} =~ m/\.([^\.][0-9a-zA-Z]*)$/);
$extension = $1;

$filename1_2 = $upload_dir.$param{'data_num2'}."_2".$extension;
if (open(OUT, ">$filename1_2")) {
binmode(OUT);
print OUT $param{'img1_2'};
close(OUT);
}
}
}
------------
<input type="file" size="50" name="img1_1">
か
<input type="file" size="50" name="img1_2">
のどちらか一方に画像ファイルを指定すれば大丈夫なんですが
両方画像を入れてしますと500エラーになってしまいます。

どのように修正すればいいんでしょうか？

回答No.1

okmotokun · ベストアンサー

use CGI;
$q = new CGI;
$param{'img1_1'}=$q->upload('img1_1');
$param{'img1_2'}=$q->upload('img1_2');
$param{'data_num2'}=$q->param('data_num2');
if($param{'img1_1'} ne ""){
if($param{'img1_1'}=~/\.(gif|jpg|jpeg|pig|bmp)$/){
$extension=$1;
$filename1_1=$upload_dir.$param{'data_num2'}."_1.".$extension;
if(open(OUT,">$filename1_1")){
binmode(OUT);
while(read($param{'img1_1'}, $buffer, 1024)){
print OUT $buffer;
}
close(OUT);
}
}
}

if($param{'img1_2'} ne ""){
if($param{'img1_2'}=~/\.(gif|jpg|jpeg|pig|bmp)$/){
$extension=$1;
$filename1_2=$upload_dir.$param{'data_num2'}."_2.".$extension;
if(open(OUT,">$filename1_2")){
binmode(OUT);
while(read($param{'img1_2'}, $buffer, 1024)){
print OUT $buffer;
}
close(OUT);
}
}
}

補足

回答ありがとうございます。
やはりエラーになります。
質問欄にあるものでは一度目はちゃんと2ファイル登録されることもあるんですが、次また登録しようとするとエラーになります。

$filename1_1=$upload_dir.$param{'data_num2'}."_1.".$extension;
の部分のドットの修正ありがとうございます。

回答No.2

okmotokun

＞ 一度目はちゃんと2ファイル登録されることもあるんですが、次また登録しようとするとエラーになります。

なぜでしょうねぇ。
私は何度やってみてもエラーにはなりません。正常にアップロードできます。
ただ、PNGファイルは保存できません。
if($param{'img1_1'}=~/\.(gif|jpg|jpeg|pig|bmp)$/){
行で指定されてませんから、、、