ねっとまがじん2 インターネットを楽しむ ねっとまがじん(ネットマガジン)  

 

管理専用CGI Perl メモ:画像≫画像が jpg かどうかのチェック このページを閉じる
2009年12月10日 15時21分05秒
ねっとまがじん
画像が jpg かどうかのチェック

 

 

画像が選択されたどうかの判定

$i_upfile = $in{'upfile'}; # UPファイル
#--- 画像ファイルの有無チェック
if (length($i_upfile) == 0) {&error("エラー:画像が未選択です!");}

#--- 画像ファイルのチェック 受信データの Content-type 部分から拡張子を探す
foreach $tmp (@in) {
if ($tmp =~ /(.*)Content-type:(.*)/i) {
if ($2 =~ /image\/jpeg/i) { $ext = '.jpg'; }
elsif ($2 =~ /image\/pjpeg/i) { $ext = '.jpg'; }
elsif ($2 =~ /image\/gif/i) { $ext = '.gif'; }
elsif ($2 =~ /image\/png/i) { $ext = '.png'; }
else { $ext = 'NO'; }
}
}
if (($ext eq 'NO') || ($ext eq '')) {
&error("エラー:許可されていない画像形式です!");
}

※色々とやり方はあると思うが、作りはじめの頃に検索で見つけた方法を参考にしたもの。
※Image::Magick でも出来そうな感じがするが。。。

 

 

 

 

注意≫最初に登録されたトピックス(1件目)を削除すると管理フォルダも削除されます。
▼上記記事を削除したいとき。
 会員No(必須)
 パスワード(必須)

 

ねっとまがじん

ねっとまがじん2 ねっとまがじん ねっとまがじん