Fenster in Schleife - #43678 (Graphische Oberflächen)

Crian

2005-04-25 15:50

User since
2003-08-04
5873 Artikel
ModeratorIn

[quote=Strat,25.04.2005, 13:13]for($j=0;$j<@bilder;$j++) kannst du einfacher schreiben: for my $j (0..$#bilder)[/quote]
Und wenn Du den Index in der Schleife gar nicht benutzt, mach doch einfach

Code: (dl )

1
2
3

for my $bild (@bilder) {
   ... # $bild statt $bilder[$i]
}

und

Code: (dl )

1
2
3

for my $dat(@datei) {
   ... # $dat statt $datei[$i]
}

\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