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

となります。

現在のアクセス:5042

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS