Funktion sub write_log universal gestalten - #113009 (Allgemeines zu Perl)

MatthiasW

2008-08-01 22:47

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Naja, wie wäre es mit mehr als nur einem Parameter?
Einer fürs Format von printf() und weitere für die jeweiligen Werte:

Code (perl): (dl )

sub write_log
{
    my( $id, @values ) = @_; # pick parameters

    # ...
    print  LOG '-'x60, "\n$values[0]\n" if $id == 1;
    printf LOG @values if $id != 1;
    print  LOG "\n"    if $id == 3;
    # ...
} # write_log

MfG

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'