#!/usr/bin/perl require 'cgi-lib.pl'; &ReadParse( *form ); $name = $form{'yourname'}; open(LOG,"log.dat") ; @oldlog = ; close(LOG); if (!($name eq '')){ open(LOG,">log.dat") ; unshift (@oldlog,"$name\n"); print LOG @oldlog; close(LOG); } #htmlを表示 print "Content-type: text/html\n\n"; print "\n"; print <<"HTML";
入力=>
HTML foreach $com( @oldlog ){ print "==>$com
"; } print "\n"; exit; __END__