Section: User Contributed Perl Documentation (3pm)
use Locale::gettext; use POSIX; # Needed for setlocale() setlocale(LC_MESSAGES, ""); # OO interface my $d = Locale::gettext->domain("my_program"); print $d->get("Welcome to my program"), "\n"; # (printed in the local language) # Direct access to C functions textdomain("my_program"); print gettext("Welcome to my program"), "\n"; # (printed in the local language)
The gettext module permits access from perl to the gettext() family of functions for retrieving message strings from databases constructed to internationalize software.
- $d = Locale
- $d = Locale
- :gettext->domain_raw(DOMAIN):Creates a new object for retrieving strings in the domain DOMAIN and returns it.
"domain"requests that strings be returned as Perl strings (possibly with wide characters) if possible while
"domain_raw"requests that octet strings directly from functions like
"dgettext()"to return the translated string for the given MSGID.:
- $d->cget(MSGID, CATEGORY)
"dcgettext()"to return the translated string for the given MSGID in the given CATEGORY.:
- $d->nget(MSGID, MSGID_PLURAL, N)
"dngettext()"to return the translated string for the given MSGID or MSGID_PLURAL depending on N.:
- $d->ncget(MSGID, MSGID_PLURAL, N, CATEGORY)
"dngettext()"to return the translated string for the given MSGID or MSGID_PLURAL depending on N in the given CATEGORY.:
- If NEWDIR is given, calls
"bindtextdomain"to set the name of the directory where messages for the domain represented by
$dare found. Returns the (possibly changed) current directory name.:
- For instances created with
"Locale::gettext->domain_raw", manuiplates the character set of the returned strings. If NEWCODE is given, calls
"bind_textdomain_codeset"to set the character encoding in which messages for the domain represented by
$dare returned. Returns the (possibly changed) current encoding name.:
"msgid"parameter within the context of the current locale. dcgettext() takes the message's category and the text domain as parameters while dgettext() defaults to the LC_MESSAGES category and gettext() defaults to LC_MESSAGES and uses the current text domain. If the string is not found in the database, then
ngettext(), dngettext(), and dcngettext() function similarily but implement differentiation of messages between singular and plural. See the documentation for the corresponding C functions for details.
textdomain() sets the current text domain and returns the previously active domain.bindtextdomain(domain, dirname) instructs the retrieval functions to look for the databases belonging to domain
"domain"in the directory
bind_textdomain_codeset(domain, codeset) instructs the retrieval functions to translate the returned messages to the character encoding given by codeset if the encoding of the message catalog is known.
Not all platforms provide all of the functions. Functions that are not available in the underlying C library will not be available in Perl either.Perl programs should use the object interface. In addition to being able to return native Perl wide character strings,
"bind_textdomain_codeset"will be emulated if the C library does not provide it.
Phillip Vandry <[email protected]>