![[PukiWiki]](https://www.masatom.in/pukiwiki/image/kinosite.png "[PukiWiki]"){kind=small}
Perl ＆ CGIの稼動テストプログラムprint.cgi#!/usr/bin/perl
print "Content-type: text/html\n\n";
print <<_HTML_;
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=EUC-JP">
<TITLE>Env. Test CGI</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FF0000" ALINK="#FFFF00" VLINK="#FF0000">
<H2>Env. Test CGI</H2>
<BR>
<TABLE BORDER=2 CELLPADDING=2 CELLSPACING=2>
_HTML_
foreach $name (sort(keys %ENV)) {
print qq(<TR><TD BGCOLOR="#300000" NOWRAP>$name</TD><TD BGCOLOR="#003000" NOWRAP>$ENV{$name}</TD></TR>\n);
}
print <<_HTML_;
</TABLE><P>
</BODY>
</HTML>
_HTML_
exit;
一行目の #!/usr/bin/perl は環境によって(例えばWindowsの場合など) #!c:/perl/bin/perl となります。 エラーが出た場合。Premature end of script headers: test.cgi ってPermissionがないじゃん 現在のアクセス:5405 |
