String in Zeile einer Datei suchen - #71453 (Allgemeines zu Perl)

Crian

2006-11-06 14:24

User since
2003-08-04
5873 Artikel
ModeratorIn

Einfach mit last rausgehen wenn ein Treffer auftrat.

Also mit deinem Code von oben:

Code: (dl )

my $lineCounter      = 0;
my $line             = "";
open(FILE, '<', $filename) || die "Error: Could not open: $!";
while( $line = <FILE> ) {
    if ( $line =~ /# Ausdruck1/
             or
         $line =~ /# Ausdruck 2/
             or
         $line =~ /# Ausdruck 3/
    ) {
        $contentLNKArray[$lineCounter++] = $line;
        last;
    }
}

\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