File: hello-1.pl.in

package info (click to toggle)
gettext 0.18.1.1-9
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 70,628 kB
  • sloc: ansic: 333,297; sh: 51,604; makefile: 8,355; perl: 4,181; lisp: 3,357; yacc: 665; java: 613; cs: 578; sed: 369; objc: 337; cpp: 325; awk: 80; tcl: 63; pascal: 11; php: 8
file content (20 lines) | stat: -rw-r--r-- 524 bytes parent folder | download | duplicates (14) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!@PERL@
# Example for use of GNU gettext.
# This file is in the public domain.
#
# Source code of the Perl program, using the Locale::Messages API.

use Locale::Messages qw (textdomain bindtextdomain gettext);
use POSIX qw(getpid);

binmode STDOUT, ':raw'; # Needed to make it work in UTF-8 locales in Perl-5.8.

sub _ ($) { &gettext; }

textdomain "hello-perl";
bindtextdomain "hello-perl", "@localedir@";

print _"Hello, world!";
print "\n";
printf _"This program is running as process number %d.", getpid();
print "\n";