[sisyphus] Re: Сортировка кириллицы вPerl

[sisyphus] Re: Сортировка кириллицы вPerl

[Michael Shigorin]

On Sun, Jun 15, 2003 at 04:12:44PM +0400, Dmitriy Ryzhov wrote:
> Просветите плз, что за глюки такие? Перл глючит с юникодом или я?
> ALT Linux Sisyphus (20030605). perl-5.8.0-alt1. Локаль - CP1251.

С этим лучше в Sisyphus.

> 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 всё точно также.
> 
> Как всё это объясняется? В доках вроде ничего не нашел.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/
>From dima@polarcup.ru  Sun Jun 15 19:00:01 2003
Return-Path: <dima@polarcup.ru>
Delivered-To: sisyphus@lrn.ru
Received: from master.altlinux.ru (master.altlinux.ru [62.118.250.235])
	by lrn.ru (Postfix) with ESMTP id 54FCB48A16
	for <sisyphus@lrn.ru>; Sun, 15 Jun 2003 19:00:01 +0400 (MSD)
Received: from gate (unknown [81.28.7.3])
	by master.altlinux.ru (Postfix) with ESMTP id 809CAE31CF
	for <sisyphus@altlinux.ru>; Sun, 15 Jun 2003 19:00:00 +0400 (MSD)
Received: by gate (Postfix, from userid 500)
	id 0A2411EF55; Sun, 15 Jun 2003 18:59:58 +0400 (MSD)
Date: Sun, 15 Jun 2003 18:59:58 +0400
From: Gerasimov Dmitry <matrix@podlipki.ru>
To: sisyphus@altlinux.ru
Subject: Re: [sisyphus] 2 Soundcard
Message-ID: <20030615145958.GA30447@gate.polarcup.ru>
Mail-Followup-To: Gerasimov Dmitry <matrix@podlipki.ru>,
	sisyphus@altlinux.ru
References: <20030611122710.GA12304@home-pool4-66.com2com.ru>
	<200306111827.01651.sorex@softerra.ru>
	<20030611151127.GA15193@home-pool4-66.com2com.ru>
	<004801c3316a$169b5980$4b860fd9@MASLEN>
	<20030614235657.1eaccbe6.yozhik@atom.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="n8g4imXOkfNTN/H1"
Content-Disposition: inline
In-Reply-To: <20030614235657.1eaccbe6.yozhik@atom.ru>
X-Operating-System: GNU/Linux
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: Gerasimov Dmitry <matrix@podlipki.ru>, sisyphus@altlinux.ru
List-Id: <sisyphus.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://www.lrn.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Sun, 15 Jun 2003 15:00:02 -0000


--n8g4imXOkfNTN/H1
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

On Sat, Jun 14, 2003 at 11:56:57PM +0400, Sergey Kuznetsov wrote:
> On Fri, 13 Jun 2003 08:10:20 +0300
> "Alexander Blagin" <linux@yaroslavl.ru> wrote:
> 
> > post-install snd-seq-oss /bin/sfxload /etc/midi/8mbgmsfx.sf2
> > 
> > в правильности последней строчки я не уверен, но все работает
> > (миди из под КДЕ только не проверил)
> > все регуляторы для всех карт на месте
> > в xmms переключаюсь на вторую карту, ну а там естественно
> > тишина нужно что то еще дописать, касаемое es1371 (Sb128)
> > 
> > просвятите темного
> 
> А разве можно иметь звук сразу и с внешней и со встроенной карты?
конечно можно. 
> Если вы в BIOS'е разрешаете встроенную, то внешняя, IMHO, должна
> игнорироваться, а если запрещаете, то что же вы от нее хотите?
> Может я вас не так понял? 
> 
> С уважением,
> Сергей
> 
> _______________________________________________
> Sisyphus mailing list
> Sisyphus@altlinux.ru
> http://altlinux.ru/mailman/listinfo/sisyphus
--
    Gerasimov Dmitry
    e-mail: matrix AT podlipki DOT ru
    

