Thanks for your replies. I understand that system() returns an exit code
when it is done. My problem is that the command to be run by system() is
not getting the variable.
Here is the error I get when I run the script...
98299
usage: kill [-s signal_name] pid ...
kill -l [exit_status]
kill -signal_name pid ...
kill -signal_number pid ...
98299 is what is found in the pid file. Why is this number not being passed
to the kill command in system ("kill $mypid"). I have used something
similar to this in other scripts with no problems.
-----Original Message-----
From: Dharmender Rai [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 10, 2002 8:40 AM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED];
[EMAIL PROTECTED]
Subject: RE: Problem with variable in system command
Anthony,
system() return the exit status. Type "perldoc -f
system" . When the command is successful, you will get
0.
--- [EMAIL PROTECTED] wrote: > As a
test I would print $mypid and it had the
> correct pid number in it.
>
> Here is the complete script, if it will help...
>
> #!/usr/bin/perl -w
> use strict;
> use File::Find;
> my $dir = '/usr/local/etc/mrtg';
> my $ext = '.pid';
> my (@dirstruct);
> my $mypid;
>
> find(\&wanted,$dir);
>
> foreach my $afile (@dirstruct) {
> $mypid = system("cat $afile");
> chop($mypid);
> print "Killing instance...";
> #print "$mypid";
> print $mypid;
> #system("kill $mypid");
> }
> exit;
>
> sub wanted {
> my $entry = "$File::Find::name" if -e;
> push @dirstruct, $entry if (($entry ne '') && ((
> m/$ext$/) and (substr
> $entry, 0, -4))); #This will only work with *.pid
> }
>
>
>
> -----Original Message-----
> From: Dharmender Rai
> [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, October 10, 2002 8:06 AM
> To: [EMAIL PROTECTED];
> [EMAIL PROTECTED]
> Subject: Re: Problem with variable in system command
>
>
>
> $mypid contains the status of the process not its
> pid.
> --- [EMAIL PROTECTED] wrote: > I've
> written a script to search for all *.pid files
> > in a dir, then do
> > a cat on the file. The script will then use this
> > variable to kill the
> > process. The problem I'm having is that the
> > varibale is not being
> > read correctly. I run the script and the kill
> > process tries to run
> > without the variable. Here is a post of the code
> I
> > have. Anyhelp
> > would be greatly appreciated.
> >
> >
> > find(\&wanted,$dir);
> >
> > foreach my $afile (@dirstruct) {
> > $mypid = system("cat $afile");
> > chop($mypid);
> > print "Killing instance...";
> > system("kill $mypid");
> >
> >
> > I wrote this script a few weeks ago and it worked
> > great, but I accidentally
> > deleted it and can't rememeber exactly how it was
> > written. :-/
> >
> >
> > --
> > To unsubscribe, e-mail:
> > [EMAIL PROTECTED]
> > For additional commands, e-mail:
> > [EMAIL PROTECTED]
> >
>
> __________________________________________________
> Do You Yahoo!?
> Everything you'll ever need on one web page
> from News and Sport to Email and Music Charts
> http://uk.my.yahoo.com
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
>
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
