Kill a Process via a shell script

[sha37]

I have a shell script scheduler.sh passing command line arguments start and stop. Below is the code.

#!/bin/sh
if [ -n $1 ];
then
        perl AD.pl $1;
fi
 

[shap@test]$ sh scheduler.sh stop
If i pass stop the AD.pl file should stop running by killing its pid.
Below is the code for AD.pl when it sees Stop from shell.

if ($ARGV[0] eq 'stop')
{
    my $cmd = "ps aux | grep " . $0;
    my $result = `$cmd`;
    $log->notice("Stopping Follower $followerName");
    system(`kill -9 $result`);
    $signal = 0;
}
 

Please suggest a cleaner way to above code. is the way i am doing is correct?
Is there a cleaner way of doing it.

Thanks in advance
Sha

[RedSon]

I'm pretty sure the only way to do it is to use the kill command.

[numberwhun]

You can either issue a shell command in back tics, as RedSon suggested, or, you can use the built in kill command in Perl.

I have not tested it myself, but would certainly test it on something non-production before going live with it.

Regards,

Jeff

[RonB]

Cross posted http://perlguru.com/gforum.cgi?post=...=unread#unread