November 19, 2003
明智さん、応援してます。
♪夜明けはもうはやくて
気が付くと夏になってた
♪朝焼けが今頃
どこかの国で
誰かの顔照らしてる
だって、もう限界。
明日に持ち越そう。
#!/usr/local/bin/perl
(フォームが表示されてしまうのでカット。でもたぶん、みんなおんなじとこ。)
$query = $ENV{'QUERY_STRING'};
@HOGE = split (/=/, $query);
&gamen();
&files(@HOGE[1]);
sub gamen{
open(FILE, '>>log.txt');
print "Content-Type: text/html\n\n";
print $head_html;
while(
print "$_
";
}
print $foot_html;
}
sub files{
open(FILE, '>>log.txt');
print FILE "@_";
close(FILE);
}
投稿者 POE : November 19, 2003 02:14 FM
トラックバック
このエントリーのトラックバックURL:
http://web.sfc.keio.ac.jp/~t03881nf/poeg/mt-tb.cgi/370