[Moscow.pm] Странности и неожиданности Perl

[Vladimir V. Perepelitsa]

On Wednesday 27 February 2008 17:02, Alex Shatlovsky wrote:
> On 2/27/08, Vladimir V. Perepelitsa <inthrax на gmail.com> wrote:
> > On Wednesday 27 February 2008 16:21, Alex Shatlovsky wrote:
> >  > Вот тоже прикольная штука:
> >  >
> >  > ====
> >  > #!/usr/bin/perl -w
> >  > use strict;
> >  > print $_ for ('a' .. 'я');
> >  > ====
> >  > ("а" -- латиница, "я" - кириллица)
> >
> > какая кодировка?
>
> проверяли на koi8 и cp1251,

в utf8 и прикольнее и становится понятно в чем фишка

use charnames qw(:full);
$\ = " ";
print for ( "a" ... "\N{CYRILLIC SMALL LETTER YA}");


-- 
Vladimir Perepelitsa aka Mons Anderson
<inthrax на gmail.com> / #99779956