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

2005-07-26 15:03

User since
2005-07-23
4 Artikel
BenutzerIn
[default_avatar]

Danke für die Antworten. So wie es frodus vorgeschlagen hat, funktioniert es:

Initialisieren:

Code: (dl )

sub InitMenuLines {
    my $self=shift;
    @{$self->{menuLines}} = @_;
}

Ausgabe hab ich jetzt folgendendermassen gelöst um auf die &$ref zu verzichten:

Code: (dl )

sub GetMenuLines {
    my $self = shift;
    my $idxFunc = shift;
    # my $ref = $self->{menuFunc}->[$idxFunc];
    # &$ref;
    &{$self->{menuFunc}->[$idxFunc]};
}

Vielleicht kann mir die Zeile noch jemand kurz erklären:

Code: (dl )

@{$self->{menuLines}} = @_;

Grüße
Markus