Exécuter une commande système avec perl

Bonjour :)

J'ai un petit script en perl qui permet l'installation d'un programme via la commande make install clean sous FreeBSD que je n'arrive pas à faire fonctionner. Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl -w   use strict; use warnings;   my $fastest_cvsup_port="/usr/ports/sysutils/fastest_cvsup";   system ("/usr/bin/cd $fastest_cvsup_port"); system ("/usr/bin/make install clean");

---

J'ai volontairement simplifié le code.

Merci de votre aide :mrgreen:

Bon j'ai réussi à faire fonctionner ma commande make :oops:

J'ai un autre problème avec l'exécution de la commande awk:

Code:

---

1 2 3

my $server=system("/usr/local/bin/fastest_cvsup -c $countrie | grep 1st | awk '{print $3}'");   print $server;

---

J'obtiens en sortie le message suivant:

Code:

---

Use of uninitialized value in concatenation (.) or string at fichier.pl.

---

Je ne vois pas du tout mon erreur 8O

Citation:

---

Envoyé par Olivier Regnier

J'ai un autre problème avec l'exécution de la commande awk:
[code]my $server=system("/usr/local/bin/fastest_cvsup -c $countrie | grep 1st | awk '{print $3}'");

---

J'ai trouvé la solution:

Code:

---

awk {'print \$3'}

---

ciao :aie:

Me revoilà avec un autre soucis. L'utilisation de la commande sed :lol:

Voici mon code:

Code:

---

system("/usr/bin/sed 's|\*default host=\(.*\)|\*default host=$server} $standard_supfile > $standard_supfile.copy");

---

J'obtiens ce message:

Code:

---

sed: 1: "s|*default host=(.*)|*d ...": unescaped newline inside subsitute pattern

---

Je suis un peu perdu :aie:

La plupart de tes problèmes semble provenir de l'interpolation de variable...
Ainsi as-tu conscience que dans ta dernière commande :

Code:

---

system("/usr/bin/sed 's|\*default host=\(.*\)|\*default host=$server} $standard_supfile > $standard_supfile.copy");

---

$server ainsi que $standard_supfile seront remplacé par leur valeur dans ton script Perl avant d'être transmise à sed ? A priori il y a un saut de ligne qui traine dans $server...

Est-ce vraiment le comportement que tu désires ? Que veux tu vraiment faire ?

As-tu vraiment besoin d'en passer par sed pour cela, on peut faire de même en quelques ligne de Perl, ce sera plus lisible, et sans doute plus rapide que de passer par sed (donc devoir faire un fork).

--
Jedaï

Bonjour :)

Je pense que l'on peut tout faire avec perl mais ce script était à la base écrit en shell.

En faite, j'ai un fichier standard-supfile qui comporte une ligne:

Code:

---

*default host=blabla

---

et je souhaite remplacer blabla par la valeur de $server qui est de la forme cvsup6.freebsd.org.

Merki :mrgreen:

A mon avis il doit y avoir un "\n" qui traine à la fin de $server, fais donc :

Code:

---

chomp( $server );

---

avant ton appel à system.
Par ailleurs, n'oublie pas que print "\(" imprime "(", autrement dit il te faut probablement remplacer tes \ par \\. Peut-être serait il plus avisé de mettre toute ta chaîne entre simple quotes et de procéder par concaténation plutôt qu'interpolation :

Code:

---

1 2	chomp( $server ); system( '/usr/bin/sed \'s|\*default host=\(.*\)|\*default host='.$server.'}\' '.$standard_supfile.' > '.$standard_supfile.'.copy');

---

--
Jedaï

Je n'y arrive pas du tout ouille ouille :oops:

Voici le code:

Code:

---

system('/usr/bin/sed \'s|\*default host=\(.*\)|\*default host='.$server'\' '.$standard_supfile.' > '.$standard_supfile.'.copy');

---

Le message d'erreur:

Code:

---

1 2 3 4

