#Kein Kommentar+2008-01-03 21:26:08--

du könntest die meldungen alle einem array speichern, macht das dann alles wartbarer.

kleines beispiel:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

my @strings     = qw (
                                abc 
                                def 
                                der
                          );

my $string      = join ("|", @strings);

my $test        = "defined";


if ($test =~ m/$string/i){
        print "GEFUNDEN! ($&)\a\a\a\a";
}

<>;

my $test        = "defined";