#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";

mr-sansibar+2008-01-03 21:02:16--

kann man diese Funktion kompakter schreiben ?

vg, mr-sansibar

Code (perl): (dl )

1
2
3

if ( $message =~ /socketException/ ) {
                return 'NullPointerException';
        }

Lieblingsmodule: IPC::System::Simple, Path::Class

betterworld+2008-01-11 19:40:16--

mr-sansibar+2008-01-03 21:02:16--

kann man diese Funktion kompakter schreiben ?

vg, mr-sansibar

Code (perl): (dl )

1
2
3

if ( $message =~ /socketException/ ) {
                return 'NullPointerException';
        }

Das sollte wohl SocketException heißen statt NullPointerException, oder? (NullPointerException wird ja weiter unten noch mal abgefragt).

Am Auftreten solcher Fehler merkt man, dass es auf jeden Fall notwendig ist, das kompakter zu schreiben :)