言語振り分けリダイレクト
#! /usr/local/bin/perl @arr = ( # 言語、転送先 ["ja", "../../sample/sample1.html"], ["en", "../../sample/sample2.html"], ["zh", "../../sample/sample3.html"] ); for($i = 0 ; $i < @arr ; $i++) { if($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /$arr[$i][0]/) { print "Location: $arr[$i][1]\n\n"; # 転送 exit; } } print "Location: ../../sample/\n\n"; # 他の言語、転送先 exit;
〔 実行する 〕