Programming Forums > Script Programming > Perl

Coume · Jun 4th, 2004, 1:45 PM

Hello,

I tried to do a small perl script to check if amule is running and if it's not to launch it, but that's not working...
I never ever programmed in perl before, it must be a dumb error, but I can't find it

any idea?

(Toggle Plain Text)

#!/usr/bin/perl
$cmd="ps -A | grep amule | grep -v grep";
$output=qx/$cmd/;
if ($output!=~m/$amule/) {
qx/amule/;
}

Thxs
Ludo

big_k105 · Jun 4th, 2004, 6:22 PM

could you help us out by letting us know what kind of error you are getting when you try to run the program that will help a lot, thanks

Coume · Jun 5th, 2004, 5:27 AM

Basically, it gives no error but does nothing

I am kind of sure that the problem come from the 2 first lines...

(Toggle Plain Text)

$cmd="ps -A | grep amule | grep -v grep";
$output=qx/$cmd/;

cos if I try only that in the script, it only takes the ps -A part, as if it cut aftyer the |

Ludo
btw, i'm the owner of MythTVtalk.com

sykkn · Jun 5th, 2004, 9:09 PM

The problem is that $output!=~m/$amule/ is not correct ... instead of !=~ you should have used !~ ... so: $output !~ m/$amule/

Jun 4th, 2004, 1:45 PM	#1
Coume Newbie Join Date: Jun 2004 Posts: 2 Rep Power: 0	Hello, I tried to do a small perl script to check if amule is running and if it's not to launch it, but that's not working... I never ever programmed in perl before, it must be a dumb error, but I can't find it any idea? (Toggle Plain Text) #!/usr/bin/perl $cmd="ps -A \| grep amule \| grep -v grep"; $output=qx/$cmd/; if ($output!=~m/$amule/) { qx/amule/; } #!/usr/bin/perl $cmd="ps -A \| grep amule \| grep -v grep"; $output=qx/$cmd/; if ($output!=~m/$amule/) { qx/amule/; } Thxs Ludo

Jun 4th, 2004, 6:22 PM	#2
big_k105 PFO Founder Join Date: Mar 2004 Location: Fargo, ND Posts: 1,629 Rep Power: 10	could you help us out by letting us know what kind of error you are getting when you try to run the program that will help a lot, thanks __________________ BIG K aka Kyle Programming Forums Kyle K Online Please do not PM or email me programming questions. Post them in the forums instead.

Jun 5th, 2004, 5:27 AM	#3
Coume Newbie Join Date: Jun 2004 Posts: 2 Rep Power: 0	Basically, it gives no error but does nothing I am kind of sure that the problem come from the 2 first lines... (Toggle Plain Text) $cmd="ps -A \| grep amule \| grep -v grep"; $output=qx/$cmd/; $cmd="ps -A \| grep amule \| grep -v grep"; $output=qx/$cmd/; cos if I try only that in the script, it only takes the ps -A part, as if it cut aftyer the \| Ludo btw, i'm the owner of MythTVtalk.com

Jun 5th, 2004, 9:09 PM	#4
sykkn Hobbyist Programmer Join Date: Apr 2004 Location: Texas Posts: 106 Rep Power: 5	The problem is that $output!=~m/$amule/ is not correct ... instead of !=~ you should have used !~ ... so: $output !~ m/$amule/ __________________ [ [ SykkN alloc ] initWithThePowerTo: destroyYouAll ]; /* Don't make me use it! */

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Simple script but not working :(