かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】

#! /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;