Opened by Gast at 2004-07-13 17:39
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Geht mit einem weiteren Plus:
Ausgabe
das hab ich eben einfach vergessen, ich editiere es oben noch mit rein...
Edit: Falls Du auch Umlaute / SZ in deinen Strings hast musst Du noch use locale; verwenden oder [A-ZÄÖÜa-zäöüß] statt \w nehmen.\n\n
<!--EDIT|Crian|1089729588-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
my @array = ("cd.interpret.album.song","cd.interpret.album","cd.interpret","cd");
for my $i (0..$#array) {
# alle einträge mit 2 punkten, sollte "cd.interpret.album" ergeben
if ($array[$i] =~ m~^(\w+\.){2}\w+$~) {
print $array[$i] ."\n";
}
}
Ausgabe
Code: (dl
)
cd.interpret.album
das hab ich eben einfach vergessen, ich editiere es oben noch mit rein...
Edit: Falls Du auch Umlaute / SZ in deinen Strings hast musst Du noch use locale; verwenden oder [A-ZÄÖÜa-zäöüß] statt \w nehmen.\n\n
<!--EDIT|Crian|1089729588-->
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
use strict; use warnings; Link zu meiner Perlseite