1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
open(FILE, "<benResultPtfCentre.txt") || die "Erreur E/S : $!\n";
%centre;
%centreMap;
while ($ligne = <FILE>)
{
my @allData = split(' ',$ligne);
if(!defined($centre{$allData[1]}))
{
#print "adding $allData[0] to centres \n";
$centre{$allData[1]} = $allData[1]
}
}
close FILE;
open(MAPPTF, "<ShortTIA.ELI") || die "Erreur E/S : $!\n";
while($ligneMap = <MAPPTF>)
{
my @allDataMap = split(' ',$ligneMap);
#my @allDataMap = $ligneMap;
#print "$ligneMap";
$centreMap{$allDataMap[3]} = $allDataMap[3] ;
open(OUTPUTFILEMAP, ">>$allDataMap[3].txt") || die "Erreur E/S : $!\n";
print OUTPUTFILEMAP @allDataMap ,"\n";
#print OUTPUTFILEMAP "\n";
close OUTPUTFILEMAP;
}
print "Fin\n"; |
Partager