- 追加された行はこの色です。
- 削除された行はこの色です。
[[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";
}