perl-unicode

Re: trouble with using lc() and uc() with unicode strings

2001-08-11 10:25:14
On Wed, Aug 08, 2001 at 12:37:55PM -0700, Zachary Mason wrote:

Hi all.  lc() and uc() don't work for me on unicode strings with activestate
perl
on windows - they return their arguments unchanged, or,  lc($foo) ==
uc($foo) == $foo for all unicode strings $foo.  Any thoughts or workarounds?

I'm not using ActivePerl but in UNIX the Perl 5.6.1 seems to be
working okay:

$ perl -Ilib -le 'print join(" ", map { sprintf "%x", $_ } unpack("U*", 
lc("\x{100}\x{101}\x{41}\x{61}")))' 
101 101 61 61

$ perl -Ilib -le 'print join(" ", map { sprintf "%x", $_ } unpack("U*", 
uc("\x{100}\x{101}\x{41}\x{61}")))'  
100 100 41 41

thanks
Zachary Mason

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

<Prev in Thread] Current Thread [Next in Thread>