画像アップロード
JPG画像をアップロードします。画像入力にcgi-lib.plライブラリを利用します。
formタグで enctype="multipart/form-data"を指定します。
画像入力のinputタグで type=file を指定します。
$in{'img'}    画像の入力データです。&ReadParseによってデータがセットされます。
&img("pic");  画像ファイル名をpicとしてimgサブルーチンを呼び出します。
if ($in[0] =~ /Content-Type: image\/.*jpeg/i) {
 JPG画像の判定です。&ReadParseによって@inにフォーム入力の情報がセットされます。
■プログラム (sample9.cgi)
require './cgi-lib.pl';
&ReadParse;
print "<form action=\"sample9.cgi\" method=POST enctype=\"multipart/form-data\">\n";
print "<input type=file name=img size=60> <input type=submit value=\"アップロード\"></form>\n";
if ($in{'img'}) {
&img("pic");
print "<img src=\"pic.jpg\">";
}
###
sub img {
if ($in[0] =~ /Content-Type: image\/.*jpeg/i) {
open OUT,">$_[0].jpg";
binmode OUT;
print OUT $in{'img'};
close OUT;
}
}
■実行結果
 


HOME Copyright (C) CGI-design All Rights Reserved.