Discussion :

[Olivier Regnier]

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 :

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

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

[Olivier Regnier]

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

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

Code :

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

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 :

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

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

Je ne vois pas du tout mon erreur

[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 :

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

awk {'print \$3'}

ciao

[Olivier Regnier]

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

Voici mon code:

Code :

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

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

J'obtiens ce message:

Code :

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

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

Je suis un peu perdu

[Jedai]

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

Code :

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

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ï

[Olivier Regnier]

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 :

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

*default host=blabla

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

Merki