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
| # !/usr/bin/perl -nwa
use strict;
use warnings;
open LIRE,"/home/sst/Bureau/karim/capture/louati.txt" or die "fichier in trouvable";
open ECRIRE,">/home/sst/Bureau/rtp.txt\n", or die "E/S : $!\n";
while(<LIRE>)
{
if($. % 4 == 3)
{
my ($data_135,$data_136, $data_138, $data_139, $data_141, $data_142, $data_168, $data_169, $data_171, $data_172) = (split /|/,$_)[135, 136, 138, 139, 141, 142, 168, 169, 171, 172];
print ECRIRE "ligne$. \t $data_135$data_136 $data_138$data_139$data_141$data_142 $data_168$data_169$data_171$data_172 \n";
}
#close (LIRE);
}
open FILE,"/home/sst/Bureau/rtp.txt" or die "E/S : $!\n";
my $table='';
while( defined( my $line = <FILE> ) )
{
$line =~/^\w+\s(\w+)\s\w+\s(\w+)/; # espace comme séparateur
push (my @table, $4 ) if $2 eq '60';
print "@table\n";
} |
Partager