From pilsl at goldfisch.at  Tue Nov  9 02:42:45 2010
From: pilsl at goldfisch.at (peter pilsl)
Date: Tue, 9 Nov 2010 11:42:45 +0100 (CET)
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <1783882763.3322.1289298380336.JavaMail.root@zimbra.goldfisch.at>
Message-ID: <1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>


hallo,

tja ... irgendwie dachte ich dass diese Probleme jahrelang hinter mir liegen ... aber nun steh ich wieder dort:

ich schaffs nicht, eine liste von w?rtern lexigraphisch korrekt zu sortieren.

----------------------
#!/usr/bin/perl -w

use strict;
use locale;
use POSIX qw(locale_h);
setlocale(LC_ALL, "de_AT.UTF-8");

my @l;
@l=qw(ampel ampele ?sen z?se ampez ampex);
push(@l,"ampel vorrang","?se n?se","?se n?se","ampe wampe"," sowas");

@l=map {lc($_)} @l;

@l=sort {$a cmp $b} @l;

print join("\n", at l),"\n";
--------------------------


mein ergebnis:

ampel
ampele
ampel vorrang
ampe wampe
ampex
ampez
?sen
?se n?se
?se n?se
 sowas
z?se

das ist offensichtlich falsch. Erstens wird das grosse "?" nicht kleingemacht und zweitens sollte das leerzeichen noch vor dem a kommen und nicht irgendwo zwischen l und x  :)

locales sind immer schwierig. Aber ich glaub ich hab alles richtig gemacht. die locales sind auf den test-systemen installiert  (pr?fen mit "locale -a", erzeugen mit locale-gen) und auch die environment-variablen LANG,LC_ALL,LC_COLLATE,LC_CTYPE sind richtig gesetzt obwohl das glaub ich ned n?tig ist, weil ich eh die POSIX-locales im script nehm.

getestet hab ich das auf insgesamt vier Rechnern. zwei mit perl 5.8.8 und zwei mit perl 5.10.1   (alles ubuntu: 8.04, 9.04, 10.04 u 10.10)

ich hab auch alle m?glichen utf8::encode und utf8::decode und das umwandeln auf latin1 vor dem sortieren und r?ckwandeln auf utf8 nachher probiert. hat alles ned funktioniert.

was ?berseh ich? kann das wer auf einem anderen system als ubuntu testen? danke & danke f?r tips,
peter




From klaus at worstofall.com  Tue Nov  9 02:48:23 2010
From: klaus at worstofall.com (Klaus Ita)
Date: Tue, 9 Nov 2010 11:48:23 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>
References: <1783882763.3322.1289298380336.JavaMail.root@zimbra.goldfisch.at>
	<1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>
Message-ID: <AANLkTi=JnsMnd7vXsRR1rv1iVHpFSdc+NrxmTdAG+=JO@mail.gmail.com>

man, use utf8

2010/11/9 peter pilsl <pilsl at goldfisch.at>:
>
> hallo,
>
> tja ... irgendwie dachte ich dass diese Probleme jahrelang hinter mir liegen ... aber nun steh ich wieder dort:
>
> ich schaffs nicht, eine liste von w?rtern lexigraphisch korrekt zu sortieren.
>
> ----------------------
> #!/usr/bin/perl -w
>
> use strict;
> use locale;
> use POSIX qw(locale_h);
> setlocale(LC_ALL, "de_AT.UTF-8");
>
> my @l;
> @l=qw(ampel ampele ?sen z?se ampez ampex);
> push(@l,"ampel vorrang","?se n?se","?se n?se","ampe wampe"," sowas");
>
> @l=map {lc($_)} @l;
>
> @l=sort {$a cmp $b} @l;
>
> print join("\n", at l),"\n";
> --------------------------
>
>
> mein ergebnis:
>
> ampel
> ampele
> ampel vorrang
> ampe wampe
> ampex
> ampez
> ?sen
> ?se n?se
> ?se n?se
> ?sowas
> z?se
>
> das ist offensichtlich falsch. Erstens wird das grosse "?" nicht kleingemacht und zweitens sollte das leerzeichen noch vor dem a kommen und nicht irgendwo zwischen l und x ?:)
>
> locales sind immer schwierig. Aber ich glaub ich hab alles richtig gemacht. die locales sind auf den test-systemen installiert ?(pr?fen mit "locale -a", erzeugen mit locale-gen) und auch die environment-variablen LANG,LC_ALL,LC_COLLATE,LC_CTYPE sind richtig gesetzt obwohl das glaub ich ned n?tig ist, weil ich eh die POSIX-locales im script nehm.
>
> getestet hab ich das auf insgesamt vier Rechnern. zwei mit perl 5.8.8 und zwei mit perl 5.10.1 ? (alles ubuntu: 8.04, 9.04, 10.04 u 10.10)
>
> ich hab auch alle m?glichen utf8::encode und utf8::decode und das umwandeln auf latin1 vor dem sortieren und r?ckwandeln auf utf8 nachher probiert. hat alles ned funktioniert.
>
> was ?berseh ich? kann das wer auf einem anderen system als ubuntu testen? danke & danke f?r tips,
> peter
>
>
>
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm

