Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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 imbibing at the Monastery: (11)
As of 2014-12-21 12:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (105 votes), past polls