NAME HTTP::AcceptLanguage - Accept-Language header parser and find available language HOW DO I USE THIS MODULE WITH WITH CGI.pm use HTTP::AcceptLanguage; my $lang = HTTP::AcceptLanguage->new($ENV{HTTP_ACCEPT_LANGUAGE})->match(qw/ en fr es ja zh-tw /); WITH raw PSGI use HTTP::AcceptLanguage; my $lang = HTTP::AcceptLanguage->new($env->{HTTP_ACCEPT_LANGUAGE})->match(qw/ en fr es ja zh-tw /); WITH Plack::Request use HTTP::AcceptLanguage; my $lang = HTTP::AcceptLanguage->new($req->header('Accept-Language'))->match(qw/ en fr es ja zh-tw /); SYNOPSIS Good example of the input and output. # If language quality is the same then order by match method's input list my $accept_language = HTTP::AcceptLanguage->new('en;q=0.5, ja;q=0.1'); $accept_language->match(qw/ th da ja /); # -> ja $accept_language->match(qw/ en ja /); # -> en my $accept_language = HTTP::AcceptLanguage->new('en, da'); $accept_language->match(qw/ da en /); # -> en $accept_language->match(qw/ en da /); # -> en You can obtain the order of preference of the available languages ââlist of client my $accept_language = HTTP::AcceptLanguage->new('en, ja;q=0.3, da;q=1, *;q=0.29, ch-tw'); $accept_language->languages; # -> en, da, ch-tw, ja, * You can use the 0.01 version spec. (next version is deplicated) local $HTTP::AcceptLanguage::MATCH_PRIORITY_0_01_STYLE = 1; my $accept_language = HTTP::AcceptLanguage->new('en, da'); $accept_language->match(qw/ da en /); # -> da $accept_language->match(qw/ en da /); # -> en DESCRIPTION HTTP::AcceptLanguage is HTTP Accept-Language header parser And you can find available language by Accept-Language header. METHODS new($ENV{HTTP_ACCEPT_LANGUAGE}) It to specify a string of Accept-Language header. match(@available_language) By your available language list, returns the most optimal language. If language-quality has the same value, is a priority order of the new($ENV{HTTP_ACCEPT_LANGUAGE}). languages Returns are arranged in order of quality language list parsed. AUTHOR Kazuhiro Osawa <yappo {at} shibuya {dot} pl> COPYRIGHT Copyright 2013- Kazuhiro Osawa LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO RFC2616, I18N::AcceptLanguage