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:実行