2 # Example for use of GNU gettext.
3 # This file is in the public domain.
5 # Source code of the Perl program, using the Locale::Messages API.
7 use Locale
::Messages qw
(textdomain bindtextdomain gettext
);
10 binmode STDOUT
, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.
12 sub _
($) { &gettext
; }
14 textdomain
"hello-perl";
15 bindtextdomain
"hello-perl", "@localedir@";
17 print _
"Hello, world!";
19 printf _
"This program is running as process number %d.", getpid
();