Un peu de PERL pour un newbie
Résolu/Fermé
A voir également:
- Un peu de PERL pour un newbie
- Denon perl pro test - Guide
- Active perl - Télécharger - Édition & Programmation
- Logiciel perles de rocailles - Télécharger - Vie quotidienne
- Execution d'un fichier.txt avec perl - Forum Perl
- /Usr/bin/env: ‘perl\r’: no such file or directory ✓ - Forum Linux / Unix
2 réponses
Tu peux faire comme ça :
my %results;
#($traceFile, $outFile) = @ARGV;
my $tracefile = "test.txt";
open (MYFILE,$tracefile)|| die "cannot open the trace file\n";
foreach my $ligne (<MYFILE>) {
chomp $ligne;
my @ligne = split(/ /,$ligne);
my $valeur = pop(@ligne);
$results{join(" ",@ligne)}[$#{$results{join(" ",@ligne)}}+1] = $valeur;
}
close MYFILE;
foreach my $cle (keys %results) {
print $cle."\n";
print join("\n",@{$results{$cle}})."\n";
}
Ensuite, à toi de voir comment exploiter le contenu de %results ;)
my %results;
#($traceFile, $outFile) = @ARGV;
my $tracefile = "test.txt";
open (MYFILE,$tracefile)|| die "cannot open the trace file\n";
foreach my $ligne (<MYFILE>) {
chomp $ligne;
my @ligne = split(/ /,$ligne);
my $valeur = pop(@ligne);
$results{join(" ",@ligne)}[$#{$results{join(" ",@ligne)}}+1] = $valeur;
}
close MYFILE;
foreach my $cle (keys %results) {
print $cle."\n";
print join("\n",@{$results{$cle}})."\n";
}
Ensuite, à toi de voir comment exploiter le contenu de %results ;)