how to get the caller's information?

[Brady]

hi, all,

i want to have a sub debug, which takes a string as a parameter, and
print the file name and line number of the place invoking the sub.

I tried to :
in main.pl:

if ($something_is_wrong) {
Mylib:ebug("wrong!!!");
}

in Mylib.pm

sub Debug()
{
print STDERR, "__FILE__:__LINE__", @_;
}

but, the __FILE__ and __LINE__ is the Mylib.pm and the line number of
Mylib.pm.

how to get the caller's place?


thanks & best wishes!

/Brady

 

[brian d foy]

how to get the caller's place?

have you tried the caller() builtin?

perldoc -f caller

 

[DJ Stunks]

hi, all,

i want to have a sub debug, which takes a string as a parameter, and
print the file name and line number of the place invoking the sub.

I tried to :
in main.pl:

if ($something_is_wrong) {
Mylib:ebug("wrong!!!");
}

in Mylib.pm

sub Debug()
{
print STDERR, "__FILE__:__LINE__", @_;
}

but, the __FILE__ and __LINE__ is the Mylib.pm and the line number of
Mylib.pm.

how to get the caller's place?

use Carp;

-jp