From klaus at worstofall.com  Tue Nov  9 02:56:50 2010
From: klaus at worstofall.com (Klaus Ita)
Date: Tue, 9 Nov 2010 11:56:50 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <AANLkTi=JnsMnd7vXsRR1rv1iVHpFSdc+NrxmTdAG+=JO@mail.gmail.com>
References: <1783882763.3322.1289298380336.JavaMail.root@zimbra.goldfisch.at>
	<1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>
	<AANLkTi=JnsMnd7vXsRR1rv1iVHpFSdc+NrxmTdAG+=JO@mail.gmail.com>
Message-ID: <AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>

einzig, den space versteh ich auch nicht. ....

perl -CO llolo.pl




2010/11/9 Klaus Ita <klaus at worstofall.com>:
> man, use utf8
>
> 2010/11/9 peter pilsl <pilsl at goldfisch.at>:
>>
>> hallo,
>>
>> tja ... irgendwie dachte ich dass diese Probleme jahrelang hinter mir liegen ... aber nun steh ich wieder dort:
>>
>> ich schaffs nicht, eine liste von w?rtern lexigraphisch korrekt zu sortieren.
>>
>> ----------------------
>> #!/usr/bin/perl -w
>>
>> use strict;
>> use locale;
>> use POSIX qw(locale_h);
>> setlocale(LC_ALL, "de_AT.UTF-8");
>>
>> my @l;
>> @l=qw(ampel ampele ?sen z?se ampez ampex);
>> push(@l,"ampel vorrang","?se n?se","?se n?se","ampe wampe"," sowas");
>>
>> @l=map {lc($_)} @l;
>>
>> @l=sort {$a cmp $b} @l;
>>
>> print join("\n", at l),"\n";
>> --------------------------
>>
>>
>> mein ergebnis:
>>
>> ampel
>> ampele
>> ampel vorrang
>> ampe wampe
>> ampex
>> ampez
>> ?sen
>> ?se n?se
>> ?se n?se
>> ?sowas
>> z?se
>>
>> das ist offensichtlich falsch. Erstens wird das grosse "?" nicht kleingemacht und zweitens sollte das leerzeichen noch vor dem a kommen und nicht irgendwo zwischen l und x ?:)
>>
>> locales sind immer schwierig. Aber ich glaub ich hab alles richtig gemacht. die locales sind auf den test-systemen installiert ?(pr?fen mit "locale -a", erzeugen mit locale-gen) und auch die environment-variablen LANG,LC_ALL,LC_COLLATE,LC_CTYPE sind richtig gesetzt obwohl das glaub ich ned n?tig ist, weil ich eh die POSIX-locales im script nehm.
>>
>> getestet hab ich das auf insgesamt vier Rechnern. zwei mit perl 5.8.8 und zwei mit perl 5.10.1 ? (alles ubuntu: 8.04, 9.04, 10.04 u 10.10)
>>
>> ich hab auch alle m?glichen utf8::encode und utf8::decode und das umwandeln auf latin1 vor dem sortieren und r?ckwandeln auf utf8 nachher probiert. hat alles ned funktioniert.
>>
>> was ?berseh ich? kann das wer auf einem anderen system als ubuntu testen? danke & danke f?r tips,
>> peter
>>
>>
>>
>> _______________________________________________
>> Vienna-pm mailing list
>> Vienna-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/vienna-pm
>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: llolo.pl
Type: text/x-perl
Size: 365 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20101109/86cd1d1c/attachment.bin>

From racke at linuxia.de  Tue Nov  9 03:03:12 2010
From: racke at linuxia.de (Stefan Hornburg (Racke))
Date: Tue, 09 Nov 2010 12:03:12 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>
References: <1783882763.3322.1289298380336.JavaMail.root@zimbra.goldfisch.at>	<1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>	<AANLkTi=JnsMnd7vXsRR1rv1iVHpFSdc+NrxmTdAG+=JO@mail.gmail.com>
	<AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>
Message-ID: <4CD92A70.30809@linuxia.de>

On 11/09/2010 11:56 AM, Klaus Ita wrote:
> einzig, den space versteh ich auch nicht. ....
>
> perl -CO llolo.pl
>