String found where operator expected at sources-update.pl line 22, near "$server'\' '" (Missing operator before '\' '?) syntax error at sources-update.pl line 22, near "$server'\' '" Execution of sources-update.pl aborted due to compilation errors.

---

Merci pour ton aide Jedai. Est-il possible de remplacer une chaine par une autre chaine en perl ? Il faut avouer qu'avec sed c'est un peu lourd à gérer.

Merki encore :mrgreen:

Reessaie, j'avais oublié un opérateur de concaténation.

Si tu veux le faire en Perl, jette un coup d'oeil à notre FAQ.

--
Jedaï

Citation:

---

Envoyé par Jedai

Reessaie, j'avais oublié un opérateur de concaténation.
Si tu veux le faire en Perl, jette un coup d'oeil à notre FAQ.

---

Je crois que je vais me tourner vers perl car cela ne fonctionne toujours pas :aie:

Code:

---

system('/usr/bin/sed \'s|\*default host=\(.*\)|\*default host=${server}\' '.$standard_supfile.' > '.$standard_supfile.'.copy');

---

Le message:

Code:

---

sed: 1: "s|\*default host=\(.*\) ...": unterminated subsitute in regular expression

---

Je vais visiter la faq :mrgreen:

Citation:

---

Envoyé par Olivier Regnier

Code:

---

system('/usr/bin/sed \'s|\*default host=\(.*\)|\*default host=${server}\' '.$standard_supfile.' > '.$standard_supfile.'.copy');

---

---

A vrai dire j'avais assumé dès le début que ton problème ne venait que de ta méconnaissance du Perl, mais il semble que tu ais quelques problèmes avec sed également :

Code:

---

system('/usr/bin/sed \'s/default host=.*/default host='.$server.'/\' '.$standard_supfile.' >'.$standard_supfile.'.copy');

---

devrait fonctionner (si $server est bien une variable Perl ?).

--
Jedaï

Citation:

---

Envoyé par Jedai

A vrai dire j'avais assumé dès le début que ton problème ne venait que de ta méconnaissance du Perl, mais il semble que tu ais quelques problèmes avec sed également

---

Toi, tu es devin :rire: sans blagues

Je débute en Perl mais je connais sed sur le bout des doigts :mouarf: D'ailleurs mon script shell fonctionne très bien avec ma ligne sed. Coupler sed ou awk avec Perl n'est pas une mince affaire. Tu es bien d'accord avec moi ? :aie:

De plus, tu dis que je rencontre des problèmes avec sed oui de temps en temps mais je te signale au passage que ta ligne ne fonctionne pas :lol:

En revanche, j'ai trouvé la solution et la bonne ligne est celle-ci:

Code:

---

system('/usr/bin/sed \'s/*default host=.*/*default host='.$server.'/\' '.$standard_supfile.' > '.$standard_supfile.'.copy');

---

Le problème est résolu.

Merki :mrgreen:

Citation:

---

Envoyé par Olivier Regnier

Toi, tu es devin :rire: sans blagues

Je débute en Perl mais je connais sed sur le bout des doigts :mouarf: D'ailleurs mon script shell fonctionne très bien avec ma ligne sed.

---

Je ne suis pas devin, et j'appuyais ma remarque sur le fait qu'il manquait un "|" à la fin de ta regex, et que par ailleurs tu faisais une capture que tu n'utilisais pas. Ma remarque tendait à signifier que j'avais fais l'erreur de me concentrer sur le côté Perl de ta question, ce qui m'avait empêché de noter cette erreur plus tôt (je suppose que le | était passé à la trappe lors du passage sous Perl parce que tu avais d'autres problèmes ?).

Par ailleurs ma ligne fonctionne parfaitement (j'ai tendance à tester les solutions "complète" avant de les donner, pas les petites corrections cependant), je suppose que tu fais allusion au fait que j'avais oublié le "*" devant la ligne et qu'il était d'une importance vitale ?

Enfin je suis heureux que tu sois parvenu à régler ton problème ! :D

--
Jedaï