in reply to Re: regex for utf-8
in thread regex for utf-8

wow! Why are there only 27 entries in the table? The practical task that I am to do is search on a utf-8 encoded file of tab-delimited strings, and find the non-ascii characters. From there I want to capture one of the tabbed fields (an ID#), the phrase containing the non-ascii character (another tabbed field), and keep a count of how many of each non-ascii character I have. I believe I would need to include something like: 
...
while<FILE>{
  if ( /[\x80..\xFF]/ ){
    @fields = split /\t/, $_;
    ($con_id, $desc_id, $string) = @fields[0,1,4]; 
...

[download]
but that wouldn't reallycapture non-ascii containing strings, because utf-8 has the multibyte feature for codes >= x80. How can I catch the utf-8 characters that are non-ascii (which are multi-byte encoded)?

Replies are listed 'Best First'.
Re: Re: Re: regex for utf-8
by Thelonius (Priest) on Feb 28, 2003 at 03:34 UTC
    There are only 27 entries because all the rest of the 256 entries map to themselves (Windows-1252 is a superset of Latin-1.) There are also some fallback entries that could be added that are not bidirectional. And of course there are thousand of Unicode characters that are not in Windows-1252, but what can you do about that?

    UTF-8 is multibyte for codes >= x80, but those multiple bytes always have the high bit set! That's one of the nice features of UTF8. Of course you meant to say [\x80-\xff]. You can also easily tell the number of bytes per character just by looking at the first byte. See this table from RFC2279:

       UCS-4 range (hex.)           UTF-8 octet sequence (binary)
   0000 0000-0000 007F   0xxxxxxx
   0000 0080-0000 07FF   110xxxxx 10xxxxxx
   0000 0800-0000 FFFF   1110xxxx 10xxxxxx 10xxxxxx

   0001 0000-001F FFFF   11110xxx 10xxxxxx 10xxxxxx 10xxxxxx
   0020 0000-03FF FFFF   111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx
   0400 0000-7FFF FFFF   1111110x 10xxxxxx ... 10xxxxxx

    [download]
    If the high bit is set, then the number of consecutive ones following that is the number of bytes that follow. And all of those start with "10" so you can't confuse them with ASCII characters or with a leading byte of a UTF-8 sequence. Pretty easy!

    If you notice, the lead byte of a multibyte sequence is going to be in the range [\xc0-\xfd]

[reply]
[d/l]
[select]
      I am wrapping my head around the bit-masking and conditional bit-shifting I need to do to extract the actual value of the code. The czyborra site http://czyborra.com/utf/ is invaluable, but my head is thick. How do I march down from the high bit of the first byte, testing and then extracting the hex codes from the succeeding bits?
[reply]
        I am wrapping my head around the bit-masking and conditional bit-shifting I need to do to extract the actual value of the code. The czyborra site http://czyborra.com/utf/ is invaluable, but my head is thick. How do I march down from the high bit of the first byte, testing and then extracting the hex codes from the succeeding bits?
        That's what unpack "U*" does.
[reply]

In Section Seekers of Perl Wisdom