Es kann richtig lustig werden, wenn die Benutzer UTF-8-M?ll in Formulare pasten:

http://www.alistapart.com/articles/emen/

Und ich habe mich gewundert warum die regul?ren Ausdr?cke f?r die Eingabe oftmals
nicht funktioniert haben (mit - ).

Gr??e
	Racke


-- 
LinuXia Systems => http://www.linuxia.de/
Expert Interchange Consulting and System Administration
ICDEVGROUP => http://www.icdevgroup.org/
Interchange Development Team


From daxim at cpan.org  Tue Nov  9 03:51:52 2010
From: daxim at cpan.org (Lars =?utf-8?b?RMmq4bSH4bSE4bSL4bSP4bShIOi/quaLieaWrw==?=)
Date: Tue, 9 Nov 2010 12:51:52 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>
References: <1783882763.3322.1289298380336.JavaMail.root@zimbra.goldfisch.at>
	<AANLkTi=JnsMnd7vXsRR1rv1iVHpFSdc+NrxmTdAG+=JO@mail.gmail.com>
	<AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>
Message-ID: <201011091252.02644.daxim@cpan.org>

> einzig, den space versteh ich auch nicht. ....
Ist so im [Standard](http://en.wikipedia.org/wiki/Unicode_collation_algorithm) 
vorgesehen. Das ganze Thema ist interessant. 
<http://conferences.yapceurope.org/gpw2010/talk/2554>

POSIX/locales sind mir zu global. So geht's elegant:

#!/usr/bin/env perl
use 5.010;
use utf8;
use strictures;
use Unicode::Collate;

say for Unicode::Collate->new(preprocess => sub {s/^\s+//})->sort(
    map lc, (
        qw(ampel ampele ?sen z?se ampez ampex),
        'ampel vorrang', '?se n?se', '?se n?se', 'ampe wampe', ' sowas',
        qw(ose otter)
    )
);
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: This is a digitally signed message part.
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20101109/3ac11101/attachment.bin>

From pilsl at goldfisch.at  Tue Nov  9 05:09:41 2010
From: pilsl at goldfisch.at (peter pilsl)
Date: Tue, 9 Nov 2010 14:09:41 +0100 (CET)
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <AANLkTimer-p3v=GeaQycmR4nqKKPEQtiOr4=g9WZbqmU@mail.gmail.com>
Message-ID: <1279605338.3401.1289308181293.JavaMail.root@zimbra.goldfisch.at>





ich hab das problem f?r mich mal elegant gel?st, indem ich ned die strings direkt sortiere, sondern vorher

s/\s/aaaa<skip noch mehr a's>aa/g; 

also jedes leerzeichen durch ganz viele aaaaaa's ersetze. vermutlich w?ren viele 0000000er noch schlauer:)

jaja, the high art of trained perl-monks ;)

auch noch spannend in dem zusammenhang:


(echo zumm; echo " zumm"; echo " zamm"; echo "xumm"; echo " xumm") | LC_ALL=de_AT.utf-8 sort
xumm
 xumm
 zamm
zumm
 zumm

das leerzeichen wird in der sortierung offensichtlich ignoriert. (und zwar ned nur leading leerzeichen, sondern das gleiche ergebnis wenn ?berall noch ein a davor ist ... "axumm" "a xumm" usw.)

das deckt sich mit dem was Lars auch rausgefunden hat. Es ist also kein POSIX-Problem sondern offenbar gewollt.
aber da muss es einen eleganteren workaround geben als meine methode oben.

folgende Sortierung mag zwar unicodem?ssig korrekt sein, aber jeder Kunde reisst mir den Kopf ab:

Institut anderer Sprachen
Institute belgischer Sprachen
Institut englischer Sprachen
Institut zur Erforschung von noch mehr Sprachen


Ich hab den Vorschlag von Lars mit Unicode::Collate mittels copy/paste probiert, aber erstens fkt. es bei mir ned (sortiert einfach gar ned sondern gibt die eingabereihenfolge aus) und zweitens l?st das mein leerzeichenproblem auch nicht.

DANKE

lgp

----- Urspr?ngliche Mail -----
> einzig, den space versteh ich auch nicht. ....
> 
> perl -CO llolo.pl
> 
> 
> 
> 
> 2010/11/9 Klaus Ita <klaus at worstofall.com>:
> > man, use utf8
> >
> > 2010/11/9 peter pilsl <pilsl at goldfisch.at>:
> >>
> >> hallo,
> >>
> >> tja ... irgendwie dachte ich dass diese Probleme jahrelang hinter
> >> mir liegen ... aber nun steh ich wieder dort:
> >>
> >> ich schaffs nicht, eine liste von w?rtern lexigraphisch korrekt zu
> >> sortieren.
> >>
> >> ----------------------
> >> #!/usr/bin/perl -w
> >>
> >> use strict;
> >> use locale;
> >> use POSIX qw(locale_h);
> >> setlocale(LC_ALL, "de_AT.UTF-8");
> >>
> >> my @l;
> >> @l=qw(ampel ampele ?sen z?se ampez ampex);
> >> push(@l,"ampel vorrang","?se n?se","?se n?se","ampe wampe","
> >> sowas");
> >>
> >> @l=map {lc($_)} @l;
> >>
> >> @l=sort {$a cmp $b} @l;
> >>
> >> print join("\n", at l),"\n";
> >> --------------------------
> >>
> >>
> >> mein ergebnis:
> >>
> >> ampel
> >> ampele
> >> ampel vorrang
> >> ampe wampe
> >> ampex
> >> ampez
> >> ?sen
> >> ?se n?se
> >> ?se n?se
> >> ?sowas
> >> z?se
> >>
> >> das ist offensichtlich falsch. Erstens wird das grosse "?" nicht
> >> kleingemacht und zweitens sollte das leerzeichen noch vor dem a
> >> kommen und nicht irgendwo zwischen l und x :)
> >>
> >> locales sind immer schwierig. Aber ich glaub ich hab alles richtig
> >> gemacht. die locales sind auf den test-systemen installiert (pr?fen
> >> mit "locale -a", erzeugen mit locale-gen) und auch die
> >> environment-variablen LANG,LC_ALL,LC_COLLATE,LC_CTYPE sind richtig
> >> gesetzt obwohl das glaub ich ned n?tig ist, weil ich eh die
> >> POSIX-locales im script nehm.
> >>
> >> getestet hab ich das auf insgesamt vier Rechnern. zwei mit perl
> >> 5.8.8 und zwei mit perl 5.10.1 (alles ubuntu: 8.04, 9.04, 10.04 u
> >> 10.10)
> >>
> >> ich hab auch alle m?glichen utf8::encode und utf8::decode und das
> >> umwandeln auf latin1 vor dem sortieren und r?ckwandeln auf utf8
> >> nachher probiert. hat alles ned funktioniert.
> >>
> >> was ?berseh ich? kann das wer auf einem anderen system als ubuntu
> >> testen? danke & danke f?r tips,
> >> peter
> >>
> >>
> >>
> >> _______________________________________________
> >> Vienna-pm mailing list
> >> Vienna-pm at pm.org
> >> http://mail.pm.org/mailman/listinfo/vienna-pm
> >

From pilsl at goldfisch.at  Wed Nov 10 13:10:06 2010
From: pilsl at goldfisch.at (peter pilsl)
Date: Wed, 10 Nov 2010 22:10:06 +0100 (CET)
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <1960699598.3345.1289299365277.JavaMail.root@zimbra.goldfisch.at>
Message-ID: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>


vielen dank nochmals allen f?r eure Hilfe.

Ich bin wesentlich weitergekommen seither (und auch wieder nicht :) ) 

