Worte trennen (Allgemeines zu Perl)

havi

2004-06-01 15:21

User since
2003-08-04
2036 Artikel
BenutzerIn

Hallo!

Ich muss Worte nach GROSSklein-Schreibung trennen.

Das ganze sieht wie folgt aus:
GernotHavranek # Ergebnis sollte Gernot Havranek sein
dasIst Havi # das ist Havi

Gruss
Gernot

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2004-06-01 15:26

User since
2003-08-04
5871 Artikel
ModeratorIn

[quote=havi,01.06.2004, 13:21]Hallo!

Ich muss Worte nach GROSSklein-Schreibung trennen.

Das ganze sieht wie folgt aus:
GernotHavranek # Ergebnis sollte Gernot Havranek sein
dasIst Havi # das ist Havi

Gruss
Gernot[/quote]
'GernotHavranek' -> 'Gernot Havranek'
'dasIst Havi' -> 'das Ist Havi'

?

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

my @words = ('GernotHavranek', 'dasIst Havi');

print "'$_'\n" for @words;

s~(?<=[a-zäöüß])(?=[A-ZÄÖÜ])~ ~g for @words;

print "'$_'\n" for @words;

Ausgabe:

Code: (dl )

'GernotHavranek'
'dasIst Havi'
'Gernot Havranek'
'das Ist Havi'

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2004-06-01 15:29

User since
2003-08-04
2036 Artikel
BenutzerIn

Ja sorry, du hast recht...

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2004-06-01 15:31

User since
2003-08-04
5871 Artikel
ModeratorIn

Lösung siehe oben, hab Deine Antwort nicht gesehen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-06-01 15:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2

my $var = 'diesIstEinTest';
$var =~ s/([A-Z][a-z]+?)/ $1/g;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2004-06-01 15:34

User since
2003-08-04
5871 Artikel
ModeratorIn

[quote=renee,01.06.2004, 13:32]

Code: (dl )

1
2

my $var = 'diesIstEinTest';
$var =~ s/([A-Z][a-z]+?)/ $1/g;

[/quote]

'DiesIstEinLangerTest' -> ' Dies Ist Ein Langer Test'

Wofür ist +? ? In welchem Fall würde + allein zu viel lesen?

Für Umlaute brauchst Du dann noch use locale; oder aber eine Variante wie oben...\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

havi

2004-06-01 15:38

User since
2003-08-04
2036 Artikel
BenutzerIn

Vielen Dank!

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

renee

2004-06-01 15:49

User since
2003-08-04
14371 Artikel
ModeratorIn

@Crian: Ich habe Deine Antwort erst gesehen, als meine schon gesendet war...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2004-06-01 16:30

User since
2003-08-04
5871 Artikel
ModeratorIn

Dacht ich mir schon. Ich finde ich darf trotzdem mäkeln ;)

Man könnte auch rätseln, ob es besser ist, es so zu machen, wie in meiner Lösung oben, also mit look behind und look ahead:

Code: (dl )

s~(?<=[a-zäöüß])(?=[A-ZÄÖÜ])~ ~g for @words;

oder ob es besser ist

Code: (dl )

s~([a-zäöüß])([A-ZÄÖÜ])~$1 $2~g for @words;

zu verwenden. Ich fange halt am liebsten nichts, wenn es sich nicht umgehen lässt.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite