funktion kompakter schrieben - #104371 (Allgemeines zu Perl)

topeg

2008-01-04 09:23

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Noch was kürzer ;-)

Code (perl): (dl )

1
2
3

sub work_with_tmp_line {
     return (shift() =~ /(\w+Exception)/)?$1:'No Exception';
}

oder:

Code (perl): (dl )

sub work_with_tmp_line {
       my $typ=join('|',qw(socket 
                           ArrayIndexOutOfBounds
                           NullPointer
                           LockedPin
                           Authentication
                           BusinessService
                           IllegalState
                           NumberFormat
                           NoSuchElement
                           Remote
                           SQL
                           IO
                           FileNotFound));
     return (shift() =~ /((?:$typ)?Exception)/)?$1:'No Exception';
}