nur bestimmte worte zulassen: durch grep zur loesung aber wie? - #69230 (Allgemeines zu Perl)

Crian

2006-08-25 15:53

User since
2003-08-04
5866 Artikel
ModeratorIn

Was soll eigentlich die Schleife drum herum? Die beeinflusst doch @array gar nicht? Dann wird @new nur unnötig oft gebildet auf diese Weise. Falls du die Zeilen abprüfen willst, mach es so:

Code: (dl )

my @new;
while(<FH>) {  
    chomp;
    push @new, $_ if /BRIN|SAGEF403/;
}
print "new: @new\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