Zugriff auf sub-Funktionen - #104348 (Allgemeines zu Perl)

nepos

2008-01-02 18:41

User since
2005-08-17
1420 Artikel
BenutzerIn

Hm, du könntest das auch so machen:

Code (perl): (dl )

sub birth {
    my (@birthage, @birthgender);
    for my $i (0..$n){
        $birthage[$i]=0;
        $birthgender[$i]=1;
    }
    return(\@birthage, \@birthgender);
}

Dadurch liefert deine Funktion einen Array mit zwei Referenzen auf die Arrays mit dem Alter und dem Geschlecht zurück.
Dann musst du beim Pushen nur noch den Array dereferenzieren:

Code (perl): (dl )

1
2
3

my ($age_ref, $gender_ref) = birth();
push(@age, @$age_ref);
push(@gender, @$gender_ref);