Discussion :

[chekibperl]

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 :

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

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";

[strach]

Bonjour

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

Code :

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

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

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

Code :

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

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

Ensuite :

Code :

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

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