Lang/Perl/CGI の履歴差分(No.2)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 履歴 を表示
• Lang/Perl/CGI へ行く。
  • 1 (2010-04-26 (月) 00:20:28)
  • 2 (2013-02-22 (金) 22:23:07)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[Lang/Perl]]
#topicpath

* CGI でステータスコードを返す方法 [#c29d5a6f]
- 参考：[[Perlでステータスコードを返すとき>http://www.yanbe.net/blog/archives/000371.html]]
- 例：
 #!/usr/bin/perl
 # 引数で渡した値がHTTP_STATUSとなる。
 use English;
 my ($HTTP_STATUS) = 200;
 
 foreach $argv (@ARGV) {
   $HTTP_STATUS = $argv;
 }
 &return_status_code ($HTTP_STATUS);
 exit 0;
 
 ####################################################################
 sub return_status_code {
   my ($http_status) = $_[0];
 
   print "Content-type: text/html\n";
   print "Status: $http_status\n";
   print "HTML";
  
 }