Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Unicode combining characters as hash keys?

by Jim (Curate)
on Sep 02, 2011 at 22:32 UTC ( #923946=note: print w/ replies, xml ) Need Help??


in reply to Unicode combining characters as hash keys?

Use…

binmode(STDOUT, ':encoding(UTF-8)');

…instead of…

binmode(STDOUT, ":utf8");

Likewise, use…

open HASH, '<:encoding(UTF-8)', 'test_hash.txt'; ... open INPUTFILE, '<:encoding(UTF-8)', 'test_input.txt';

…instead of…

open HASH, '<:utf8', "test_hash.txt"; ... open INPUTFILE, '<:utf8', "test_input.txt";

Also, this looks wrong to me:

my @word = $entry =~ /(\X)/g;

Shouldn't that be…

my @word = $entry =~ /(\X+)/g;

…instead?

UPDATE: Upon reexamination, it looks right to me. :-/ Using the variable name @letters instead of @word would be an improvement, though. Then…

for my $letter (@letters) { my @input_features = @{ $hash{$letter} }; print join(" ", @input_features) . "\n"; }


Comment on Re: Unicode combining characters as hash keys?
Select or Download Code
Re^2: Unicode combining characters as hash keys?
by Anonymous Monk on Sep 03, 2011 at 08:20 UTC

    Thanks, Jim.

    I didn't understand the part you crossed out either at first. I didn't know using /.../g would return an array. But I found in the Perl Cookbook :-)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2015-07-04 20:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls