Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: Unicode problem

by dakkar (Hermit)
on Jun 19, 2005 at 09:55 UTC ( #468087=note: print w/ replies, xml ) Need Help??


in reply to Unicode problem

Works for me, Perl 5.8.2 on Linux. I wrote:

#!/usr/bin/perl
use utf8;

open my $fh,'<:encoding(sjis)','j.sjis.txt';
my $string='言葉';
print index(<$fh>,$string);

saving it as 'j.pl' as utf-8, and

日本語の言葉

saving it as 'j.sjis.txt' as shift-jis.

Running it:

$ perl j.pl j.sjis.txt
4

(yes, I used <pre> instead of <code>... but <code> would not let me use character entities, and without the proper characters this answer would be useless)

-- 
        dakkar - Mobilis in mobile

Most of my code is tested...

Perl is strongly typed, it just has very few types (Dan)


Comment on Re: Unicode problem
Re^2: Unicode problem
by edis (Acolyte) on Jun 20, 2005 at 01:38 UTC
    Sorry, it was my fault, the short lookup string was incorrect (I can't read Japanese, but need to work with it). Everything works fine now.

    Thanks all for the help.

    Edvinas

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-09-02 18:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (29 votes), past polls