- 追加された行はこの色です。
- 削除された行はこの色です。
**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がないじゃん
#navi(Linux)
SIZE(10){現在のアクセス:&counter;}