条件指定リダイレクト
#! /usr/local/bin/perl @arr = ( # 転送条件 # 特定ユーザーエージェント転送の場合 [$ENV{'HTTP_USER_AGENT'}, "DoCoMo"], [$ENV{'HTTP_USER_AGENT'}, "KDDI"], [$ENV{'HTTP_USER_AGENT'}, "Softbank"], # 特定IPアドレス転送の場合 [$ENV{'REMOTE_ADDR'}, "123.456.789.123"], # 特定リンク元転送の場合 [$ENV{'HTTP_REFERER'}, "https://www.webings.net/"] ); for($i = 0 ; $i < @arr ; $i++) { if($arr[$i][0] =~ $arr[$i][1]) { print "Location: ../../sample/\n\n"; # 転送 exit; } } print "Content-type: text/html\n\n"; print <<END; <html> <head> <title>リダイレクト(条件指定)</title> </head> <body> ようこそ!!<br> </body> </html> END exit;
〔 実行する 〕