 |  |
use charnames HOW;
print "\N{CHARSPEC} is a funny character";
This lexically scoped pragma enables named characters to be interpolated into strings using the \N{CHARSPEC} notation:
use charnames ':full';
print "\N{GREEK SMALL LETTER SIGMA} is called sigma.\n";
use charnames ':short';
print "\N{greek:Sigma} is an upper-case sigma.\n";
use charnames qw(cyrillic greek);
print "\N{sigma} is Greek sigma, and \N{be} is Cyrillic b.\n";
The pragma supports HOW arguments :full and :short, as well as
specific script names.[1] The HOW argument determines how
the character specified by the CHARSPEC in
\N{CHARSPEC}}
is to be searched for. If :full is present, the CHARSPEC is
first looked for in the Unicode character tables as a complete Unicode
character name. If :short is present and CHARSPEC has the form
SCRIPTNAME:CHARNAME,
CHARNAME is looked for as a letter in
script SCRIPTNAME. If HOW contains specific script names,
CHARSPEC is looked for as an individual CHARNAME in each of the given
scripts, in the specified order.
[1] By which we don't mean Perl scripts. We mean "script" as in some particular style of written letters, like Roman or Greek or Cyrillic. Unfortunately, "script" is the technical term for that, and we're not likely to persuade the Unicode Consortium to use a different term.
For lookup of CHARNAME inside a given script SCRIPTNAME, the pragma looks in the table of standard Unicode names for patterns of the form:
If CHARNAME is entirely lowercase (as in \N{sigma}), the CAPITAL variant is ignored. Otherwise, the SMALL variant is ignored.SCRIPTNAME CAPITAL LETTER CHARNAME SCRIPTNAME SMALL LETTER CHARNAME SCRIPTNAME LETTER CHARNAME
You can write your own module that works like the charnames pragma but defines character names differently. However, the interface to that is still experimental, so see the manpage for the latest.
|  | |
| 31.5. use bytes |  | 31.7. use constant |
Copyright © 2002 O'Reilly & Associates. All rights reserved.