--n8g4imXOkfNTN/H1
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+7InulyZkAlSKqvQRAueWAJ4laLe0F1ucpfyuLnrFAacIHYSYPACgnCH8
MtZHJfWdnCXhKnTqE54UGjk=
=nlzE
-----END PGP SIGNATURE-----

--n8g4imXOkfNTN/H1--
>From vsl@ontil.ihep.su  Sun Jun 15 19:41:09 2003
Return-Path: <vsl@ontil.ihep.su>
Delivered-To: sisyphus@lrn.ru
Received: from master.altlinux.ru (master.altlinux.ru [62.118.250.235])
	by lrn.ru (Postfix) with ESMTP
	id 2DCAD4800F; Sun, 15 Jun 2003 19:41:09 +0400 (MSD)
Received: from mg.ihep.su (mg.ihep.su [194.190.161.38])
	by master.altlinux.ru (Postfix) with ESMTP
	id 21E05E31CF; Sun, 15 Jun 2003 19:41:09 +0400 (MSD)
Received: by mg.ihep.su (Postfix, from userid 65436)
	id E0817B5E99; Sun, 15 Jun 2003 19:39:27 +0400 (MSD)
Received: from ontil.ihep.su (ontil.ihep.su [194.190.161.63])
	by mg.ihep.su (Postfix) with ESMTP
	id 5664FB5EAA; Sun, 15 Jun 2003 19:39:26 +0400 (MSD)
Received: by ontil.ihep.su (Postfix, from userid 1001)
	id 4AA876AB5; Sun, 15 Jun 2003 19:39:24 +0400 (MSD)
Received: from localhost (localhost [127.0.0.1])
	by ontil.ihep.su (Postfix) with ESMTP
	id 7C06F6C39; Sun, 15 Jun 2003 19:39:24 +0400 (MSD)
Date: Sun, 15 Jun 2003 19:39:24 +0400 (MSD)
From: Vitaly Lugovsky <vsl@ontil.ihep.su>
To: sisyphus@altlinux.ru
Message-ID: <Pine.LNX.4.55L.0306151936220.18525@ontil.ihep.su>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=koi8-r
Content-Transfer-Encoding: 8BIT
cc: devel@altlinux.ru
Subject: [sisyphus]  =?koi8-r?b?YXB0Lc7F0M/O0dTLyS4=?=
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.1
Precedence: list
Reply-To: sisyphus@altlinux.ru
List-Id: <sisyphus.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://www.lrn.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Sun, 15 Jun 2003 15:41:09 -0000


 Жуть что творится...

# apt-get dist-upgrade
Reading Package Lists... Done
Building Dependency Tree... Done
Calculating Upgrade... Failed
The following packages have unmet dependencies:
  NVIDIA_GLX: Depends: XFree86-server (>= 4.0.3) but it is not going to be installed
  gnome2-utils-gnome-system-log: Depends: /etc/security/console.apps
  interactivesystem: PreDepends: mingetty but it is not going to be installed
  kdetoys-kteatime: Depends: kdebase-wm but it is not going to be installed
  kdeutils-kjots: Depends: kdebase-wm (>= 3.1.2-alt2) but it is not going to be installed
  kdeutils-ksim: Depends: kdebase-wm (>= 3.1.2-alt2) but it is not going to be installed
  kdeutils-laptop: Depends: kdebase-wm (>= 3.1.2-alt2) but it is not going to be installed
  synaptic-usermode: Depends: /etc/security/console.apps
                     Depends: pam_stack.so
  wine-utils: Depends: wine (= 20030318-alt1) but it is not going to be installed
E: Unable to correct problems, you have held broken packages.

 Все помянутые пакеты (кроме NVIDIA_GLX) - последних версий, не
ясно, что вообще apt до них докопался.

Re: [sisyphus] Re: Сортировка кириллицы вPerl

[Епифанов Сергей]

