Hey,
du hast da ja ein absonderliches Konstrukt, keine Daten, sondern Code. Normalerweise kommt man an solche Innereien ja nicht heran, aber Perl wäre nicht Perl, wenn nicht doch ginge. Du möchtest peek_sub aus dem Modul PadWalker. http://search.cpan.org/dist/PadWalker
Das Problem ist nur, dass die inneren lexikalischen Variablen noch nicht existieren, wenn du peek_sub vor der anonymen Sub aufrufst, und dass sie ihre Gültigkeit verloren haben, wenn du peek_sub nach Ablauf der Sub aufrufst.
--
水-金-地-火-木-土-天-海-冥
水-金-地-火-木-土-天-海-冥