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

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12

sub work_with_tmp_line {
        my ($message) = @_;
        if ( $message =~ /socketException/ ) {
                return 'NullPointerException';
        }
        ...

        elsif ( $message =~ /Exception/ ) {
                return 'Exception';
        }
        ...
}