funktion kompakter schrieben - #104370 (Allgemeines zu Perl)

Ronnie

2008-01-04 00:56

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

sub work_with_tmp_line {
    my ($message) = @_;
    $message =~ /(\w+)(Exception)/ and return "$1$2";
    return 'No Exception';
}