趣味のプログラム工房

perlでリダイレクト

リダイレクトを行う方法には「.htacsess」を使う方法やhtmlのメタタグ(<meta 〜 >)を使う方法などがありますが、perlを使って行う方法もあります。
perlでリダイレクトを行う利点は.htacsessよりも細かな制御が行える点です。
私の場合、ある条件に合致したものだけ、ステータスを302でリダイレクトしたかったのですが、.htacsessでは実現できずperlを使いました。

.htacsessでは、ある条件のものだけ通常のリダイレクトや、すべてのアクセスを302でリダイレクトというのは出来たのですが、ある条件のものだけ302でリダイレクトというのは出来ませんでした。

perlでのリダイレクトはスクリプトの最初の方などに、

print "Location: リダイレクトしたいURL\n\n";

と書くだけ。
これで、リダイレクトが出来ます。
また、ステータスを指定したい場合は、上記リダイレクトの指定の前に、
print "Status:302 ";
を追加するだけです。(ステータス 302の場合)