Perlの画像アップロードスクリプトのエラー

とあるフリーのCGIスクリプトを使ってサイト運営をしようとしていますが、画像をアップロードする部分で、gif,jpgはできるのですが、pngではエラーになります(「画像が判別できません。」と表示されます。仕様上は3種類可)。
下記が該当部分だと思いますが、どのように修正すればよいか教えていただければ幸いです(関係ないと思いますが、httpsのサイトです)。

if($form{file1} && !$form{ok1} && !$main_img){
$file_type_temp1 = @form[0];
($temp_file1, $content_type1) = split ("\n", $file_type_temp1);
chop $content_type1;
$file1 = "";
if($content_type1 =~ /^Content-Type: image\/gif$/){
$file1 = "$time\_1\.gif";
$sh1 = "gif";
}
elsif($content_type1 =~ /^Content-Type: image\/pjpeg$/ or $content_type1 =~ /^Content-Type: image\/jpeg$/){
$file1 = "$time\_1\.jpg";
$sh1 = "jpg";
}
elsif($content_type1 =~ /^Content-Type: image\/x-png$/){
$file1 = "$time\_1\.png";
$sh1 = "png";
}
else{
&error("$content_type1","画像が判別できません。");
}

回答の条件
  • 1人1回まで
  • 13歳以上
  • 登録:2018/05/07 19:27:20
  • 終了:2018/05/07 20:21:50

ベストアンサー

id:tkyk3 No.1

tkyk3回答回数60ベストアンサー獲得回数72018/05/07 19:51:25

ポイント500pt
	elsif($content_type1 =~ /^Content-Type: image\/x-png$/ or $content_type1 =~ /^Content-Type: image\/png$/){

じゃ駄目でしょうか?

id:etk

おかげさまで解決しました。ありがとうございます!

2018/05/07 20:21:22
id:tkyk3

こちらこそ、久々にPerl質問で嬉しかったです(^o^)

2018/05/07 21:00:06

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません