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

How can a snippet of running code determine which file it came from (assuming it wasn't built on the fly)? I know $0 gives you the program, and __PACKAGE__ gives you the package, but how does one get to the filename?

Thanks!

water

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]
      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]
        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]
          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]

Back to Seekers of Perl Wisdom