RegExps: Suchen und Ersetzen...

[Christian Kruse]

Hallo Patrick,

$TEXTLINES =~ s zPatrick AndrieuzChristian Krusez; :)

Dann aber:

$TEXTLINES =~ s zEr schnarchtzEr macht \z\z\z\zz; , oder?

Korrekt. Ich sehe, du hast es verstanden :)

s!<form[^>]*>.*?</form>!!s;

Hmm... da haut's immer noch nicht hin. Form
bleibt hartnäckig sichtbar...

Hast du mehrere Forms im Dokument und willst die
alle weg haben? Dann musst du den Modifier g
anhaengen. Die Datei liegt aber schon komplett in
einem Skalar und nicht zeilenweise in einem Array?
Du solltest die Datei so einlesen:

sub readfile {
  my $file = shift;
  local (*DAT,$/);

open DAT,'<'.$file or do {
    warn "could not open '$file': $!";
    return;
  };

my $cnt = <DAT>;

close DAT and return $cnt;

return;
}

Gruesse,
 CK