Perl progname

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

Replies are listed 'Best First'.
Re: Perl progname by cdarke (Prior) on Aug 06, 2008 at 13:03 UTC
Not really. If someone went to the trouble of screwing $0, then they might also delete or mv the script as well. rename or unlink on $0 are both possible.	[reply]
Re: Perl progname by zentara (Cardinal) on Aug 06, 2008 at 14:41 UTC
If you have the /proc filesystem, the most you can do is get the pid with $$, then check /proc/$pid/cmdline to get the full path to the executable. I'm not really a human, but I play one on earth Remember How Lucky You Are	[reply]
Re^2: Perl progname by alexm (Chaplain) on Aug 06, 2008 at 17:10 UTC
then check /proc/$pid/cmdline ... `cmdline` doesn't exist in Solaris /proc. Proc-ProcessTable does the trick on several platforms: `use strict; use warnings; use Proc::ProcessTable; my $proc_table = Proc::ProcessTable->new->table; my ($process) = grep { $_->pid == $$ } @$proc_table; print $process->cmndline, "\n";` [download]	[reply] [d/l] [select]
Re^2: Perl progname by AltBlue (Chaplain) on Aug 07, 2008 at 15:21 UTC
`/proc/$$/cmdline` will reflect `$0`'s modification, e.g.: `$ perl -le '$0="foo"; print qx "cat /proc/$$/cmdline"' foo` [download]	[reply] [d/l] [select]