 | KAKU PROJECT (2009) |
hoge.pl
最終更新：2009/10/28
001: #!c:/perl/bin/perl.exe
002:
003: use CGI;
004: my $query = CGI->new;
005:
006: print "Content-Type: text/html\r\n";
007: print "\r\n";
008: print "<html><head>\n";
009: print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
010: print "<title>CGI テスト</title><body>\n";
011: print "<p>Query:\n<ul>";
012:
013: foreach my $param ($query->param()) {
014: print "<li>[$param]=[",$query->param($param),"]\n";
015: }
016: print "</ul>\n";
017:
018: print "<p>Environments:\n<ul>";
019: foreach $key (sort(keys(%ENV))) {
020: print "<li>[$key]=[",$ENV{$key},"]\n";
021: }
022: print "</ul>\n";
023: print "</body></html>\n";
| KAKU PROJECT (2009) |