Awk-perl

+---------+---------------+----------+
10:29:55,459,489   ETHER

lami20j@debian:~$ cat karim.pl
# !/usr/bin/perl -w

use strict;
use warnings;


open LIRE,"hexa.txt" or die "fichier in trouvable";
#open ECRIRE,">/home/sst/Bureau/rtp.txt\n", or die "E/S : $!\n";

while(<LIRE>)
{
#       next unless /^\|/;
        my @t=(split /\|/,$_)[10..13];
        {
          $"='|';
          print "ligne$. @t\n" if $. % 32 == 7;
        }
}
lami20j@debian:~$ perl karim.pl
ligne7 57|00|0c|e1
ligne39 57|00|0c|e1
ligne71 57|00|0c|e1
ligne103 57|00|0c|e1

lami20j@debian:~/trash$ cat bloc.pl
#!/usr/bin/perl
use strict;use warnings;

while(<DATA>){
  print "ligne$. ",(split /\s/,$_)[1,3],"\n" if $. % 3 == 1;
}
__END__
a b c 0
d e f 1
g h i 2
j k l 3
m n o 4
p k r 5
s t u 6
v w x 7

lami20j@debian:~/trash$ perl bloc.pl
ligne1 b0
ligne4 k3
ligne7 t6

open LIRE,"cheminvers le fichier" or die "E/S : $!\n";
open ECRIRE,">cheminvers le fichier resultat\n", or die "E/S : $!\n";

while(<LIRE>){ 
  print ECRIRE "ligne$. ",(split /\s/,$_)[44,45,46],"\n" if $. % 32 == 4; 
}

#!/usr/bin/perl -w

use strict;use warnings;

open LIRE,"/home/sst/Bureau/karim/capture/karimov.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= (split /|/,$_)[135,136,138,139,141,142,168,169,171,172];
    print ECRIRE "ligne$. \t@data\n";
  }
}