Unicode::Collate (Danke an Lars f?r den Hinweis) ist ein sehr m?chtiges Modul und erlaubt der ProgrammierIn weitgehenden Einfluss auf die Sortierung.

Darunter eben auch die Frage was mit Whitespaces zu passieren hat. In Unicode-sprache sind das "variables".

Mein Problem kann also elegant wie folgt gel?st werden:  Ich benutze dabei Unicode::Collate::Locale, das die Angabe von diversen locales erm?glicht.

use Unicode::Collate::Locale;
my $coll= Unicode::Collate::Locale->new(
        level => 3,
        variable => 'Non-Ignorable',
        locale => 'de',
    );
my @l1=$coll->sort(@s);

level=>3 bedeutet dass Casesensitive sortiert wird und das 'Non-Ignorable' bedeutet eben dass meine Leerzeichen nicht ignoriert werden d?rfen.

Das Ergebnis ist wie gew?nscht, aber leider schon bei einer minimalen Anzahl von Strings sehr langsam.  Das Sortieren von 14 strings dauert bei mir 0.4 sekunden und 32000 strings dauern unglaubliche 2 Sekunden.

Im Vergleich dazu: "Meine" Methode, wo ich vorher alle Leerzeichen durch "0000000000000" ersetze und dann sortiere liefert das exakt gleiche Ergebnis und ben?tigt f?r 32000 strings nur 0.16 sekunden, was schon schlicht und einfach Welten schneller ist.

Ich bin damit zufrieden derweil. Ich hab eine sch?ne Methode gefunden und eine Schnelle :)

