[SA-5-1-2] PerlでCGI

1.Hello World!
#vi /var/www/cgi-bin/hello.cgi

hello.cgi

#!/usr/bin/perl

print "Content-type: text/html\n";
print "\n";
print "Hello World!";

#chmod 755 hello.cgi
ブラウザから
http://(サーバのIPアドレス)/cgi-bin/hello.cgi
を確認．


2.GET/POST
connectDB3.cgi

#!/usr/bin/perl

# GETメソッドの場合
if( $ENV{'REQUEST_METHOD'} eq "GET" ) {
    $std = $ENV{'QUERY_STRING'};
# POSTメソッドの場合
} else {
    read( STDIN, $std, $ENV{'CONTENT_LENGTH'} );
}
print "Content-Type: text/html\n\n\n";
print "Method :", $ENV{'REQUEST_METHOD'},"<br>\n";
print "Data   :", $std, "<br>\n";

my @pairs = split(/&/,$std);
foreach $pair (@pairs){
    my($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    print "$name : $value<br>";
}

ブラウザから，[SA-5-1-2]で作成したファイル
http://(サーバのIPアドレス)/index.html
を確認．
(Method, Data, num, host_name, ip_address, num, host_nameの各項目の値が表示されます)