#----------------------------- |
# download the following standalone program |
#!/usr/bin/perl -w |
# hiweb - load CGI module to decode information given by web server |
use strict; |
use CGI qw ( :standard escapeHTML ); |
# get a parameter from a form |
my $value = param ( 'PARAM_NAME' ); |
# output a document |
print header(), start_html ( "Howdy there!" ), |
p ( "You typed: " , tt ( escapeHTML ( $value ) ) ), |
end_html(); |
#----------------------------- |
use CGI qw ( :standard ); |
$who = param ( "Name" ); |
$phone = param ( "Number" ); |
@picks = param ( "Choices" ); |
#----------------------------- |
print header ( -TYPE => 'text/plain' , |
-EXPIRES => '+3d' ); |
#----------------------------- |
by: 发表于:2017-09-13 14:16:07 顶(0) | 踩(0) 回复
??
回复评论