HTMLファイル読み込み・条件指定リダイレクト
#! /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"; open(FILE, "<../../sample/sample1.html"); # HTMLファイル読み込み eval{ flock(FILE, 1) }; while($html = <FILE>){ print $html; } close FILE; exit;
〔 実行する 〕