The module I18N::AcceptLanguage performs this task by matching language preference to available languages defined in this HTTP/1.1 header field.
From the documentation for this module:
use I18N::AcceptLanguage; my $supportedLanguages = [( 'en-us', 'fr' )]; my $acceptor = I18N::AcceptLanguage->new; my $language = $acceptor->accepts( $ENV{'HTTP_ACCEPT_LANGUAGES'}, $sup +portedLanguages );
perl -le 'print+unpack("N",pack("B32","00000000000000000000000111110100"))'
In reply to Re: Language Guess from IP
by rob_au
in thread Language Guess from IP
by PetaMem
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |