Opened by Patrick at 2004-01-26 15:12
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Dann doch lieber so:
Ausgabe
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
for (qw(01_Test
02_Tester
10_irgendwas
42_schoenes.Beispiel
)
)
{
if (m~^(?:\d{2}_)?\w+$~) {
print "'$_' passt :)\n";
}
else {
print "'$_' enthält eine Endung oder ist ungueltig :-(\n";
}
}
Ausgabe
Code: (dl
)
1
2
3
4
'01_Test' passt :)
'02_Tester' passt :)
'10_irgendwas' passt :)
'42_schoenes.Beispiel' enthält eine Endung oder ist ungueltig :-(
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