|
#!/usr/bin/perl require 'parse.pl'; &parse_form; print"Content-type:text/html\n\n"; $file = $v{'file'}; if ($file ne "evalresult.txt" && $file ne "regist.txt") { print "Invalid file"; exit; } if ($v{'opt'} eq "list") { open(STDIN,$file); @r = <STDIN>; close(STDIN); print "List data in file : ok<hr>"; print "<pre>@r</pre>"; } elsif ($v{'opt'} eq "clear") { unlink("$file"); print "Delete file : ok"; } else { print "Please back and select your option"; } |