in reply to Re: Parent process name
in thread Parent process name

Thanks a lot!

It works with one little change:

$ ps -p xxxx

  PID TTY          TIME CMD
29580 pts/4    00:00:00 bash

$ ps -p yyyy

   PID TTY      TIME CMD
  9556 pts/49   0:00 bash

[download]
See the blank space? Depending on it presence, I have to take the forth or the fifth elemnt of the last split. It works changing this line:
my $parent = (grep {/^\s*\d+/} (`ps -p $parent_id`))[0];

[download]
With this:
my $parent = " ".(grep {/^\s*\d+/} (`ps -p $parent_id`))[0];

[download]
Now I have at least one blank and have allways to take fifth element. Thanks again for the code.
BTW, even if I work with UNIX, I must deal with different flavours (UNIX, Solaris, HP-UX...) and don't know if ps will output the same format everywhere (I'm going to test it).

And the worst thing, I've just been told to make it run on Window$ 8( Is there anyway to get rid of the ps calls?

Replies are listed 'Best First'.
Re: Re: Re: Parent process name
by gsiems (Deacon) on May 28, 2004 at 16:55 UTC

    Good catch on the leading space ++

    "And the worst thing, I've just been told to make it run on Window$" Ouch!

    Well there's Win32::Process::Info for MS (which I have not used and know nothing about) and Proc::ProcessTable for unix (which I haven't used yet either), but they might be worth looking at.

[reply]
Re: Re: Re: Parent process name
by meetraz (Hermit) on May 28, 2004 at 19:06 UTC
    Here's a windows version:

    use strict;
use Win32::Process::Info;

my $pihandle = Win32::Process::Info->new();
my @procinfo = $pihandle->GetProcInfo();

my $ParentPID;
my %ProcNames;

foreach my $PIDInfo (@procinfo) {
    $ProcNames{$PIDInfo->{ProcessId}} = $PIDInfo->{Name};

    if ($PIDInfo->{ProcessId} == $$) {
        $ParentPID = $PIDInfo->{ParentProcessId};
    }
}

print "Parent's name is ", $ProcNames{$ParentPID}, "\n";

    [download]
[reply]
[d/l]
Re^3: Parent process name
by Anonymous Monk on Jun 03, 2013 at 15:12 UTC

    An easier way to get the parent process ID would be to call the getppid() function.

    $parent_id = getppid();
[reply]
[d/l]

In Section Seekers of Perl Wisdom