クローラやケータイによってリダイレクト先を変えるCGIの雛形(Perl) 2010-03-15-1 [Programming] クローラやケータイによっていろいろと内容を切り替えたい場合がある。 例えば、Googlebot が大量に来たときに暫定的に Google のトップページに飛ばしたりとか(嫌がらせ?)。 実現方法はいろいろあるんだけどここでは自分でコピペする用に Perl CGI の雛形を載せておく。 アマゾンを例に飛ばし先(リダイレクト先)を切り替える例。 切り替え部分は随時追加予定。 #!/usr/bin/perl -T use strict; use warnings; print "Content-Type: text/html\n"; my $qs = $ENV{'QUERY_STRING'} || ""; my $ua = $ENV{'HTTP_USER_AGENT'}