Regex-Problem mit Backreferences - #79794 (Allgemeines zu Perl)

Crian

2004-02-05 19:09

User since
2003-08-04
5873 Artikel
ModeratorIn

Auch bei meiner Variante durchläuft $i die Werte von 0 bis zum letzten Arrayindex.

Zum Continueblock: Dann mach lieber am Anfang der inneren Schleife ++$i und lass das ++ weiter hinten und den Continueblock weg.

Statt

Code: (dl )

for ($i=0; $i<=$#parts; $i++) { print "Element $i: $parts[$i]\n"; }

Kannst Du auch ganz elegant schreiben:

Code: (dl )

print "Element $_: $parts[$_]\n" for (0..$#parts);

:D

Wegen der CR LF / LF Problematik: Führ einmal nach dem Einlesen Deiner "Zeile"

s~\r\n~\n~g;

aus. (Du bist doch unter Linux/Unix?)\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