Discussion :

[silversatch]

Bonjour

Dans mon script perl, je dois appeller un script bash avec 3 paramètres, ces paramètres étant des variables perl.

$numero=0685xxxxxx
$id=1234
$pin=5678

./script.sh $numero $id $pin

J'aimerais savoir comment appeller ce script avec ces paramètres...
Merci d'avance...

silversatch

[iblis]

Code :

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

system('./script.sh', $numero, $id, $pin)

ou, si tu veux récupérer la sortie de ta commande :

Code :

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

my $output = qx{./script.sh $numero $id $pin}

Vois perldoc system(), qx// pour le détail.

[foudunix]

@lignes = qx{ la commande et ses paramètres };

Puis tu balaies @lignes pour savoir ce qui est sorti de ton shell.

[black_code]

Tu pux aussi faire :

Code :

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

1
2
 
$RESULTAT=`ta_commande_avec_pipe_...`;

ou aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
my $res="";
 
my $cmd="ls -alrt | tr -s ' ' | cut -d ' ' -f 9 | egrep -iv '^\.|^\.\.' |"
open(EXEC,"$cmd");
 
while($res=<EXEC>){
       chomp($res);
       print "$res \n";
}
close(EXEC);

ATTENTION a bien mettre le '|' a la fin de ta commande.

cdlt

[iblis]

Tu pux aussi faire :

Code :

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

1
2
 
$RESULTAT=`ta_commande_avec_pipe_...`;

ou aussi

Avec les backquotes les variables seront interprétées par le shell et pas par perl.

[Jedai]

Avec les backquotes les variables seront interprétées par le shell et pas par perl.

Non... Les variables seront d'abord interpolés par Perl comme entre guillemets (double quotes "), puis le résultat sera passé au Shell, qui fera ses propres interprétations.
qx() et les backquotes sont strictement identiques.

--
Jedaï