[[Lang/Perl]] * 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"; }