画像アップロード

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.