Code asks, in what file do I live?

water has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Code asks, in what file do I live? by Sidhekin (Priest) on Sep 23, 2004 at 17:51 UTC
Is `__FILE__` what you are looking for? `sidhekin@blackbox:~$ perl -le 'print __FILE__' -e sidhekin@blackbox:~$` [download] `print "Just another Perl ${\(trickster and hacker)},"` The Sidhekin proves Sidhe did it!	[reply] [d/l] [select]
Re: Code asks, in what file do I live? by shemp (Deacon) on Sep 23, 2004 at 17:53 UTC
use caller(). `($packeage, $filename, $line) = caller;` [download] Called without an arguement, caller() returns the above, about the currently executing subroutine.	[reply] [d/l]
Re^2: Code asks, in what file do I live? by dave_the_m (Monsignor) on Sep 23, 2004 at 19:19 UTC
Called without an arguement, caller() returns the above, about the currently executing subroutine. Er, actually it returns stuff about the caller of the current subroutine. Dave.	[reply] [d/l]
Re^3: Code asks, in what file do I live? by Steve_p (Priest) on Sep 23, 2004 at 20:27 UTC
Er, actually it returns stuff about the caller of the current subroutine Well, if you pass in 0 (`caller(0)`) then you get the `caller` information for the current stack frame plus some more information. `my $filename = (caller(0))[1];` [download]	[reply] [d/l]
Re^4: Code asks, in what file do I live? by dave_the_m (Monsignor) on Sep 23, 2004 at 20:46 UTC
A reply falls below the community's threshold of quality. You may see it by logging in.
Re: Code asks, in what file do I live? by ikegami (Patriarch) on Sep 23, 2004 at 17:46 UTC
Maybe you want this: `package Foo::Bar; sub test { my $pkg = __PACKAGE__; $pkg =~ s#::#/#g; $pkg .= '.pm'; print($INC{$pkg}, "\n"); }` [download] It definitely has limitations (when `package Foo::Bar` isn't in or only in `Foo/Bar.pm`, for starters. On second thought, caller provides some nice info: `package Pkg; sub test { local $,=", "; local $\="\n"; print(caller(0)); } test(); __END__ output ====== Pkg, script.pl, 10, Pkg::test, 1, , , , 0,` [download]	[reply] [d/l] [select]


Syntactic Confectionery Delight
	PerlMonks