Je me base sur ton code Philou67430
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
my $command="";
$command.=$_ while (<$chan2>);
my @res=split(/ +/,$command);
my %var;
our ($a, $b);
my @col_names;
foreach my $line (@res) {
chomp $line;
if ($line =~ /^N°/) {
@col_names = split /\s+/, $line;
shift @col_names;
}
else {
if (my @col_values = split /\s+/, $line) {
my $key = shift @col_values;
$var{$key} = { pairwise { $a => $b } @col_names, @col_values };
}
}
}
say "Key id0/1, Valeur1-2: ", $var{"id0/1"}->{"Valeur1-2"}; |
Ligne 48 :
$var{$key} = { pairwise { $a => $b } @col_names, @col_values };
Ligne 53 :
say "Key id0/1, Valeur1-2: ", $var{"id0/1"}->{"Valeur1-2"};
Partager