Falls es wen interessiert - anbei das script, welches mit beiden Methoden sortiert, die Zeit misst und dann noch pr?ft ob eh beide sortierungen das gleiche Ergebnis gebracht haben.


# perl -CO sort6.pl
sort 32000 strings
time with Unicode::Collate::Locale : 2.001825
time with tricked sort : 0.164595
comparison revealed 0 differences


lg
peter

ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen. 

my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;




----- Urspr?ngliche Mail -----
> hallo,
> 
> tja ... irgendwie dachte ich dass diese Probleme jahrelang hinter mir
> liegen ... aber nun steh ich wieder dort:
> 
> ich schaffs nicht, eine liste von w?rtern lexigraphisch korrekt zu
> sortieren.
> 
> ----------------------
> #!/usr/bin/perl -w
> 
> use strict;
> use locale;
> use POSIX qw(locale_h);
> setlocale(LC_ALL, "de_AT.UTF-8");
> 
> my @l;
> @l=qw(ampel ampele ?sen z?se ampez ampex);
> push(@l,"ampel vorrang","?se n?se","?se n?se","ampe wampe"," sowas");
> 
> @l=map {lc($_)} @l;
> 
> @l=sort {$a cmp $b} @l;
> 
> print join("\n", at l),"\n";
> --------------------------
> 
> 
> mein ergebnis:
> 
> ampel
> ampele
> ampel vorrang
> ampe wampe
> ampex
> ampez
> ?sen
> ?se n?se
> ?se n?se
> sowas
> z?se
> 
> das ist offensichtlich falsch. Erstens wird das grosse "?" nicht
> kleingemacht und zweitens sollte das leerzeichen noch vor dem a kommen
> und nicht irgendwo zwischen l und x :)
> 
> locales sind immer schwierig. Aber ich glaub ich hab alles richtig
> gemacht. die locales sind auf den test-systemen installiert (pr?fen
> mit "locale -a", erzeugen mit locale-gen) und auch die
> environment-variablen LANG,LC_ALL,LC_COLLATE,LC_CTYPE sind richtig
> gesetzt obwohl das glaub ich ned n?tig ist, weil ich eh die
> POSIX-locales im script nehm.
> 
> getestet hab ich das auf insgesamt vier Rechnern. zwei mit perl 5.8.8
> und zwei mit perl 5.10.1 (alles ubuntu: 8.04, 9.04, 10.04 u 10.10)
> 
> ich hab auch alle m?glichen utf8::encode und utf8::decode und das
> umwandeln auf latin1 vor dem sortieren und r?ckwandeln auf utf8
> nachher probiert. hat alles ned funktioniert.
> 
> was ?berseh ich? kann das wer auf einem anderen system als ubuntu
> testen? danke & danke f?r tips,
> peter
> 
> 
> 
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm
-------------- next part --------------
A non-text attachment was scrubbed...
Name: sort6.pl
Type: application/x-perl
Size: 1188 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20101110/9177ed6a/attachment.bin>

