[Perl] Regulärer Ausdruck umkehren

[goepp]

hajo!

ich möchte gern alles aus einer textdatei raussschmeissen, was nicht folgendem regulären ausdruck entspricht:

\x02\d{19}[A-Z]\x0a\x0d

wie stelle ich sowas an?

[etreu]

Wenn X dein RegEx ist, dann sollte doch [^X] quasi alles andere sein, oder?

[Monty82]

Die Verneinung mit ^ funktioniert nur innerhalb eines Zeichenbereichs.

Meinst Du sowas?

#!/usr/bin/perl

open(FIN,"<".$ARGV[0]);

open(FOUT,">".$ARGV[1]);

while (<FIN>) {

  if ($_ !~ /\x02\d{19}[A-Z]\x0a\x0d/is) {

    print FOUT $_;

  }

}

close(FOUT);

close(FIN);

Aufruf:

script.pl input.txt output.txt

[goepp]

hajo!

danke! sowas in der richtung meinte ich.