perl-cgi基础

代码： http://xxxxx/cgi/perl-cgi.cgi?name=itech&url=itech.cnblogs.com&p1=test1

#!/usr/bin/perl -wT

#should use strict and warnning

use warnings;

use strict;

use CGI;

#to debug error

use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

#or debug from command line by : perl -cwT yourcgi.cgi

#or debug by : tail /var/log/apache/error_log

#make sure yourcgi.cgi is world excutable or 755 permission

#just include sub features of cgi, standard means, 'html2', 'html3', 'html4', 'form' and 'cgi'.

#use CGI qw(:standard);

#must define and initialize

my $p1='';

my $p2='';

my $name='';

my $url='';

my $q = new CGI;

$p1 = $q->param('p1') if $q->param('p1');

$p2 = $q->param('p2') $q->param('p2') ;

$name = $q->param('name') $q->param('name') ;

$url = $q->param('url') $q->param('url');

print $q->header();

print $q->start_html(-title=>"Hello World");

print "p1:$p1<br>";

print "p2:$p2<br>";

if(!defined($p2)){print "p2 is not defined<br>";}

if($p2 eq ""){print "p2 is empty<br>";}

print <<EndHTML;

<h2>Hello</h2>

<p>

My name is $name, and my web url is

<a href="$url">$url</a>.

</p>

EndHTML

$q->h3('welcome to here!<br>');

print "$ENV{REMOTE_ADDR}<br>";

print $q->end_html();

完！