Opened by Ishka at 2005-07-27 00:02
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
Hallo,
Wenn man eine Referenz in einen String einbaut, kommt ja das schöne ARRAY(0x85d400c) oder ähnliches dabei raus. Und nachdem mir die Frage schon länger durch den Kopf geistert und das mal wieder praktisch wäre, frage ich einfach: Gibt es einen Weg das wieder zurückzuverwandeln? Und wenn ja, wie?
Mir ist durchaus bewusst, daß die referenzierte Variable nicht mehr zwangsweise existieren muß, aber dann sollte man halt das rausbekommen können.
danke,
Ishka
Wenn man eine Referenz in einen String einbaut, kommt ja das schöne ARRAY(0x85d400c) oder ähnliches dabei raus. Und nachdem mir die Frage schon länger durch den Kopf geistert und das mal wieder praktisch wäre, frage ich einfach: Gibt es einen Weg das wieder zurückzuverwandeln? Und wenn ja, wie?
Mir ist durchaus bewusst, daß die referenzierte Variable nicht mehr zwangsweise existieren muß, aber dann sollte man halt das rausbekommen können.
danke,
Ishka
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}