Parameter und Subroutinen (Prototypen, Referenzen?!) - #148961 (Allgemeines zu Perl)

MatthiasW

2011-05-21 12:10

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

Eine Art und Weise soetwas zu verwirklichen wäre die Parameter mit dazugehörigen Namen an die Subroutine zu übergeben:

Code (perl): (dl )

sub array_to_string {
    my %p = @_;
    #$p{'switch'} //= '-';
    $p{'switch'} = '-' unless exists $p{'switch'}; # edit
    join $p{'switch'}, @{ $p{'array'} };
}

array_to_string(
    array => [1..3],
    #switch => '#',
);

edit:
Ansonsten könntest du auch den Array als Referenz als ersten Parameter an die Subroutine übergeben:

Code (perl): (dl )

sub array_to_string {
    my ($array, $switch) = @_;
    $switch = '-' if $#_ < 1;
    join $switch, @$array;
}

array_to_string([1..3], '#');
#array_to_string([1..3]);

MfG
Last edited: 2011-05-21 13:49:05 +0200 (CEST)

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