Salut

je voudrai faire un script perl qui execute des commande suivant le parametre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl -w
 
use strict;
 
$cmdstart="/home/kacedda/local/bin/prog -d /home/kacedda/local/etc/prog.cfg";
$cmdstop="killall prog";
 
if($ARGV[0] eq "start")
{
        system $cmdstart ;
        print "Prog Started\n";
}
if($ARGV[0] eq "stop")
{
        system($cmdstop);
        print "Prog Stopped\n";
}
if($ARGV[0] eq "restart")
{
        system($cmdstop);
        system($cmdstart);
        print "Prog Restarted\n";
}
Ce qui dedvrait se passer:
Suivant le parametre passer le prog deevrait se lancer,sarreter ou redemmarer

Ce qui se passe:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Global symbol "$cmdstart" requires explicit package name at ./pl_nagios line 5.
Et une ligne pour chaque cmd comme ca.

PS:Si jexecute le prog direct en ligne de cmd pas dee probleme ca marche:
# /home/kacedda/local/bin/prog -d /home/kacedda/local/etc/prog.cfg

Si kkun a un idee...