Lang/Perl/CGI の履歴(No.1)

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

Lang/Perl

CGI でステータスコードを返す方法†

• 参考：Perlでステータスコードを返すとき
• 例：

  #!/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";
   
  }