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
öhm ... hast Du Dir den Thread durchgelesen?
Außerdem:
Ausgabe:
Erstens ist der ausgegebene Kommentar irreführend und zweitens die RE fehlerhaft...
*grmp* ;)\n\n
<!--EDIT|Crian|1075127232-->
Außerdem:
Code: (dl
)
1
2
3
4
5
6
my @array = qw(01_Test 02_Tester 10_irgendwas 42_schoenes.Beispiel);
foreach my $file (@array){
if($file =~ /^\d{1,2}_\w+|^\w+$/){
print "'$file' enthält eine Endung oder ist ungueltig!\n";
}
}
Ausgabe:
Code: (dl
)
1
2
3
4
'01_Test' enthält eine Endung oder ist ungueltig!
'02_Tester' enthält eine Endung oder ist ungueltig!
'10_irgendwas' enthält eine Endung oder ist ungueltig!
'42_schoenes.Beispiel' enthält eine Endung oder ist ungueltig!
Erstens ist der ausgegebene Kommentar irreführend und zweitens die RE fehlerhaft...
*grmp* ;)\n\n
<!--EDIT|Crian|1075127232-->
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