2008-06-20 [Fri] [長年日記]
_ 独学日記 ではPerl5の'CGI.pm'で
まず,Perl5での手法はより直接的になり"GetPost.cgi"を次のようにしてみる。
#!C:/perl/bin/perl
use CGI qw(:standard);
$Wname=param('name');
$Wmail=param('mail');
$Wzip=param('zip');
$Wzip_q=param('zip_q');
$Wfile=param('file');
$Wall=param('all');
print "Content-type: text/html\n\n";
print "name:$Wname<br>\n";
print "mail:$Wmail<br>\n";
print "zip:$Wzip<br>\n";
print "zip_q:$Wzip_q<br>\n";
print "file:$Wfile<br>\n";
print "all:$Wall<br>\n";
exit;
上記でディスクトップ上にある"hoge.gif"を指定し実行させると,次のようになる。
name:hoge mail:hoge@hoge.com zip:7777777 zip_q: file:C:\Documents and Settings\hoge\デスクトップ\hoge.gif all:実行