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>