Discussion :

[Olivier Regnier]

Bonjour

J'ai un petit script sh qui a pour but d'installer une application via le catalogue de logiciels portés de FreeBSD. Si l'installation échoue ou si la commande make est interrompue, j'en suis directement informé par email.

Voici le script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
	echo "===> Vérifie la présence du programme fastest_cvsup"
	if [ ! -x /usr/local/bin/fastest_cvsup ]; then
		echo "===> Installation du programme fastest_cvsup"
		cd /usr/ports/sysutils/fastest_cvsup && make install clean
		RETVAL=$?
		if [ $RETVAL != 0 ]; then
			echo -e $top"La compilation et/ou l'installation du programme fastest_cvsup a échoué."$foot > $logfile
			sendmail
			exit 1
		fi
	fi

Ici, j'utilise retval mais son utilisation sous perl est aléatoire. Parfois l'installation débute et se termine brutalement. Pourquoi ? Comment ? Je ne sais pas. Pourriez-vous me donner des informations à ce sujet svp ?

Merci

PS: mon fillot peut répondre à ça, il est très fort en perl

[Jedai]

Ici, j'utilise retval mais son utilisation sous perl est aléatoire. Parfois l'installation débute et se termine brutalement. Pourquoi ? Comment ? Je ne sais pas. Pourriez-vous me donner des informations à ce sujet svp ?

Je ne suis pas sûr de bien comprendre ta question ? Tu es en train de convertir ce programme en Perl ? ou tu appelles ce programme depuis Perl ?

--
Jedaï

[Olivier Regnier]

Bonjour Jedai

J'essaye de convertir ce programme en perl. D'ailleurs, j'ai commencé avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl -w
 
use strict;
 
my $retval=0;
 
print "=> Downloading the source file\n";
system("/usr/bin/csup $standard_supfile");
if(! $retval) {
      print "Csup aborted\n";
      exit;
}

J'ai pensé quelques instants que ce code fonctionnait mais lorsque le programme a terminé son travail (téléchargement des sources), il indique en fin de traitement "Csup aborted". Je cherche à faire fonctionner correctement retval avec perl sans devoir passer par la gestion des signaux.

Merki

PS: mon fillot a trouvé la solution

[djibril]

ta varizble $retval est toujours à zero donc normal que tu ai le message Csup aborted

[Jedai]

PS: mon fillot a trouvé la solution

C'est bien de mettre le message en résolu, mais si tu dis simplement avoir la solution et que tu ne la donnes pas (ou au moins un indice), c'est frustrant pour quelqu'un qui voudrait faire une recherche par la suite ! (Je sais bien que personne n'utilise la fonction "Recherche" du forum, mais laissez moi préserver mes belles illusions !! )

$retval n'est pas une variable spéciale en Perl, il n'y a donc aucune raison qu'elle prenne subitement la valeur du dernier retour de system(). D'ailleurs en bash non plus a priori ? Comme en bash, la valeur de retour du dernier appel de system() se trouve dans $?, tu aurais donc pu utiliser $? ou au moins l'affecter à $retval (comme dans le script shell), néanmoins la solution la plus propre et lisible serait sûrement :

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
 
print "=> Downloading the source file\n";
# $standard_supfile n'est pas déclaré, je suppose qu'il l'est dans le code complet ?
my $retval = system("/usr/bin/csup $standard_supfile"); 
if( not $retval ) {
      die "Csup aborted\n";
}

parfois abrégé en :

Code :

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

1
2
system("/usr/bin/csup $standard_supfile"); 
  and die "Csup aborted\n";

--
Jedaï

[Olivier Regnier]

Voici la solution trouvée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w   
 
use strict;   
 
print "=> Downloading the source file\n"; 
 
if (system("/usr/bin/csup $standard_supfile")) 
{  
print "Csup aborted\n"; 
exit; 
}

Il faut me laisser le temps de répondre cher ami. Mon script fonctionne et comme à mon habitude, j'ai fêté tout ça

[iblis]

Si, si, Jedai, il y a des gens qui utilisent la fonction recherche du forum ; il y a en aussi – je parle là encore de moi, pardon – qui lisent les posts pour apprendre, ce n'est pas une illusion.

Donc la solution en clair était la bien venue (même si c'est la même que la vôtre et que pour ma part j'avais saisi le truc).

Merci encore pour ce forum.