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

Crian

2006-08-25 17:03

User since
2003-08-04
5873 Artikel
ModeratorIn

Vermutlich ist das folgende das, was du willst *rat*

Code: (dl )

while (defined (my $line = <FH>)) {
    chomp $line;
    my @array = (split /[\t\s\\]/, $line)[0 .. $columns1];
    for (@array) {
        s/^\s+/;/g;                      
        s/\s+$/;/g;                        
    }
    push @data, [@array] if $line =~ /\b(?:BRIN|SAGEF403)\b/;
}

print "nur die gewollten:\n";
print "@$_\n" for @data;

close FH or warn $!;

\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