Thread Kompaktere und wartbare Funktionen schrieben
(5 answers)
Opened by mr-sansibar at 2008-01-16 21:20
ich bin nicht so der mensch, der kompakte funktionen schrieben kann:
ist es möglich diese funktion kompkater zu schreiben und gegebenfalls gut zu warten ! Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 sub find_server_instanz { my ($server_instanz) = @_; if ( $server_instanz =~ /aja1/ ) { return 'aja1'; } elsif ( $server_instanz =~ /aja2/ ) { return 'aja2'; } elsif ( $server_instanz =~ /aja3/ ) { return 'aja3'; } elsif ( $server_instanz =~ /aja4/ ) { return 'aja4'; } elsif ( $server_instanz =~ /aja5/ ) { return 'aja5'; } elsif ( $server_instanz =~ /aja6/ ) { return 'aja6'; } elsif ( $server_instanz =~ /antef1/ ) { return 'antef1'; } elsif ( $server_instanz =~ /antef2/ ) { return 'antef2'; } elsif ( $server_instanz =~ /antef3/ ) { return 'antef3'; } elsif ( $server_instanz =~ /antef4/ ) { return 'antef4'; } elsif ( $server_instanz =~ /antef5/ ) { return 'antef5'; } elsif ( $server_instanz =~ /antef6/ ) { return 'antef6'; } danke |