perlでリダイレクト
リダイレクトを行う方法には「.htacsess」を使う方法やhtmlのメタタグ(<meta ~ >)を使う方法などがありますが、perlを使って行う方法もあります。perlでリダイレクトを行う利点は.htacsessよりも細かな制御が行える点です。
私の場合、ある条件に合致したものだけ、ステータスを302でリダイレクトしたかったのですが、.htacsessでは実現できずperlを使いました。
.htacsessでは、ある条件のものだけ通常のリダイレクトや、すべてのアクセスを302でリダイレクトというのは出来たのですが、ある条件のものだけ302でリダイレクトというのは出来ませんでした。
perlでのリダイレクトはスクリプトの最初の方などに、
print "Location: リダイレクトしたいURL\n\n";
と書くだけ。
これで、リダイレクトが出来ます。
また、ステータスを指定したい場合は、上記リダイレクトの指定の前に、
print "Status:302 ";
を追加するだけです。(ステータス 302の場合)