Problem mit "Klasse" und Array Übergabe - #56694 (Allgemeines zu Perl)

frodus

2005-07-26 13:44

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

Hi,

Ist zwar nicht getested aber ich wuerde es so versuchen:

Code: (dl )

sub InitMenuFunc {
    my $self=shift;
    # print "self: " . $self . "\n";
    my $idx = 0;
    foreach my $element ( @_ ) {
        $self->{menuFunc}->[$idx] = $element;
        $idx++;
    }
}

oder so:

Code: (dl )

sub InitMenuFunc {
    my $self=shift;
    @{$self->{menuFunc}} = @_;
}

Gruss,

Frodus

Edit: Sollte eigentlich so aussehen! ;-)\n\n