pls do reply

[Vema Venkata]

How do i get the process id into a variable ?
can any one help


$pid = qx(ps -f|grep srvtst26);
print "Server Started : $pid \n

[Matthew Harrison]

there is a var with it already set:

perldoc perlvar

see $PID or $$

On Tue, Sep 09, 2003 at 10:07:43PM +1000, Vema Venkata wrote:

> How do i get the process id into a variable ?
> can any one help
>
>
> $pid = qx(ps -f|grep srvtst26);
> print "Server Started : $pid \n

--
Mat Harrison
Technical Developer
3d Computer Systems Ltd.
[email]matth@3d-computers.co.uk[/email]

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.2 (OpenBSD)

iD8DBQE/XcQbmbMTrp/jhicRAsyDAJwOBlSQf8fpBTqotiaz+7Aqh/rJRgCfW29T
DGKtIGhK5TUZSBeRFitTAEg=
=7srf
-----END PGP SIGNATURE-----

[Gavin Laking]

On Tue, 9 Sep 2003 22:07:43 +1000
[email]venkatsb@anz.com[/email] (Vema Venkata) wrote:

> How do i get the process id into a variable ?
> can any one help
>
> $pid = qx(ps -f|grep srvtst26);
> print "Server Started : $pid \n

Try giving a description of your problem in the subject line it helps.
The process id is stored in '$$'. There is no need to jump through hoops
to get it.

Cheers,

GL

--
Gavin Laking - Web Development Daemon

[url]http://www.gavinlaking.co.uk/[/url]
--

[Sudarshan Raghavan]

Vema Venkata wrote:

>How do i get the process id into a variable ?
>can any one help
>

Process Id of what?
$$ will contain the process id your current perl script. perldoc perlvar
If you want to get the process id based on the command name,
Proc::ProcessTable will interest you.

>
>
>$pid = qx(ps -f|grep srvtst26);
> print "Server Started : $pid \n
>
>
>

[Vema Venkata]

#!/proj/ahd02/CAisd/ActivePerl-5.6.0.618/bin/perl
#/usr/local/bin/perl

use POSIX qw(strftime);

$now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;

$xapipgm = "/proj/ahd02/CAisd/site/mods/scripts/srvtst26.pl";

$pid = qx(pgrep -f srvtst26);

if ($pid =! 0){
print "AHD XAPI SERver Running with Process ID '$pid' On $now_string\n" ;
}
else{
$pid = `ps-f|grep $srvtst26`;
print "Server Started : $pid \n";
open (F, ">> /proj/ahd02/CAisd/site/mods/scripts/log/init/ahdxapi.init.log") || die "OS Error was $! \n";
print F "AHDXAPI Server is now started running '$pid' $now_string";
close F;
}

In the above pgm
$pid = qx(pgrep -f srvtst26); #here it check if the process is running say if it is running it writes to a log file


else
$pid = `ps-f|grep $srvtst26`;
here in the above command it has to grep the process id and return to a variable $pid and write it to a log file

[Jeff 'Japhy' Pinyan]

On Sep 9, Vema Venkata said:

>How do i get the process id into a variable ?
>
>$pid = qx(ps -f|grep srvtst26);
> print "Server Started : $pid \n

qx() returns the output. You want to use open():

$pid = open PS, "ps -f | grep srvtst26 |"
or die "'ps -f | grep srvtst26' error: $!";

You can read the output from <PS>.

--
Jeff "japhy" Pinyan [email]japhy@pobox.com[/email] [url]http://www.pobox.com/~japhy/[/url]
RPI Acacia brother #734 [url]http://www.perlmonks.org/[/url] [url]http://www.cpan.org/[/url]
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]

[R. Joseph Newton]

Vema Venkata wrote:

> #!/proj/ahd02/CAisd/ActivePerl-5.6.0.618/bin/perl
> #/usr/local/bin/perl
>
> use POSIX qw(strftime);
>
> $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;

Huh? What is happening here. Your subject line whines for a response, and yet in your code you totally disregard the
advice that has been consistently offered. You have launched into executable code without taking the effort to
use strict;
use warnings;

...and handle your share of the work by dealing with any errors reported.

Shouldn't you do what you can to help yourself before asking others to help you?


FWIW, I ran your code, and started dealing with the errors. Then I decided that that was your job.

Please turn strict and warnings back on, and then ask about anything not clear to you in the error messages.

Joseph