From andreas.koenig at anima.de  Wed Nov 10 13:31:55 2010
From: andreas.koenig at anima.de (andreas.koenig at anima.de)
Date: Wed, 10 Nov 2010 22:31:55 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	(peter pilsl's message of "Wed, 10 Nov 2010 22:10:06 +0100 (CET)")
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
Message-ID: <87d3qckgqc.fsf@franz.ak.mind.de>

>>>>> On Wed, 10 Nov 2010 22:10:06 +0100 (CET), peter pilsl <pilsl at goldfisch.at> said:

  > ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen. 

  > my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;

Einfallen taet mir das da; geht aber erst seit perl 5.13.1 oder so:

map { s/\s/00000000000000000000000/r } @s;

-- 
andreas

From bernd at petrovitsch.priv.at  Thu Nov 11 02:23:33 2010
From: bernd at petrovitsch.priv.at (Bernd Petrovitsch)
Date: Thu, 11 Nov 2010 11:23:33 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <87d3qckgqc.fsf@franz.ak.mind.de>
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	<87d3qckgqc.fsf@franz.ak.mind.de>
Message-ID: <1289471013.19262.2.camel@thorin>

On Mit, 2010-11-10 at 22:31 +0100, andreas.koenig at anima.de wrote: 
> >>>>> On Wed, 10 Nov 2010 22:10:06 +0100 (CET), peter pilsl <pilsl at goldfisch.at> said:
>   > ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen. 
> 
>   > my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;
> 
> Einfallen taet mir das da; geht aber erst seit perl 5.13.1 oder so:
> 
> map { s/\s/00000000000000000000000/r } @s;

Definitiv sch?ner - selbst als
----  snip ----
map { $_ =~ s/\s/00000000000000000000000/r } @s;
----  snip ----
Sollte hinten nicht (auch) "/g" stehen?

Bernd
-- 
Bernd Petrovitsch                  Email : bernd at petrovitsch.priv.at
                     LUGA : http://www.luga.at


From klaus at worstofall.com  Thu Nov 11 12:24:19 2010
From: klaus at worstofall.com (Klaus Ita)
Date: Thu, 11 Nov 2010 21:24:19 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <1289471013.19262.2.camel@thorin>
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	<87d3qckgqc.fsf@franz.ak.mind.de> <1289471013.19262.2.camel@thorin>
Message-ID: <AANLkTim-CKXjaTjYnDg79dNxP5KSNw6wyQUXS9Bnbk64@mail.gmail.com>

ich kenn mich nicht aus mit perl, aber isses nicht gut, einer regex in
einem loop ein /o zu geben?

lg,k

2010/11/11 Bernd Petrovitsch <bernd at petrovitsch.priv.at>:
> On Mit, 2010-11-10 at 22:31 +0100, andreas.koenig at anima.de wrote:
>> >>>>> On Wed, 10 Nov 2010 22:10:06 +0100 (CET), peter pilsl <pilsl at goldfisch.at> said:
>> ? > ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen.
>>
>> ? > my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;
>>
>> Einfallen taet mir das da; geht aber erst seit perl 5.13.1 oder so:
>>
>> map { s/\s/00000000000000000000000/r } @s;
>
> Definitiv sch?ner - selbst als
> ---- ?snip ----
> map { $_ =~ s/\s/00000000000000000000000/r } @s;
> ---- ?snip ----
> Sollte hinten nicht (auch) "/g" stehen?
>
> Bernd
> --
> Bernd Petrovitsch ? ? ? ? ? ? ? ? ?Email : bernd at petrovitsch.priv.at
> ? ? ? ? ? ? ? ? ? ? LUGA : http://www.luga.at
>
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm

From andreas.koenig at anima.de  Thu Nov 11 13:48:50 2010
From: andreas.koenig at anima.de (Andreas J. Koenig)
Date: Thu, 11 Nov 2010 22:48:50 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <1289471013.19262.2.camel@thorin> (Bernd Petrovitsch's message of
	"Thu, 11 Nov 2010 11:23:33 +0100")
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	<87d3qckgqc.fsf@franz.ak.mind.de> <1289471013.19262.2.camel@thorin>
Message-ID: <8739r7jzul.fsf@franz.ak.mind.de>

>>>>> On Thu, 11 Nov 2010 11:23:33 +0100, Bernd Petrovitsch <bernd at petrovitsch.priv.at> said:

  > On Mit, 2010-11-10 at 22:31 +0100, andreas.koenig at anima.de wrote: 
 >> >>>>> On Wed, 10 Nov 2010 22:10:06 +0100 (CET), peter pilsl <pilsl at goldfisch.at> said:
 >> > ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen. 
 >> 
 >> > my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;
 >> 
 >> Einfallen taet mir das da; geht aber erst seit perl 5.13.1 oder so:
 >> 
 >> map { s/\s/00000000000000000000000/r } @s;

  > Definitiv sch?ner - selbst als
  > ----  snip ----
  > map { $_ =~ s/\s/00000000000000000000000/r } @s;
  > ----  snip ----
  > Sollte hinten nicht (auch) "/g" stehen?

Eventuell. Stand aber schon in der Vorlage nicht.

-- 
andreas

From andreas.koenig at anima.de  Thu Nov 11 13:58:53 2010
From: andreas.koenig at anima.de (Andreas J. Koenig)
Date: Thu, 11 Nov 2010 22:58:53 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <AANLkTim-CKXjaTjYnDg79dNxP5KSNw6wyQUXS9Bnbk64@mail.gmail.com>
	(Klaus Ita's message of "Thu, 11 Nov 2010 21:24:19 +0100")
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	<87d3qckgqc.fsf@franz.ak.mind.de> <1289471013.19262.2.camel@thorin>
	<AANLkTim-CKXjaTjYnDg79dNxP5KSNw6wyQUXS9Bnbk64@mail.gmail.com>
Message-ID: <87y68zikte.fsf@franz.ak.mind.de>

>>>>> On Thu, 11 Nov 2010 21:24:19 +0100, Klaus Ita <klaus at worstofall.com> said:

  > ich kenn mich nicht aus mit perl, aber isses nicht gut, einer regex in
  > einem loop ein /o zu geben?

/o spielt nur eine Rolle, wenn eine Variable in der regexp interpoliert
wird. Das war aber hier nicht der Fall.

-- 
andreas

From bernd at petrovitsch.priv.at  Thu Nov 11 14:44:17 2010
From: bernd at petrovitsch.priv.at (Bernd Petrovitsch)
Date: Thu, 11 Nov 2010 23:44:17 +0100
Subject: [Vienna-pm] locales, umlaute, sortierung ...
In-Reply-To: <8739r7jzul.fsf@franz.ak.mind.de>
References: <649566608.3955.1289423406211.JavaMail.root@zimbra.goldfisch.at>
	<87d3qckgqc.fsf@franz.ak.mind.de> <1289471013.19262.2.camel@thorin>
	<8739r7jzul.fsf@franz.ak.mind.de>
Message-ID: <1289515457.19262.14.camel@thorin>

On Don, 2010-11-11 at 22:48 +0100, Andreas J. Koenig wrote: 
> >>>>> On Thu, 11 Nov 2010 11:23:33 +0100, Bernd Petrovitsch <bernd at petrovitsch.priv.at> said:
>   > On Mit, 2010-11-10 at 22:31 +0100, andreas.koenig at anima.de wrote: 
>  >> >>>>> On Wed, 10 Nov 2010 22:10:06 +0100 (CET), peter pilsl <pilsl at goldfisch.at> said:
>  >> > ps: falls wem ein sch?neres map-statement in zeile 39 einf?llt: bitte mir mitteilen. 
>  >> 
>  >> > my @sd=map { my $x=$_;$x=~s/\s/00000000000000000000000/; $x } @s;
>  >> 
>  >> Einfallen taet mir das da; geht aber erst seit perl 5.13.1 oder so:
>  >> 
>  >> map { s/\s/00000000000000000000000/r } @s;
> 
>   > Definitiv sch?ner - selbst als
>   > ----  snip ----
>   > map { $_ =~ s/\s/00000000000000000000000/r } @s;
>   > ----  snip ----
>   > Sollte hinten nicht (auch) "/g" stehen?
> 
> Eventuell. Stand aber schon in der Vorlage nicht.

Yup.
Aber die Vorlage hat mbMn v.a. das Verhalten bei f?hrenden Leerzeichen
moniert. Obiges (ohne "/g") ersetzt aber genau nur das 1. Leerzeichen.
Aber das l?st wohl nicht alle Collating-Probleme ....

Bernd
-- 
Bernd Petrovitsch                  Email : bernd at petrovitsch.priv.at
                     LUGA : http://www.luga.at


From domm at cpan.org  Fri Nov 12 01:25:05 2010
From: domm at cpan.org (Thomas Klausner)
Date: Fri, 12 Nov 2010 10:25:05 +0100
Subject: [Vienna-pm] Modern Perl by chromatic
Message-ID: <20101112092505.GA27972@dedomm.validad.net>

Um den Kreis #Austria.pm->Bratislava->Vienna.pm zu schliessen:

08:53 < domm> step 1: http://www.onyxneon.com/books/modern_perl/index.html
08:53 < domm> step 2: ins Buchgeschaeft gehen und bestellen
09:21 < jozef> domm: thanks, forwarded to ba.pm mailinglist :)

----- Forwarded message from Jozef Kutej <jozef at kutej.net> -----

Date: Fri, 12 Nov 2010 09:15:59 +0100
From: Jozef Kutej <jozef at kutej.net>
To: "bratislava-pm at pm.org" <bratislava-pm at pm.org>
Subject: [Bratislava-pm] Modern Perl by chromatic

Ahojte,

vy?la nov? kni?ka "Modern Perl" a je aj volne dostupn? ako PDF:

http://www.onyxneon.com/books/modern_perl/index.html

"zdroj?ky" k nej s? tu:

https://github.com/chromatic/modern_perl_book

Pekn? de?,
Jozef

_______________________________________________
Bratislava-pm mailing list
Bratislava-pm at pm.org
http://mail.pm.org/mailman/listinfo/bratislava-pm

----- End forwarded message -----

-- 
#!/usr/bin/perl                              http://domm.plix.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}

From wolfgang.laun at gmail.com  Fri Nov 12 02:01:24 2010
From: wolfgang.laun at gmail.com (Wolfgang Laun)
Date: Fri, 12 Nov 2010 11:01:24 +0100
Subject: [Vienna-pm] Modern Perl by chromatic
In-Reply-To: <20101112092505.GA27972@dedomm.validad.net>
References: <20101112092505.GA27972@dedomm.validad.net>
Message-ID: <AANLkTim37m_NQhWpxWApTfcz26kNh9iiCi2bddUbSkbi@mail.gmail.com>

Eine bemerkenswerte Leistung, das Wesentliche von Perl 5 auf  176 Seiten A4
darzustellen.

Sicher kein "Kochbuch f?r alle Anl?sse", aber ein sehr guter Wegweiser durch
den
Dschungel ;-), der auf mehr und weniger bekannte Fallgruben hinweist.

