Symboltabelle lokal ummappen (Perl-Community.de)

[thread]12671[/thread]

Symboltabelle lokal ummappen

LanX-

2008-10-23 19:38

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

Hi

ich weiß dass man mit Symboltabellen und Stashes wilde sachen machen kann, an die sich niemand mehr erinnern will. ;)

kann mir jmd sagen ob man eine Symboltabelle mit local auf eine anderen Tabelle aliasen kann?

danke
Rolf

Code (perl): (dl )

#!/usr/bin/perl

package ding;
our $a="x";

package dong;
our $a="a";

sub show {
    print $a;
}

{
    local *dong::=*ding::;
    dong::show(); # soll "x" liefern, gibt aber "a"
}

me and my writeups

moritz

2008-10-23 19:53

User since
2007-05-11
923 Artikel
HausmeisterIn

Wenn das, was du da probierst funktionieren würde, dann würde dong::show() nicht funktionieren, weil dong nach ding ge-alias-ed ist und es kein ding::show() gibt.

Allerdings weiss ich auch nicht wie es geht, sorry.

Perl 6 - Perls Zukunft

LanX-

2008-10-23 20:10

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

hmm ...stimmt, man kommt nicht umhin show() zu einem lexikalischen code_ref zu machen...

Das Ummappen funktioniert übrigens prinzipiell, wenn man

Code (perl): (dl )

print eval '$a';

einfügt kommt "x" raus, die Bindung der anderen Variablen erfolgte
halt bereits zur Compilezeit

me and my writeups

View all threads created 2008-10-23 19:38.