Re: Perl progname

[zentara]

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.

[alexm]

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";

[AltBlue]

/proc/$$/cmdline will reflect $0's modification, e.g.:

$ perl -le '$0="foo"; print qx "cat /proc/$$/cmdline"'
foo