Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: How to get the name from a reference

by Marshall (Prior)
on Mar 30, 2009 at 20:09 UTC ( #754241=note: print w/ replies, xml ) Need Help??

in reply to How to get the name from a reference

I second ikegami's comment: what is the purpose?

With Perl there are amazing things that you can discover about what is going on in a sub. Just some simple example code is shown below. I am unsure as to what you want.

#!/usr/bin/perl -w use strict; print "testing main\n"; x(); sub x { print "In sub x\n"; print " I am: ", WHOamI(), "\n"; SubLevel2(); } sub SubLevel2 { print "in sub SubLevel2\n"; print " I am: ", WHOamI(), "\n"; print " I was called by ", WHOwasI(),"\n"; } sub WHOamI { (caller(1))[3] }; #returns name of the #sub that called this sub sub WHOwasI { (caller(2))[3] }; #returns name of the parent of #the sub that called this sub __END__ #prints testing main In sub x I am: main::x in sub SubLevel2 I am: main::SubLevel2 I was called by main::x

Comment on Re: How to get the name from a reference
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://754241]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2015-11-28 18:18 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (743 votes), past polls