Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^2: What bytes are in character class \p{Pe} ClosePunctuation?

by Anonymous Monk
on Mar 16, 2010 at 08:08 UTC ( [id://828843]=note: print w/replies, xml ) Need Help??


in reply to Re: What bytes are in character class \p{Pe} ClosePunctuation?
in thread What bytes are in character class \p{Pe} ClosePunctuation?

Thanks, that looks like what I want, but what is the format? Is 301E    301F a range, or two entries?
# !!!!!!! DO NOT EDIT THIS FILE !!!!!!! # This file is built by mktables from e.g. UnicodeData.txt. # Any changes made here will be lost! # This file is for internal use by the Perl program only. The format +and even # name or existence of this file are subject to change without notice. + Don't # use it directly. # # This file supports: # \p{Pe} # \p{Pe} (and fuzzy permutations) # # Meaning: General Category 'Pe' # return <<'END'; 0029 005D 007D 0F3B 0F3D 169C 2046 207E 208E 232A 2769 276B 276D 276F 2771 2773 2775 27C6 27E7 27E9 27EB 27ED 27EF 2984 2986 2988 298A 298C 298E 2990 2992 2994 2996 2998 29D9 29DB 29FD 2E23 2E25 2E27 2E29 3009 300B 300D 300F 3011 3015 3017 3019 301B 301E 301F FD3F FE18 FE36 FE38 FE3A FE3C FE3E FE40 FE42 FE44 FE48 FE5A FE5C FE5E FF09 FF3D FF5D FF60 FF63 END

Replies are listed 'Best First'.
Re^3: What bytes are in character class \p{Pe} ClosePunctuation?
by JavaFan (Canon) on Mar 16, 2010 at 10:45 UTC
    The syntax of the format is described in the perlunicode manual page.
Re^3: What bytes are in character class \p{Pe} ClosePunctuation?
by Hue-Bond (Priest) on Mar 16, 2010 at 08:14 UTC

    By looking at the first entry in Ll.pl, which is 0061    007A, I would guess it's a range.

    --
     David Serrano
     (Please treat my english text just like Perl code, i.e. feel free to notify me of any syntax, grammar, style and/or spelling error. Thank you!).

      I would guess it's a range

      ...which is also confirmed by this piece of code from mktables (which creates those tables):

      sub Table::Write { ... for my $set (@$Table) { my $start = $set->[RANGE_START]; my $end = $set->[RANGE_END]; my $name = $set->[RANGE_NAME]; if ($start == $end) { push @OUT, sprintf "%04X\t\t%s\n", $start, $name; } else { push @OUT, sprintf "%04X\t%04X\t%s\n", $start, $end, $name +; } }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://828843]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2024-03-28 21:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found