Line | |
---|
1 | package locale;
|
---|
2 |
|
---|
3 | our $VERSION = '1.00';
|
---|
4 |
|
---|
5 | =head1 NAME
|
---|
6 |
|
---|
7 | locale - Perl pragma to use and avoid POSIX locales for built-in operations
|
---|
8 |
|
---|
9 | =head1 SYNOPSIS
|
---|
10 |
|
---|
11 | @x = sort @y; # ASCII sorting order
|
---|
12 | {
|
---|
13 | use locale;
|
---|
14 | @x = sort @y; # Locale-defined sorting order
|
---|
15 | }
|
---|
16 | @x = sort @y; # ASCII sorting order again
|
---|
17 |
|
---|
18 | =head1 DESCRIPTION
|
---|
19 |
|
---|
20 | This pragma tells the compiler to enable (or disable) the use of POSIX
|
---|
21 | locales for built-in operations (LC_CTYPE for regular expressions, and
|
---|
22 | LC_COLLATE for string comparison). Each "use locale" or "no locale"
|
---|
23 | affects statements to the end of the enclosing BLOCK.
|
---|
24 |
|
---|
25 | See L<perllocale> for more detailed information on how Perl supports
|
---|
26 | locales.
|
---|
27 |
|
---|
28 | =cut
|
---|
29 |
|
---|
30 | $locale::hint_bits = 0x4;
|
---|
31 |
|
---|
32 | sub import {
|
---|
33 | $^H |= $locale::hint_bits;
|
---|
34 | }
|
---|
35 |
|
---|
36 | sub unimport {
|
---|
37 | $^H &= ~$locale::hint_bits;
|
---|
38 | }
|
---|
39 |
|
---|
40 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.