だから・ね，

_ 独学日記　ではPerl4の'cgi-lib.pl'で

まず，Perl5の前にPerl4での手法として"GetPost.cgi"を次のようにしてみる。

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

　"cgi-lib.pl"を同一フォルダーに置き，アップロードしない場合は次のようになる。

 all: 実行
 file: 
 mail: hoge@hoge.com
 name: hoge
 zip: 7777777

　ふぁいるのアップロードをする場合の表示は，崩れたので，'file'の値をバイナリーとして保存すればよいと考える。

 $arg=$in{'file'};
 open (OUT,"> temp.dat");
 	binmode(OUT);
 	print OUT $arg;
 close (OUT);

_ 今月もピンチ

ついついボをアテにしすぎてた。いかんなぁ

_ 家族の転院

退院ならよかったんだけどね。昨日，職場のスグ近くの病院に入院していた家族が安定したという理由で個人病院に転院した。これでお昼の時間に様子を見に行くことが困難になってしまったな。