Perlで301リダイレクト

サラトガIT日記 > Perl > Perlで301リダイレクト Perlで301リダイレクト

※実経験の記憶を頼りに自宅の PC 環境(VMWareなど)で再現している内容もあるのでご注意下さい

2009-10-23

 

今まで Perl が使われているサイトで 301 リダイレクトを使う機会がなかったのですが、今回機会に恵まれたので実装してみました。

CGI のリダイレクト機能(redirect())を使う方法もありますが、これだと 302 のステータスコードになるので、明示的にベタ書き。

#!/usr/bin/perl

print "Status: 301 Moved Permanently\n";
print "Location: http://pakapaka.jp/\n\n";
exit;

関連記事

上記の記事に関連する記事(最新の10件)です。