Discussion :

[lami20j]

Et en shell ton teste ne fonctionne pas non plus.
J'ai pris ton 1er test chez moi avec httpd au lieu de csup et voilà ce que ça donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
~/trash$ pidof httpd
23363 23362 23361 23360 23359 23357
~/trash$ if [ ' ' != "`pidof httpd`" ]; then echo "updating";fi
updating
~/trash$ su -c 'killall -9 httpd'
Password:
~/trash$ pidof httpd
~/trash$ if [ ' ' != "`pidof httpd`" ]; then echo "updating";fi
updating

que httpd est en marche ou pas il affiche toujours updating

[Woufeil]

Bonjour,

Je pense également qu'au lieu de chercher une solution à ton problème il faudrait l'exprimer en français que l'on vois ce que l'on peut faire pour toi. Personnelement je ne comprend pas vraiment et je n'arrive donc pas à te donner de solution.

Donc peux-tu faire ça histoire que tout soit clair ?

[Olivier Regnier]

Je suis au regret de t'annoncer que le statut reste toujours sur updating quelque soit le test mais ton raisonnement est le bon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#!/bin/sh
 
pidcsup="csup"
 
if [ '' != "`pidof $pidcsup`" ]
      echo "running"
else
      echo "stopping"
fi

Mon script shell avec csup fonctionne mais pas en perl

L'histoire, tu dois la connaître, si tu as lu le début

Les explications:

- Le fichier de log est abscent, j'affiche "unavailable"
- Le fichier de log est vide, j'affiche "standby"
- Le processus est actif, j'affiche normelement "updating"
- Le fichier de log n'est pas vide, j'affiche son contenu

[lami20j]

Exactement.

La question qui se pose : Quand veux tu tester

- Le fichier de log est abscent, j'affiche "unavailable"
- Le fichier de log est vide, j'affiche "standby"
- Le fichier de log n'est pas vide, j'affiche son contenu

?

Quand le processus est actif ou inactif?

Oui, j'ai lu le début, mais ce n'est pas claire, sinon je n'aurais pas posé la question?

Je ne pense pas qu'il y a des choses qu'on puisse faire en shell et pas en Perl.

Comme je te l'ai demandé dans un de mes messages, affiche ici le résultat de tes tests en shell avec toutes les situations.

[Olivier Regnier]

Il ne faut pas dire que mon script shell cité un peu plus haut ne fonctionne pas. Je suis sous FreeBSD et cela fonctionne correctement. Je ne vais pas venir sur le forum perl avec un script de merde. J'essaye de faire en sorte qu'il fonctionne avant de le réécrire dans un langage différent. Ce que je peux remarquer c'est qu'on peut pas utiliser awk avec perl. Je pense que si c'était le cas, mon problème serait réglé depuis longtemps. Je vais repartir avec mon script shell et point barre mais il faut arrêter de dire que je ne suis pas clair. Tous les tests fonctionnes sauf celui avec pidof. Vu que je débute en perl, je ne pas être d'un grand secours.

Merci

[lami20j]

essai ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $cmd=`/bin/ps -ef | grep csup | awk '{ print \$2 }'`;

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
#!/bin/sh
 
pidcsup="csup"
 
if [ '' != "`pidof $pidcsup`" ]
      echo "running"
else
      echo "stopping"
fi

Sauf que dans tous tes scripts précédents tu avais écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if [ ' ' != "`pidof $pidcsup`" ]

et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if [ '' != "`pidof $pidcsup`" ]

Il me semble qu'il s'agit là d'une erreur, qui a été répétée depuis dans tous les script Perl (lami20j l'a fait remarquer, mais ça ne semble pas avoir été enregistré)...
En bref :

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
 
#! /usr/bin/perl
use warnings;use strict;
 
my $logfile="/var/log/pupd.log";
 
if (`pidof csup` =~ m/\d/){  # si le processus est en marche
    print "updating\n";
}elsif ( ! -e $logfile ){# si le fichier n'existe pas
    print "unavailable\n";
}elsif ( -z $logfile ){# si le fichier existe mais est vide
    print "standby\n";
}else {
    print `cat $logfile | awk '{ print \$6 }'`,"\n";
}
__END__

devrait convenir si je ne me suis trompé

--
Jedaï

[lami20j]

Tu est tombé dans la même piège que moi
else if au lieu de elsif

[Jedai]

Bah oui, j'ai fait un copier-coller... et je n'ai corrigé que les problème de logique. En tout cas j'espère que celui-là marchera.

--
Jedaï

[Olivier Regnier]

Je suis très content de vous, le script fonctionne. J'ai vu qu'il y avait une petite erreur dans le premier script que j'ai posté mais c'est involontaire car sur ma machine, le code est correct. Merci encore à tous les deux