Diary/2008-6-19の変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

独学日記　ではPerl4の'cgi-lib.pl'で
まず，Perl5の前にPerl4での手法として"GetPost.cgi"を次のようにしてみる。
<pre>
 #!C:/perl/bin/perl
 require './cgi-lib.pl';
 local($key,$val);
 &ReadParse;
 while ( ($key,$val) = each(%in) ) {
 	$in{$key} = $val;
 }
 print "Content-type: text/html\n\n";
 foreach (sort keys %in) {
 	print "$_: $in{$_}<BR>\n";
 }
 print "<hr/>\n";
 foreach (@in) {
 	print "$_ <BR>\n"
 }
 exit;
</pre>

　"cgi-lib.pl"を同一フォルダーに置き，アップロードしない場合は次のようになる。
<pre>
 all: 実行
 file: 
 mail: hoge@hoge.com
 name: hoge
 zip: 7777777
</pre>

　ふぁいるのアップロードをする場合の表示は，崩れたので，'file'の値をバイナリーとして保存すればよいと考える。
<pre>
 $arg=$in{'file'};
 open (OUT,"> temp.dat");
 	binmode(OUT);
 	print OUT $arg;
 close (OUT);
</pre>