Mehrere reguläre Ausdrücke finden - #52172 (Allgemeines zu Perl)

Crian

2005-02-28 17:44

User since
2003-08-04
5870 Artikel
ModeratorIn

Code: (dl )

my @gefunden;
while (my ($tag) = $line =~ /<OrderPosAd(.*?)>/g) {
    my ($merkmal) = $tag =~ / Datum=\"(.*?)\"/;
    push @gefunden, $merkmal;
}

btw., statt

Code: (dl )

1
2

@Zeilen = <DATEIINHALT>;
$line = join('', @Zeilen);

benutz doch

Code: (dl )

my $line; {local $/; $line = <DATEIHANDLE>; }

oder File::Slurp.

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