Re: Perl -- use locale

To Debian CZ/SK project discussion list <czdebian-l zavinac debian bod cz>
From Václav Ovsík <vaclav bod ovsik zavinac i bod cz>
Date Fri, 27 Jun 2008 17:00:04 +0200
Mail-followup-to Debian CZ/SK project discussion list <czdebian-l zavinac debian bod cz>
User-agent Mutt/1.5.18 (2008-05-17) 
Ahoj,

On Fri, Jun 27, 2008 at 09:35:55AM +0200, Marek Nožka wrote:
... 
> Podle toho, co jsem našel, stačí, když mám nastavené dobře locale a v
> Perlu si jen připojím pragmatický modul locale. Sort funguje:
> 
> #!/usr/bin/perl -w 
> 
> use locale;
> 
> @pole=qw(šiška marek ucho čaj žička);
> @pole=sort(@pole);
> 
> foreach $a (@pole) {
>       print "$a \n";
> }
> 
> Ale pokud přidám něco jako:
> 
>     $a =~ s/\W//g;
> 
> nebo:
> 
> print "\Uěščřžabcd\E";
> 
> tak to nechodí a znaky s diakritikou se nechovají jako alfanumerické
> znaky. Pokud explicitně nastavím proměnnou prostředí přímo v Perlu:
> 
> setlocale LC_CTYPE 'cs_CZ.UTF-8';
> 
> je výsledek stále stejný:
...

use utf8;
?

man perlunicode

-- 
Zito
Partial thread listing: