[perl]代码库
#-----------------------------
# 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) 回复
??
回复评论