On 12/19/2003 3:41 PM, Eckart Uhlig wrote:
Hi all,
is there a way to determine the name of the current called subroutine? I
don't want to print out the subroutine's name explicitly, I'm hoping for
a 'magic' variable/ function or something like that, which I can pass to
a plain printout function.
It is the caller subroutine. I use it for printing start and stop times for
particular subs. So the print sub references who called him by something like:
#!perl -w
sub a {
c;
$caller = (caller(0))[3];
$caller =~ s/.*:://;
print 0 I am $caller\n;
};
sub b {c};
sub c {
On Friday 19 December 2003 15:41, Eckart Uhlig wrote:
Hi all,
is there a way to determine the name of the current called subroutine? I
don't want to print out the subroutine's name explicitly, I'm hoping for
a 'magic' variable/ function or something like that, which I can pass to
a plain