[-- Attachment #1: signed data --]
[-- Type: text/plain, Size: 1613 bytes --]

В сообщении от 16 Июнь 2003 17:38 Alexey Tourbin написал:
> On Mon, Jun 16, 2003 at 04:26:48PM +0400, Епифанов Сергей 
wrote:
> > > #se locale;
> > > use encoding 'utf-8';
> >
> > меняю cp1251 на utf-8 - вместо 'п(1087) р(1088) с(1089)
> > т(1090)' вижу '(0) (0) (0) (0)'
>
> Так исходно файл должен быть в utf8!
> Я проверял так:
>
> $ cat utf-test.pl
> use strict;
> use POSIX;
> #se locale;
> use encoding 'utf-8';
>
> my @l1 = ("п", "р", "с", "т");
> my @l2 = qw(п р с т);
> print "$_(", ord, ") " foreach sort(@l1); print "\n";
> print "$_(", ord, ") " foreach sort(@l2); print "\n";
>
> print("аБвгд" =~ m/б/i? "1": "0", "\n");
> print("абвгд" =~ m/б/i? "1": "0", "\n");
> print(lc("аБвгд") =~ m/б/? "1":"0", "\n");
>
> $ iconv -t utf-8 utf-test.pl | perl | iconv -f utf-8
> п(1087) р(1088) с(1089) т(1090)
> п(1087) р(1088) с(1089) т(1090)
> 1
> 1
> 1
> $

Интересно, я еще раз попробовал вместо utf-8 использовать cp1251. 
Интересно, что если программа такая:
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";

print("аБвгд" =~ m/б/i? "1": "0", "\n");
print("абвгд" =~ m/б/i? "1": "0", "\n");
print(lc("аБвгд") =~ m/б/? "1":"0", "\n");

То она пишет:

п(1087) т(1090) с(1089) р(1088)
п(1087) р(1088) с(1089) т(1090)
0
0
1

А если из программы убрать

use locale;

то она выводит:

п(1087) р(1088) с(1089) т(1090)
п(1087) р(1088) с(1089) т(1090)
1
1
1

То бишь команда 'use locale' рушит всю работу!!!

-- 
С уважением, Епифанов Сергей

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 189 bytes --]

[sisyphus] Re: Сортировка кириллицы вPerl

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 623 bytes --]

On Mon, Jun 16, 2003 at 05:58:27PM +0400, Епифанов Сергей wrote:
Content-Description: signed data
> Интересно, я еще раз попробовал вместо utf-8 использовать cp1251. 
> Интересно, что если программа такая:
> use strict;
> use POSIX;
> use locale;
> use encoding 'cp1251';

Ещё раз: endocing -- это кодировка исходного файла.

> То она пишет:
> 
> п(1087) т(1090) с(1089) р(1088)
> п(1087) р(1088) с(1089) т(1090)
> 0
> 0
> 1

А у вас он теперь в utf-8.

> То бишь команда 'use locale' рушит всю работу!!!

Ох... боюсь что вы плохо в этом разобрались.  Даже я в этом плохо
разобрался.  Но у меня когда надо всё работает. :)

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

[sisyphus] Re: Сортировка кириллицы вPerl

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 656 bytes --]

On Tue, Jun 17, 2003 at 09:56:07AM +0400, Епифанов Сергей wrote:
> Для начала уточним: у вас какая локаль? cp1251? Вы пробовали 

Я уже объяснил, что при использовании utf-8 некоторые настройки локали
не играют роли (а принудительное их использование может что-нибудь
ломать во внутренностях перла).  Дальше я не знаю.

Локаль у меня cp1251, но для предыдущего тестирования с iconv это тоже
не играет роли.

> программу целиком с 
> use locale;
> use encoding 'cp1251' ;
> ?

Нет.

> Ещё раз повторяю: программа начинает работать правильно, если 
> убрать из неё строку 'use locale'. А если ещё убрать и 'use 

Так и есть.

> encoding', то получаем вообще

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]