thank you very much for your time#!/agl/tools/perl/bin/perl $file = 'home/testuser3/choicebug.txt'; sub GetParams { my $webparams; if ($ENV{'QUERY_STRING'} ne '') { $webparams = "$ENV{'QUERY_STRING'}"; } else { read(STDIN, $webparams, $ENV{'CONTENT_LENGTH'}); } return $webparams; } open(FILE, ">>$file")||die "Can't open $file"; GetParams(); while (<$webparams>) { print $webparams; } close (FILE);
In reply to save form by Anonymous2003
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |