Linux/Perl&CGIの稼動確認
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
**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; ch...
<TITLE>Env. Test CGI</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FF0000" AL...
<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...
}
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;}
終了行:
**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; ch...
<TITLE>Env. Test CGI</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FF0000" AL...
<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...
}
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;}
ページ名: