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

2005-07-26 13:26

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

Hallo,

ich möchte einer Klasse einen Array übergeben der als Inhalt Adressen von Funktionen hat.

Übergabeparamter:

Code: (dl )

1
2

my $menuMain=menuClass->new();
$menuMain->InitMenuFunc (\&main::Test0, \&main::Test1);

Nur die Übergabe des Arrays funktioniert nicht, weder so:

Code: (dl )

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

noch so:

Code: (dl )

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

Der Aufruf der Funktionen, funktioniert auch nur über Umwegen über &$ref, kann ich die Funktion nicht direkt ausführen?:

Code: (dl )

1
2
3

    my $ref = $self->{$menuFunc[0]};
    print "ref: " . $ref . "\n";
    &$ref;

Grüße
Markus\n\n