Which subroutine was I in?

[kempis555]

Is there any variable or function that I can use to know which subroutine is currently being executed?

This would be a big help in speeding up programming.
For instance,

sub one{
open(INFILE, "infile.txt&quot || &bug("Couldn't open file in subroutine $which_subroutine"
...
}

sub two{
open(INFILE, "infile.txt&quot || &bug("Couldn't open file in subroutine $which_subroutine"
...
}

if the file can't be opened in sub one, it's $which_subroutine has a value of "one"... likewise "two" for two.

Or maybe there's a better way to do all this?
Thanks in advance

-kempis555

 

[tsdragon]

Try using the caller function. To find the CURRENT values pass it a value of 0. To find out the values of the CALLING subroutine, pass it a value of 1. E.G:

local($pkg, $file, $line, $subrtn, $has, $want) = caller(1);

You may need to experiment with the value passed to caller() to get the ones you're looking for, but it works. Tracy Dryden
tracy@bydisn.com

http://www.bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.

 

[kempis555]

Hey thanks tsdragon!



-k