From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <dryzhov@bibirevo.net>
Date: Sun, 15 Jun 2003 16:12:44 +0400
From: Dmitriy Ryzhov <dryzhov@bibirevo.net>
X-Mailer: The Bat! (v1.62 Christmas Edition)
X-Priority: 3 (Normal)
Message-ID: <134104998980.20030615161244@bibirevo.net>
To: community@altlinux.ru
Subject: =?koi8-r?B?W0NvbW1dICDzz9LUydLP18vBIMvJ0snMzMnD2SDXIFBlcmw=?=
In-Reply-To: <20030614143156.7C796E31CF@master.altlinux.ru>
References: <1304453974.20030610004708@hotbox.ru>
	<3EE52F4D.7070407@mtu-net.ru> <110152058.20030614003701@hotbox.ru>
	<20030614143156.7C796E31CF@master.altlinux.ru>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: community@altlinux.ru, "Dmitriy V. Ryzhov" <dryzhov@bibirevo.net>
List-Id: <community.altlinux.ru>
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://www.lrn.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Sun, 15 Jun 2003 12:12:58 -0000
Archived-At: <http://lore.altlinux.org/community/134104998980.20030615161244@bibirevo.net/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Привет!

Просветите плз, что за глюки такие? Перл глючит с юникодом или я?

ALT Linux Sisyphus (20030605). perl-5.8.0-alt1. Локаль - CP1251.

1. Сортировка:
#!/usr/bin/perl -w

use strict;
use POSIX;
use locale;
use encoding 'cp1251';

my @l1 = ("п", "р", "с", "т");
my @l2 = qw(п р с т);
print "$_(", ord, ") " foreach sort(@l1); print "\n";
print "$_(", ord, ") " foreach sort(@l2); print "\n";

Вывод:
п(1087) т(1090) с(1089) р(1088) //?!
п(1087) р(1088) с(1089) т(1090)

Комментирую строку "use encoding 'cp1251'" - всё ок (строки уже в
utf-8 не хранятся):
п(239) р(240) с(241) т(242)
п(239) р(240) с(241) т(242)

Проверил под Windows XP (Perl 5.8.0 от ActiveState) - без "use encoding"
вроде глючит, с ней:
п(1087) т(1090) с(1089) р(1088)
п(1087) т(1090) с(1089) р(1088)

2. Регулярные выражения без учета регистра:
print("аБвгд" =~ m/б/i? "1": "0", "\n");
print("абвгд" =~ m/б/i? "1": "0", "\n");
print(lc("аБвгд") =~ m/б/? "1":"0", "\n");

Вывод:
0
0
1

Без "use encoding 'cp1251'" - опять всё ок: 1 1 1
Под Windows всё точно также.

Как всё это объясняется? В доках вроде ничего не нашел.
-- 
Best regards,
 Dmitriy Ryzhov                            mailto:dryzhov@bibirevo.net