?brigens: guter Stil, f?r einen Techie.

-W

On 12 November 2010 10:25, Thomas Klausner <domm at cpan.org> wrote:

> Um den Kreis #Austria.pm->Bratislava->Vienna.pm zu schliessen:
>
> 08:53 < domm> step 1: http://www.onyxneon.com/books/modern_perl/index.html
> 08:53 < domm> step 2: ins Buchgeschaeft gehen und bestellen
> 09:21 < jozef> domm: thanks, forwarded to ba.pm mailinglist :)
>
> ----- Forwarded message from Jozef Kutej <jozef at kutej.net> -----
>
> Date: Fri, 12 Nov 2010 09:15:59 +0100
> From: Jozef Kutej <jozef at kutej.net>
> To: "bratislava-pm at pm.org" <bratislava-pm at pm.org>
> Subject: [Bratislava-pm] Modern Perl by chromatic
>
> Ahojte,
>
> vy?la nov? kni?ka "Modern Perl" a je aj volne dostupn? ako PDF:
>
> http://www.onyxneon.com/books/modern_perl/index.html
>
> "zdroj?ky" k nej s? tu:
>
> https://github.com/chromatic/modern_perl_book
>
> Pekn? de?,
> Jozef
>
> _______________________________________________
> Bratislava-pm mailing list
> Bratislava-pm at pm.org
> http://mail.pm.org/mailman/listinfo/bratislava-pm
>
> ----- End forwarded message -----
>
> --
> #!/usr/bin/perl                              http://domm.plix.at
> for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20101112/9bec6728/attachment.html>

