Linux/Perl＆CGIの稼動確認のバックアップソース(No.3)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
Linux/Perl＆CGIの稼動確認へ行く。
- 1 (2003-10-18 (土) 14:34:11)
- 2 (2003-11-16 (日) 14:29:35)
- 3 (2003-11-18 (火) 16:13:51)

**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
となります。


#navi(Linux)

SIZE(10){現在のアクセス:&counter;}

Linux/Perl＆CGIの稼動確認 のバックアップソース(No.3)

Linux/Perl＆CGIの稼動確認のバックアップソース(No.3)