PROBLEME DE TRANSFERT

Bonjour à ts,
HELP ME .

Dans ce script ci dessous, je veut prendre comme paramétre le résultat de l'exécution du premier programme PROG1, et puis je le passe au PROG2 pour qu'il s'éxécute avec le paramétre récupérer.Mais d'abord je veux afficher ce que recois dans le data du PROG1, mais ce code ne m'affiche que 0.
Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl -w use strict; use Carp; my $entre; my $data1; my $data2; my $scalar;   my @donne;     ($entre)= @ARGV; open(PROG1,"perl script22.pl $entre"); $data1=<PROG1>; @donne=split $data1; $scalar=@donne; print "$scalar \n";

---

Bonjour

Je n'ai pas tout compris ce que tu voulais, mais :

Code:

---

1 2 3

open(PROG1,"perl script22.pl $entre"); $data1=<PROG1>;

---

ne fais pas ce que tu veux !!!
utilise :

Code:

---

1 2	@data1 = `perl script22.pl $entre`;

---

Ensuite :

Code:

---

1 2	$scalar=@donne;

---

ne fait toujours pas ce que tu souhaites, cela va envoyer dans $scalar le nombre d'élément de @donne, donc 0 dans ton cas !!!!

Tu devrais relire la FAQ ou une autre introduction à perl.

A+
Rv