Opened by pktm at 2006-07-15 01:17
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
[quote=pktm,15.07.2006, 13:22]
[/quote]
Wieso erwartest du, dass in $1 irgendwas steht? die RE fängt nichts.
Code: (dl
)
1
2
3
4
5
while($text =~ m/\s+|\s*\t|\s*\n\r?|und so weiter/g) {
print "Gefunden an Position", pos $text, "\n";
print "Das gefundene Zeichen ist: [$1]\n";
print "Leider kann ich nicht genau sagen, um was für ein Zeichen es sich handelt...\n";
}Wieso erwartest du, dass in $1 irgendwas steht? die RE fängt nichts.
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