トップ «前の日記(2008-06-19 [Thu]) 最新 次の日記(2008-06-21 [Sat])» 編集



だから・ね,


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

過去の日記
トップ «前の日記(2008-06-19 [Thu]) 最新 次の日記(2008-06-21 [Sat])» 編集