Salut
je voudrai faire un script perl qui execute des commande suivant le parametre.
Ce qui dedvrait se passer:
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"; }
Suivant le parametre passer le prog deevrait se lancer,sarreter ou redemmarer
Ce qui se passe:
Et une ligne pour chaque cmd comme ca.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Global symbol "$cmdstart" requires explicit package name at ./pl_nagios line 5.
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...
Partager