perl实例之post cgi参数的例子

#!/bin/perl
   
use HTTP::Request::Common;
use LWP::UserAgent;
$user_agent = LWP::UserAgent->new;
$request = POST 'http://www.jb200.com/cgireader.cgi',[text1 => 'Hello', text2 => 'there'];
$response = $user_agent->request($request);
print $response->as_string;

#!/usr/local/bin/perl

use CGI;                            

$co = new CGI;                       
print $co->header,                   

$co->start_html(
    -title=>'CGI Example',
    -author=>'yourName',
    -BGCOLOR=>'white',
    -LINK=>'red'
);

if ($co->param()) {
    print
        "You entered this text: ",
        $co->em($co->param('text1')),
        " ",
        $co->em($co->param('text2')),
        ".";
} else {
    print "Sorry, I did not see any text.";
}

print $co->end_html;