From rgiersig at cpan.org  Wed Nov 17 06:10:40 2010
From: rgiersig at cpan.org (Roland Giersig)
Date: Wed, 17 Nov 2010 15:10:40 +0100
Subject: [Vienna-pm] APA Stellenausschreibung
Message-ID: <4CE3E260.5070200@cpan.org>

Hallo Leute,

hat sich noch wer um die Stelle bei der APA beworben?

LG, Roland

From daxim at cpan.org  Thu Nov 18 06:58:53 2010
From: daxim at cpan.org (Lars =?utf-8?b?RMmq4bSH4bSE4bSL4bSP4bShIOi/quaLieaWrw==?=)
Date: Thu, 18 Nov 2010 15:58:53 +0100
Subject: [Vienna-pm] =?utf-8?q?Themen_f=C3=BCr_2010-12-02?=
Message-ID: <201011181559.11351.daxim@cpan.org>

* naxx: remote method invocation with language interoperability

Bitte beachten: unser Treffort im NIG f?llt weg; wir ziehen um ins Metalab, 
siehe auch <http://vienna.pm.org/treffen.html>. Wir bedanken uns bei Gerhard 
und Christoph f?r die bisherige freundliche Zusammenarbeit.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: This is a digitally signed message part.
URL: <http://mail.pm.org/pipermail/vienna-pm/attachments/20101118/63b53d50/attachment.bin>

From christoph.jokubonis at univie.ac.at  Thu Nov 18 07:02:44 2010
From: christoph.jokubonis at univie.ac.at (Christoph Jokubonis)
Date: Thu, 18 Nov 2010 16:02:44 +0100
Subject: [Vienna-pm] =?utf-8?q?Themen_f=C3=BCr_2010-12-02?=
In-Reply-To: <201011181559.11351.daxim@cpan.org>
References: <201011181559.11351.daxim@cpan.org>
Message-ID: <4CE54014.1060204@univie.ac.at>


Hi,

On 11/18/2010 03:58 PM, Lars D?????? ??? wrote:
> * naxx: remote method invocation with language interoperability
> 
> Bitte beachten: unser Treffort im NIG f?llt weg; wir ziehen um ins Metalab, 
> siehe auch <http://vienna.pm.org/treffen.html>. Wir bedanken uns bei Gerhard 
> und Christoph f?r die bisherige freundliche Zusammenarbeit.

Danke! Gern geschehen! Leider entf?llt nun das Element des
"unmittelbaren Zwangs", zu den Treffen zu kommen - werde dennoch
schauen, dass ich vorbeikommen kann .. ;)

lG, Christoph

> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Vienna-pm mailing list
> Vienna-pm at pm.org
> http://mail.pm.org/mailman/listinfo/vienna-pm

-- 
Christoph Jokubonis                  christoph.jokubonis at univie.ac.at
Vienna University Computer Center    Phone: +43-1-4277-141 84
http://www.univie.ac.at/ZID/         Fax:   +43-1-4277-143 38
--