diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-07 00:41:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-07 00:41:16 +0000 |
| commit | f586891147968a00cb7ac4921d1b2a415e9091bd (patch) | |
| tree | 81cd9518c13a30d930f7df17e124fd94fbd3de9d /pod | |
| parent | 8692993118c7bb6d29743e2f564d11368140b2bf (diff) | |
| download | perl-f586891147968a00cb7ac4921d1b2a415e9091bd.tar.gz | |
More tweakage on the Unicode character class descriptions.
p4raw-id: //depot/perl@9062
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perlretut.pod | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/pod/perlretut.pod b/pod/perlretut.pod index ad62873725..fa6479c0c4 100644 --- a/pod/perlretut.pod +++ b/pod/perlretut.pod @@ -1725,20 +1725,20 @@ traditional Unicode classes: Perl class name Unicode class name or regular expression - IsAlpha ^[LM] - IsAlnum ^[LMN] - IsASCII $code le 127 - IsCntrl ^C - IsBlank ^Z[^lp] or $code eq "0009" + IsAlpha /^[LM]/ + IsAlnum /^[LMN]/ + IsASCII $code <= 127 + IsCntrl /^C/ + IsBlank $code =~ /^(0020|0009)$/ || /^Z[^lp]/ IsDigit Nd - IsGraph ^([LMNPS]|Co) + IsGraph /^([LMNPS]|Co)/ IsLower Ll - IsPrint ^([LMNPS]|Co|Zs) - IsPunct ^P - IsSpace ^Z or ($code =~ /^(0009|000A|000B|000C|000D)$/ - IsSpacePerl ^Z or ($code =~ /^(0009|000A|000C|000D)$/ - IsUpper ^L[ut] - IsWord ^[LMN] or $code eq "005F" + IsPrint /^([LMNPS]|Co|Zs)/ + IsPunct /^P/ + IsSpace /^Z/ || ($code =~ /^(0009|000A|000B|000C|000D)$/ + IsSpacePerl /^Z/ || ($code =~ /^(0009|000A|000C|000D)$/ + IsUpper /^L[ut]/ + IsWord /^[LMN]/ || $code eq "005F" IsXDigit $code =~ /^00(3[0-9]|[46][1-6])$/ You can also use the official Unicode class names with the C<\p> and |