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