Hilfe zu negiertem Regex - #168515 (Allgemeines zu Perl)

bob.george

2013-06-21 09:43

User since
2011-09-02
104 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich habe folgenden Code:

Code: (dl )

1
2
3

if($input =~ !/^\*\*\*INPUT STATEMENT:/i){
    print "Treffer: ".$input."\n";
}

Dieser sollte beim Inhalt -- ----- einen "Treffer" liefern, tut er aber nicht. Weiß jemand warum?