Diary/2008-6-20

独学日記　ではPerl5の'CGI.pm'でまず，Perl5での手法はより直接的になり"GetPost.cgi"を次のようにしてみる。<pre>

#!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;

</pre>

　上記でディスクトップ上にある"hoge.gif"を指定し実行させると，次のようになる。<pre>

name:hoge
mail:hoge@hoge.com
zip:7777777
zip_q:
file:C:\Documents and Settings\hoge\デスクトップ\hoge.gif
all:実行

</pre>