awk-perl Résolu

Question

Bonjour,
j'ai un fichier hexadécimal le séparateur de chaque mot hexa et "|"
je voulais extraire des mots specifiques

en fait, c'est fichier tres long qui ressemble a celui de Wireshark l'or d'un enregistrement *.txt

je voulais tester $44

cat /home/../Bureau/hexa.txt | awk -F| `BEGIN {NR=4; int Nseq=0;int num=0;}
{

if( $44!="60")
{num = NR; Nseq =strcat($45,$46); NR=NR+32;}

else
{num = NR; NR=NR+33;}
}
END {print num " " Nseq}`>>/home/../Bureau/rtp.txt

ce code je veux l'introduire dans le script perl
puis-je le faire et comment ?
y a t-il des fautes dans ce bout de code svp?
merci bcp

lami20j · Answer

Salut,

ce code je veux l'introduire dans le script perl
puis-je le faire et comment ? 
Pourquoi pas faire directement en Perl?!!

karim_khouja · Answer

j'ai un fichier d'une centaine de lignes chaque ligne comporte 49 colonnes ou mots
j'en ai besoin seulement de la 44ieme, 45ieme et 46ieme colonne seulement de chaque bloque de 32 lignes

est ce que perl permet un saut de ligne???

lami20j · Answer

Re,

Quand tu parles de colonnes seulement, alors ça n'a rien à avoir avec le bloc d'un nb de lignes.
Il suffit d'extraire les colonnes.

Tu ne veux pas plutôt certaines éléments qui se trouves à l'intersection des colonnes avec les lignes 1, 33, 65, etc. ?

lami20j · Answer

Re,

Par exemplelami20j@debian:~/trash$ cat bloc.pl
#!/usr/bin/perl
use strict;use warnings;

while(<DATA>){
  print "ligne$. ",(split /\s/,$_)[1,3],"
" 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

karim_khouja · Answer

bonjour

merci pour ta réponse Mr lami20j, mais j'ai un problème que je dois commencer le parsing dés la 4ieme ligne car les 4 première ligne ne comprennent pas de données utiles



a propos aussi, je voudrai Mr enregistrer ces données dans un fichier pour que je puisse les extraire et récuperer tout les données

while(<DATA>){
  print "ligne$. ",(split /\s/,$_)[44,45,46],"
" if $. % 32 == 1;
}

lami20j · Answer

Salut,

Essaie (je n'ai pas testé)
Il faut que tu mettes les chemin pour le fihcier à lire et pour le fichier resultatopen LIRE,"cheminvers le fichier" or die "E/S : $!
";
open ECRIRE,">cheminvers le fichier resultat
", or die "E/S : $!
";

while(<LIRE>){ 
  print ECRIRE "ligne$. ",(split /\s/,$_)[44,45,46],"
" if $. % 32 == 4; 
}

karim_khouja · Answer

tu m'as pas bien compris en ce qui concerne Mr Lami mais merci bien pour ta reponse 

je veux faire le parcours de mon fichier dés la 4ieme ligne
autrement les 4 premiere lignes doivent etre ignorer

et si jamais tu me donne un astuce pour séparer les donnés sauvegarder dans le fichier destinataire par un espace ou : ou , n'importe

karim_khouja · Answer

me m'exprime mal desolé Mr Lami20j

en fait  
* je veux extraire  a partir de la 4ieme ligne 
* extraire les 44, 45 et 46 ieme colonne du ligne en cours
        - si $44 == 60 
          ligne++;
          extraire la colonne 6 et 7 ;
          ligne = ligne + 32;
       
       - sinon ligne =ligne +32;


je m'excuse si jamais je t'ai dérangé et merci bcp

lami20j · Answer

Re,

Tu ne me dérange pas, mais j'avoue que je ne comprends toujours pas.

Je vois que tu mest une condition pour la 1ère donnée (égal à 60), mais je ne comprends pas l'incrementation.
Bref, il faut que tu me montre un exemple concret sur un fichier.

Tu peux faire une analogie, en utilisant par exemple 3 au lieu de 32

En ce qui concerne les séparateurs ce n'est pas difficile.

karim_khouja · Answer

j'ai remarquer un changement l'or de l'ouverture du fichier sur linux d'ou il aura qq petites changement 

si tu veux que je t'envoi un exemple concret je peux t'envoyer le fichier "hexa.txt"

c'est une capture de suite de trames encapsulées 
le fichier enregistré est en hexadecimal chaque mot séparé par un pipe "|" (wireshark capture)

mais en resumant je veux faire un test sur $45 .   si $45=60 donc il s'agit d'une encapsulation de l'entete FEC apres l'entete RTP puis il faut que je cherche le numero de sequence du paquet dans la ligne suivante :$3 et $4 en les concatenant et les converssnat en decimal. 
differemment si $45==21, dans ce cas le numero de sequence se trouve dans la meme ligne exactement $46 et $47, (dans ce cas on n'a pas d'encapsulation FEC)

 
car s'il s'agit du cas du FEC ($45=60) puis il me faut un saut de 28 lignes pour parcourir la trame qui suit
tandis que dans le cas de RTP ($45=21) il me faut un saut de 29 lignes

lami20j · Answer

Re,

Si ce n'est pas confidentiel tu peux le mettre sur cjoint.com et me donner le lien ici.
Le cas contraire tu peux m'envoyer le lien de cjoint.com par MP

Je vais regarder ce soir, je suis au boulot et je ne peux pas tester.

karim_khouja · Answer

ok Mr et merci bien c'est tres gentil de ta part
 
voici le lien: 	https://www.cjoint.com/?ejcKYUquGi

karim_khouja · Answer

a titre d'exemple ce code marche correctement sauf le separateur que j'ai est '|' (pipe)
et les conditions de saut de ligne pas encore


# !/usr/bin/perl -w

use strict;
use warnings;
 
 
open LIRE,"/home/sst/Bureau/hexa.txt" or die "fichier in trouvable";
open ECRIRE,">/home/sst/Bureau/rtp.txt
", or die "E/S : $!
";

while(<LIRE>) 
{
if($. % 3 == 1){ 
 my ($data_4, $data_5, $data_6, $data_7)= (split /\s/,$_)[4, 5, 6, 7];   
print ECRIRE "ligne$. $data_4 $data_5 $data_6 
";                                                                  
}
 
 }

lami20j · Answer

Re,

Non, ça ne marche pas ton code.
Ton fichier est crée sous windows il me semble.

Le problème avec ton fichier c'est qu'il y a des lignes que tu ne traites pas.
Donc tu ne peux pas faire un pas d'incrementation si tu ne supprimes pas d'abord ces lignes.

Je parle de ça +---------+---------------+----------+
10:29:55,459,489   ETHERDonc il faut sauter des lignes.


Quand je t'ai demandé un exemple concret je parlais d'un exemple aussi de sortie.

Tu m'as donné seulement l'entrée.
Dans le fichier que tu as mis sur cjoint la ligne 4 ne contient rien.
Mais le % == 4 c'est la condition correct
Voici le résultat à partir de la ligne 7
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
", or die "E/S : $!
";

while(<LIRE>)
{
#       next unless /^\|/;
        my @t=(split /\|/,$_)[10..13];
        {
          $"='|';
          print "ligne$. @t
" 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

karim_khouja · Answer

salut Mr

j'ai trouver la solution malgré qu'elle me somble bizzar . en tt cas je te remerci bcp  et c'est grace a votre aide



# !/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
", or die "E/S : $!
";

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$.  	 $data_135 $data_136 $data_138 $data_139 $data_141 $data_142 $data_168 $data_169 $data_171 $data_172
";        
}
}



si jamais je rencontre un prb Mr est ce que je peux vous contacter?
la tache n'est pas terminer aussi il me reste un tout petit peu 
je vais essayer seul et si jamais je tombe en panne je te demande de m'aider et merci bcp
n'hesiter pas de commenter mon code

lami20j · Answer

Salut,

si jamais je rencontre un prb Mr est ce que je peux vous contacter? 
C'est un plaisir d'aider quelqu'un qui essaie d'abord faire tout seul.
Tu peux toujours poser tes questions. Que ça soit moi où une autre personne tu trouveras un coup de main ;-).

Je vais essayer d'améliorer un peu ton code. Tu me diras si tu obtiens le même résultat
Plus tard je vais essayer aussi de t'expliquer le code.#!/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
" or die "E/S : $!
";

while(<LIRE>){
  if($. % 4 == 3){
    my @data= (split /|/,$_)[135,136,138,139,141,142,168,169,171,172];
    print ECRIRE "ligne$. 	@data
";
  }
}Si jamais tu as besoin des variables tu peux toujours les utiliser de la facon $data[indicetableau]

karim_khouja · Answer

Bonjour Mr 


le code que vous m'avez proposé ne ne fonctionne pas correctement 
 my @data= (split /|/,$_)[135,136,138,139,141,142,168,169,171,172];
    print ECRIRE "ligne$. 	@data
";
le resultat dans le fichier resultat est :
ligne3 	 
ligne7 	 
ligne11 	 
ligne15 	 
ligne19 

tandis que, 

 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$. 	 $data_135 $data_136 $data_138 $data_139 $data_141 $data_142 $data_168 $data_169 $data_171 $data_172
";

m'a donné hier le bon resultat mais aujourd'hui des erreur de compilations  
expl: 
Use of uninitialized value $data_171 in concatenation (.) or string at test.pl line 12, <LIRE> line 4955. 
j'ai pas compris pourquoi exactement

karim_khouja · Answer

c fait avec succés 
un petit truc qui manque c'est 
chmod +x chemin_du_fichier

ce que je voudrai bien le savoir c'est comment extraire les deux premiers arguments en les concatenant puis convertir ce nombre hexa en decimal

exple : 

ligne3   	    21 a515 4704 
ligne7   	    21 a516 4704 
ligne11   	    21 a517 4704 
ligne15   	    21 a518 4704 
ligne19   	    60 876c a4e4 
ligne23   	    21 a519 4704 
ligne27   	    21 a51a 4704 
ligne31   	    21 a51b 4704 
ligne35   	    60 876d a4e5 
ligne39   	    60 876e a4e6 


trouve = false;
while (trouve ==true)
je voudrai exactement analyser la deuxieme colonne 
si $2==60
first=hex($4);
chercher d'avantage la seconde apparition de '60' a la colenne 4 ($4)
second = hex ($4);
si (second - first==33)
trouve = true;



pour le moment chui entrain de programmer cette tache
je veux juste un coup de main pour que je puisse continuer
car comme vous le savez chui debutant en perl

merci bcp

lami20j · Answer

Salut,

j'ai pas compris pourquoi exactement
Si le code fonctionne dans certains cas alors il faut peut être étudier le fichiers d'entrée.

Normalement mon code doit fonctionner. En fin de compte un tableau n'est qu'une liste où on peut appliquer certaines fonctions.

Pour l'extraction que tu veux faire, il ne faut pas oublie que tu dois parcourir le résultat qui est un fichier.
Ensuite il faut tenir compte de séparateur qui est un espace.

karim_khouja · Answer

j'ai eu l'idée d'analyser le nouveau fichier rtp.txt
et mettre toutes les 4ieme arguments dans un tableau a condition que le deuxieme argument soit egale  a 60

open FILE,"/home/sst/Bureau/rtp.txt" or die "E/S : $!
";

my($line,@words,$word,%total);
while( defined( $line = <FILE> ) )
{
   @words = split( /\W+/, $line );
   foreach my $word (@words)
{
if ($word eq '60')
{
 my @table = $words[4];
}
}}

tojours des msg d'erreur
est ce que c'est faisable ou non? car je veux comparer les SNBL ($4   4iemes champs) ensemble
il faut que je trouve une difference = 33   c'est l'SNBL ($4) que je cherche

lami20j · Answer

Re,

Ce ne sont pas des messages d'erreurs, mais de warnings.
Pourquoi?
Puisque le code que tu essaies ne s'applique pas de la même façon pour toutes les lignes.
De mon côté je ne peux rien faire, puisque je n'ai pas le même environnement que toi.

Déjà pour ajouter plusieurs éléments à un tableau on utilise push ou unshift

Il suffit de faire un truc de genreopen FILE,"/home/sst/Bureau/rtp.txt" or die "E/S : $!
"; 


while( defined( $line = <FILE> ) ) 
{ 
  $line =~/^\w+\s(\w+)\s\w+\s(\w+)/; # espace comme séparateur
  push @table, $2 if $1=60;
}--
106485010510997108

karim_khouja · Answer

toujours pas solution 

j'ai essayer de faire tester si le tableau contien des valeurs ou non
mais sans resultats, je me tombe en panne vraiment j'ai pas compris pourquoi il n'accepte pas tous les essais

$line =~/^\w+\s(\w+)\s\w+\s(\w+)/; 
  push (my @table, $4 ) if $2 eq '60';
print "@table
";


$line =~/^\w+\s(\w+)\s\w+\s(\w+)/; 
  push (my @table, $4 ) if $2 eq '60';
print "my $table[1]
";

svp c tres urgent Mr,

lami20j · Answer

Re,

Envoie ton code et ton fichier complet sur lequel tu fait les tests.
Si confidentiel tu peut mettre les liens cjoint par MP.
Tu n'as toujours pas dit.
Les fichiers viens d'windows?

Je vais regarder ce soir.

karim_khouja · Answer

c'est le fichier initial que j'ai fais l'extraction de donnée avec succés https://www.cjoint.com/?ekfzFr1raU et celui ci est le second que je vais l'analyser pour faire : 1-) inserer tous les SNBL dans un tableau lorseque $2=='60' 2-) le contenue de ce tableau est en hexadecimal je vais le convertir en decimal 3-) distinguer un saut de 33 entre les SNBL c'est a dire comparer le contenu du tableau 2 à 2 si difference = 33 mettre dans une variable le $SNBL (qui est $4 comme je t'ai dis avant) https://www.cjoint.com/?ekfIrSOo3q et cela mon code complet sans l'interface graphique en PERL-GTK2 # !/usr/bin/perl -w 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 ", or die "E/S : $! "; while() { 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$. $data_135$data_136 $data_138$data_139$data_141$data_142 $data_168$data_169$data_171$data_172 "; } #close (LIRE); open FILE,"/home/sst/Bureau/rtp.txt" or die "E/S : $! "; my $table=''; while( defined( my $line = ) ) { $line =~/^\w+\s(\w+)\s\w+\s(\w+)/; # espace comme séparateur push (my @table, $4 ) if $2 eq '60'; print "@table "; }

lami20j · Answer

Re,

Oups, je n'ai pas remarqué avant de voir le résultat.
Vu que le séparateur est | je me suis demandé pourquoi tu es obligé d'avoir 10 variables au lieu de 5
En fait au lieu de
split /|/

Il faut mettresplit /\|/En ce moment j'ai besoin de savoir quels champs tu veux récuperer.
Je t'aiderai pour la suite

lami20j · Answer

Re,

Essaie ce code pour voir si tu obtiens en 1er temps le résultat que tu veux dans rtp.txt# !/usr/bin/perl 

use strict;
use warnings; # si tu mets ça pas besoin de -w

open LIRE,"karim1.txt" or die "fichier in trouvable";
open ECRIRE,">>rtp.txt
", or die "E/S : $!
";

while(<LIRE>){
  if($. % 4 == 3){
    my ($data_1, $data_2, $data_3, $data_4, $data_5) = (split /\|/,$_)[45, 46, 47, 56, 57];
    print ECRIRE "ligne$. 	 $data_1 $data_2$data_3 $data_4$data_5 
";
  }
}
close LIRE;
close ECRIRE;
__END__

lami20j · Answer

Re, Voici ce que je'obtienslami20j@debian:~/trash$ cat karim3.pl # !/usr/bin/perl -w use strict; use warnings; open LIRE,"karim1.txt" or die "fichier in trouvable"; open ECRIRE,">>rtp.txt ", or die "E/S : $! "; while(){ if($. % 4 == 3){ my ($data_1, $data_2, $data_3, $data_4, $data_5) = (split /\|/,$_)[45, 46, 47, 56, 57]; print ECRIRE "ligne$. $data_1 $data_2$data_3 $data_4$data_5 "; } } close LIRE; close ECRIRE; #2ème partie open FILE,"rtp.txt" or die "E/S : $! "; my @table; while(){ /^\w+\s*(\w+)\s*\w+\s*(\w+)/; push @table, $2 if $1 == 60; } print "@table "; __END__ lami20j@debian:~/trash$ perl karim3.pl 9341 9342 934b 934c 9355 lami20j@debian:~/trash$ cat rtp.txt ligne3 21 9369 4701 ligne7 21 936a 4701 ligne11 21 936b 4701 ligne15 60 f960 9341 ligne19 60 f961 9342 ligne23 21 936c 4701 ligne27 21 936d 4701 ligne31 60 f962 934b ligne35 60 f963 934c ligne39 21 9376 471f ligne43 21 9377 4701 ligne47 21 9378 4701 ligne51 21 9379 4701 ligne55 21 937a 4701 ligne59 21 937b 471f ligne63 21 937c 4701 ligne67 21 937d 4701 ligne71 21 937e 4701 ligne75 21 937f 4701 ligne79 60 f964 9355 ligne83 21 9380 4701 ligne87 21 9381 4701 ligne91 21 9382 4701 ligne95 21 9383 4701 ligne99 21 9384 4701 ligne103 21 9385 4701 lami20j@debian:~/trash$

karim_khouja · Answer

merci bcp oui c'est exactement ca Mr Lami, mais c'est pas ca mon probleme maintenant

ce que je veux c'est : 

1-) inserer tous les SNBL(=$4) dans un tableau lorseque $2=='60'
2-) le contenue de ce tableau est en hexadecimal je vais le convertir en decimal
3-) distinguer un saut de 33 entre les SNBL c'est a dire comparer le contenu du tableau 2 à 2 si difference = 33 mettre dans une variable le $SNBL (qui est $4 comme je t'ai dis avant)

lami20j · Answer

Re,

Tu parles de ça (voir en gras)?!

ligne3   21 9369 4701
ligne7   21 936a 4701
ligne11          21 936b 4701
ligne15          60 f960 9341
ligne19          60 f961 9342
ligne23          21 936c 4701
ligne27          21 936d 4701
ligne31          60 f962 934b
ligne35          60 f963 934c
ligne39          21 9376 471f
ligne43          21 9377 4701
ligne47          21 9378 4701
ligne51          21 9379 4701
ligne55          21 937a 4701
ligne59          21 937b 471f
ligne63          21 937c 4701
ligne67          21 937d 4701
ligne71          21 937e 4701
ligne75          21 937f 4701
ligne79          60 f964 9355
ligne83          21 9380 4701
ligne87          21 9381 4701
ligne91          21 9382 4701
ligne95          21 9383 4701
ligne99          21 9384 4701
ligne103         21 9385 4701

karim_khouja · Answer

c'est exactement ca Mr Lami

se sont les SNBL(s) que je cherche

lami20j · Answer

Salut, Ben, sont là lami20j@debian:~/trash$ perl karim3.pl 9341 9342 934b 934c 9355 C'est cette partie de code #2ème partie open FILE,"rtp.txt" or die "E/S : $! "; my @table; while(){ /^\w+\s*(\w+)\s*\w+\s*(\w+)/; push @table, $2 if $1 == 60; } print "@table " Quand je t'ai montré le résultat j'ai affiché aussi le contenu de fichier Exécute le script et tu verras lami20j@debian:~/trash$ cat karim3.pl # !/usr/bin/perl -w use strict; use warnings; open LIRE,"karim1.txt" or die "fichier in trouvable"; open ECRIRE,">>rtp.txt ", or die "E/S : $! "; while(){ if($. % 4 == 3){ my ($data_1, $data_2, $data_3, $data_4, $data_5) = (split /\|/,$_)[45, 46, 47, 56, 57]; print ECRIRE "ligne$. $data_1 $data_2$data_3 $data_4$data_5 "; } } close LIRE; close ECRIRE; #2ème partie open FILE,"rtp.txt" or die "E/S : $! "; my @table; while(){ /^\w+\s*(\w+)\s*\w+\s*(\w+)/; # regex push @table, $2 if $1 == 60; } print "@table "; __END__ lami20j@debian:~/trash$ perl karim3.pl 9341 9342 934b 934c 9355 Oublie $2 et $4 puisqu'il n'y a pas. En fait $1 c'est la capture de deuxième champ qui doit être 60 et $2 c'est la capture de 4ème champ. Il s'agit en fait des capture faites dans la regex avec les parenthèses (regarde la regex, j'ai mis en gras) En fait le 1er et le 3ème champ je ne les ai pas capturé. C'est pour ça que le deuxième champ et $1 et le quatrième est $2

karim_khouja · Answer

bonjour mr Lami

c'est exactement ca c'est tres gentil de ta part
je te souhaite tout le bonheur Mr et tu merite vraiment le "king of perl"

merci bcp 1000 fois

karim_khouja · Answer

ppp

lami20j · Answer

Re,

De rien ;-)
Ben, je l'ai mis en résolu. Il y a d'(autres problèmes?!

karim_khouja · Answer

j'ai mis les SNBL dans un tableau et les numero de sequence dans un autre et j'ai les convertis en hexadecimal aussi while(){ if($. % 4 == 3){ my ($data_1, $data_2, $data_3, $data_4, $data_5) = (split /\|/,$_)[45, 46, 47, 56, 57]; print ECRIRE "ligne$. $data_1 $data_2$data_3 $data_4$data_5 "; } } close LIRE; close ECRIRE; #2ème partie open FILE,"rtp.txt" or die "E/S : $! "; my @fec; my $fec; my @rtp; my $rtp; while(){ /^\w+\s*(\w+)\s*(\w+)\s*(\w+)/; # regex push @fec, $3 if $1 == 60; push @rtp, $2 if $1 == 21; } for (my $i=0;$i<=$#fec;$i++) { $fec[$i] = hex($fec[$i]); print "$fec[$i] "; } #print '******** '; for (my $j=0;$j<=$#rtp;$j++) { $rtp[$j] = hex($rtp[$j]); print "$rtp[$j] "; } maintenant je suis entrain de faire découper le tableau rtp en plusieurs tableaux for ($i=0; $i<=$#Fec; $i++) { if ($Fec[$i+1]-$Fec[$i]==33) { my $SNBL = $fec[$i+1]; for($j=0;$j<=$#Rtp;j++) { if (Rtp[$j] == $SNBL) { for (my $k=$j;my $diff=39;$k++) { $diff=$rtp[$k]-$rtp[$j]; push @res,$rtp[$k] if $diff==39; } } } } } chaque matrice contient 40 rtp en fait supposant que j'ai un tableau rtp qui contient : RTP[1,2,3,4,5,6,7,8,....,40|41,42,.....,80|81,82....,120|121.....160....] fec contien ainsi : FEC[1,2,3,4,5,6,7,8,41,42,43,43,44,45,46,47,48,.....81,...,88.....] les 8 premieres rtp de la matrice j'espere que tu m'a bien compris

karim_khouja · Answer

les print met les comme des commentaires car je les fait juste pour etre sure du resultat

karim_khouja · Answer

# !/usr/bin/perl -w 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 ", or die "E/S : $! "; while(){ if($. % 4 == 3){ my ($data_1, $data_2, $data_3, $data_4, $data_5) = (split /\|/,$_)[45, 46, 47, 56, 57]; print ECRIRE "ligne$. $data_1 $data_2$data_3 $data_4$data_5 "; } } close LIRE; close ECRIRE; #2ème partie open FILE,"rtp.txt" or die "E/S : $! "; my @fec; my $fec; my @rtp; my $rtp; while(){ /^\w+\s*(\w+)\s*(\w+)\s*(\w+)/; # regex push @fec, $3 if $1 == 60; push @rtp, $2 if $1 == 21; } for (my $i=0;$i<=$#fec;$i++) { $fec[$i] = hex($fec[$i]); #print "$fec[$i] "; } #print "******** "; my @res; for (my $j=0;$j<=$#rtp;$j++) { $rtp[$j] = hex($rtp[$j]); #print "$rtp[$j] "; } for (my $i=0; $i<=$#fec; $i++) { if ( $fec[$i+1] - $fec[$i] == 33 ) { my $SNBL = $fec[$i+1]; for(my $j=0;$j<=$#rtp;$j++) { if ($rtp[$j] == $SNBL) { for (my $k=$j;my $diff=39;$k++) { $diff = $rtp[$k] - $rtp[$j]; push @res,$rtp[$k] if $diff==39; } } } } } print "@res "; ces boucles imbriquées continnent encore des erreurs j'ai fait ceci car j'ai toujours dans chaque matrice(40 rtp) 8 rtp perdus

karim_khouja · Answer

my @A;
for (my $j=0;$j<=$#rtp;$j++)
{
$rtp[$j] = hex($rtp[$j]);
#print "$rtp[$j] ";
}
for (my $i=0; $i<=$#fec; $i++)
{
  if ( $fec[$i+1] - $fec[$i] == 33 )
  {     
push  @A, $fec[$i+1];}}
print "@A
"; 

ici j'ai reussis a faire extraire tout les rtp==fec et j'ai les mis dans un tableau @A
ce pendant je veux , pour le moment
$SNBL=$A[0];
for (my $j=0; $j<=$#rtp;$j++)
{
if ($rtp[$j]==$SNBL)
{ # je veux chercher les dans le tableau rtp tout les rtp qui commence par $SNBL et fini par $SNBL+40}
}
please je vous en pris Mr Lami c'est urgent
je sais que je t'ai derangé mais c'est ma derniere demande

lami20j · Answer

Salut,

Je n'ai pas eu le temps de regarder. Je suis au boulot.
J'ai lu un peu, mais je n'ai pas compris ce que tu veux.
J'ai besoin des cas concrets. Ton code est un peu compliquer.

Par exemple pourquoi tu fait
for (my $j=0;$j<=$#rtp;$j++)

au lieu deforeach my $j (@rtp){
   traitement de $j
}Donc explique ce que tu veux obtenir comme résultat (je parle d'un exemple concret) ensuite on verra pour le code.

lami20j · Answer

Re,

Si on prends le résultat de message 30 http://www.commentcamarche.net/forum/affich 11871775 awk perl?page=2#30

$NBL c'est quoi?


$SNBL=$A[0]; 
for (my $j=0; $j<=$#rtp;$j++) 
{ 
if ($rtp[$j]==$SNBL) 
{ # je veux chercher les dans le tableau rtp tout les rtp qui commence par $SNBL et fini par $SNBL+40} 
} 
Ca veut dire quoi fini par $NBL+40 ?

Sinon ton code je le vois plutôtfor (@rtp){
  if($_ == $A[0]){
     # ce que tu veux et je ne comprends pas
}

karim_khouja · Answer

j'ai parcouru le tableau fec et j'ai fait une condition 
si $fec[$i=1]-$fec[$i] == 33  car je cherche le premier saut de 33 pas car le tableau contient des numero consecutive et puis il fait un saut de 33 chaque fois
expl @fec: [1,2,3,4,5,6,7,8,41,42,43,44,45,46,47,48,81,82....]

j'ai mis [1,41,81...] dans un tableau que j'ai appeler @A  se sont les tetes de Matrice

j'ai initialiser une valeur $SNBL = $A[5]  ==> je vais prendre une tete de matrice quelquonque du tableau @A

maintenant je veux parcourir le tableau @rtp et chercher dans sont contenu une valeur egale a $A[5]
 il va le trouver surement 
mais je veux avoir dans un dernier tableau resultat toutes les valeurs allant de $SNBL jusqu'a $SNBL+39
ce tableau contient tout les elements  de la matrice rtp mais a cette matrice on va trouver aussi 8 ou plus rtp perdus
normalement je vais trouver 32 valeurs mais pas toujours

lami20j · Answer

Re,

Ben, il suffit de prendre des tranches de tableaux en ce cas.

Il suffit de faire par exemple my @test = @A[$NBL .. ($NBL+39)];--
106485010510997108

lami20j · Answer

Re,

Si j'ai bien compris c'est ça que tu veux (le résultat en gras)lami20j@debian:~$ cat tranche.pl
#!/usr/bin/perl
use strict;use warnings;

my @fec=(1,2,3,4,5,6,7,8,41,42,43,44,45,46,47,48,81,82,83,84,85,86,87,88);

my $test=41;
my $i;
foreach (@fec){
        ++$i;
        last if($_==$test);
}
my @control=@fec[--$i .. $i + 7];
print "@control
";
__END__
lami20j@debian:~$ perl tranche.pl
41 42 43 44 45 46 47 48
lami20j@debian:~$

karim_khouja · Answer

nn c'est presque 
mais  je voudrai avoir : 41 42 43 44 45 46 47 48...79 du tableau @rtp
c'est a dire du [41 a 41+39]
malgre qu'il y a des numero dans ce intervall qui n'existe pas  (8 numero perdu ou plus parfois)

lami20j · Answer

Salut,

mais je voudrai avoir : 41 42 43 44 45 46 47 48...79 du tableau @rtp
c'est a dire du [41 a 41+39] 

Qui ou quoi t'empêche de prendre mon exemple et faire (au lieu de @fec, tu mets @rtp) @rtp[--$i .. $i + 38];?!!

karim_khouja · Answer

GTK2 est mon bibliotheque graphique de perl


j'ai remarqué que perl n'accepte pas cette instruction : $label$i   
en fait je suis entrain de construire des label dynamiquement a l'aide d'une boucle for
mais je rencontre une erreur de compilation

karim_khouja · Answer

ou bien autrement :
supposant j'ai ce tableau : 1,2,3,7,8,12
je veux avoir un tableau comme ca 1,2,3,0,0,0,7,8,0,0,0,12
le contenu du tableau est trié deja 
et je veux avoir au lieu des numeros perdus des zeros

karim_khouja · Answer

s'il te plais Mr Lami je te jure que c'est tres urgent!!

lami20j · Answer

Salut,

J'en suis sûr que c'est urgent. Toutefois avec une telle invocation, tu risques plutôt de ne pas avoir une réponse.
N'oublie pas que nous sommes de bénévoles, et chacun a aussi une vie à côté.

Tu as vraiment de la chance d'avoir la réponse assez rapidement.
lami20j@debian:~$ cat tableau_zero.pl
#!/usr/bin/perl
use strict;use warnings;

my $i;
my @tab=(1,2,3,7,8,12,20,24,29);
my @res=push my @tmp,shift @tab;

while(@tab){
  push @tmp,(my $e=shift @tab);
  my $decalage = ($e - $tmp[$i++]);
  if($decalage>1){push @res,0 for 1..$decalage - 1}
  push @res,$e;
}
@tmp=();
print "@res
";
__END__
lami20j@debian:~$ perl tableau_zero.pl
1 2 3 0 0 0 7 8 0 0 0 12 0 0 0 0 0 0 0 20 0 0 0 24 0 0 0 0 29

karim_khouja · Answer

merci infinement 

tu es genial Mr Lami 
et je m'excuse , je sais que je t'ai dérangé pas mal de fois
et c'est grace a dieu qui m'a offert une telle personne geniale et gentille pour m'aider et pour me permettre de terminer cette tache.

merci bcp mille fois

lami20j · Answer

Salut,

Je n'ai pas trop aimé la 1ère version.
Voici une autre aproche (merci à jipicy pour les testslami20j@debian:~$ cat tableau_zero2.pl
#!/usr/bin/perl
use strict;use warnings;

my @tab=(1,2,3,7,8,12,20,24,29);
my @res=(0) x $tab[$#tab];

$res[$_-1]=$_ for @tab;
print "@tab
";
print "@res
";
lami20j@debian:~$ perl tableau_zero2.pl ro2.pl
1 2 3 7 8 12 20 24 29
1 2 3 0 0 0 7 8 0 0 0 12 0 0 0 0 0 0 0 20 0 0 0 24 0 0 0 0 29

karim_khouja · Answer

salut Mr Lami pouvez vous m'aider une derniere fois ?

j'ai deux tableaux
exp 
@a=(1,2,3,4,5,6,7,8,9,10)
@b=(3,5,6,7)

je veux eliminer le contenu de @b du @a

c a d @a doit contenir @a=(1,2,4,8,9,10)

lami20j · Answer

Salut,

une derniere fois ? 
Si je comprends bien, si jamais tu as encore de questions je ne te répondrai plus. ;-DDDDD
lami20j@debian:~/trash/ccm_perl$ cat ccm_que_dans_a.pl
#!/usr/bin/perl
use strict;use warnings;

my (@a,@b,@que_dans_a,%dans_b);
@a=(1,2,3,4,5,6,7,8,9,10);
@b=(3,5,6,7);
@dans_b{@b}=();

for(@a){push @que_dans_a,$_ unless exists $dans_b{$_}};
print "@a
@b
";
print "@que_dans_a
";
__END__
lami20j@debian:~/trash/ccm_perl$ perl ccm_que_dans_a.pl
1 2 3 4 5 6 7 8 9 10
3 5 6 7
1 2 4 8 9 10

karim_khouja · Answer

my (@mat_ERR, %dans_sans_err);

@dans_sans_err{@num_Mat_sans_err}=();

for (@num_Mat_errAA){push @mat_ERR, $_ unless exists $dans_sans_err{$_}};

print"@mat_ERR
";


il m'a donner un resultat inverse je sais pas pourquoi 
sachant que @a=@num_Mat_errAA  et   @b=@dans_sans_err
 

merci Mr mais je t'ai déranhé énormement
t'es tres tes gentil 
Merci bcp

lami20j · Answer

Re,

Attention, @b c'est @num_Mat_sans_err

@dans_sans_err  n'est pas un tableau. En revanche on a le hash %dans_sans_err

Bref,

@a il faut le remplacer avec @num_Mat_errAA 
@b il faut le remplacer avec @num_Mat_sans_err

Donc les tableau que tu compares sont

@num_Mat_errAA  et @num_Mat_sans_err

et pas

@num_Mat_errAA  et @dans_sans_err

lami20j · Answer

Re,

Pour vérifier il suffit d'afficher les tableauxprint "@num_Mat_errAA
";
print "@num_Mat_sans_err
";
print "@mat_ERR
";

karim_khouja · Answer

salut Mr Lami 
merci pour la reponse d'hier j'été trop fatigué c'est pourquoi il m'a paru que les resultats sont fausse mais j'ai mis le bon code dés le début.

j'ai un probleme Mr 
supposons que j'ai un tableau 
my @Tfin=(1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,0,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40, 41,42,43,44,45,46,47,48,49,50,51,52,0,0,55,56,57,58,59,60,61,62,63,0,0,0,0,0,0,0,0,72,73,74,75,76,77,78,79,80);

je vais analyser 40 element par 40 a part : (analyser le tableau du [1 .. 40] puis [41..80]...)

 je trouve 8 et seulement 8 zeros consécutives dans chaque 40 elements on affecte a un autre tableau un numero d'indice de sous tableau expl: pour les 40 premiere leurs indice est 40/40=1 , le deuxieme 80/40=2, ...

ici le premier sous tableau est faux car on a seulement 8 zeros consecutives 
tandisque le deuxieme sous tableau est vrai car il possedes 8 zero consécutives + 2 autres zero 

je sais que je m'exprime mal mais si jamais vous avez besoin d'une information 
please n'hesitez pas 
je vous en pris Mr
Merci infinement

lami20j · Answer

Salut,

Tu veux faire quoi?
Afficher faux quand il y a seulement 8 zéros et vrai quand il plus de huit zéros?
lami20j@debian:~/trash$ cat vraifaux.pl
#!/usr/bin/perl
use strict;use warnings;

my @Tfin=(1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,0,18,19,
          20,21,22,23,24,25,26,27,28,29,
          30,31,32,33,34,35,36,37,38,39,
          40,41,42,43,44,45,46,47,48,49,
          50,51,52,0,0,55,56,57,58,59,
          60,61,62,63,0,0,0,0,0,0,0,0,
          72,73,74,75,76,77,78,79,80);

print "FAUX
" if (scalar grep { /^0$/ } @Tfin[0 .. 39]) == 8;
print "VRAI
" if (scalar grep { /^0$/ } @Tfin[40 .. 79]) == 10;
__END__
lami20j@debian:~/trash$
lami20j@debian:~/trash$ perl vraifaux.pl
FAUX
VRAI

karim_khouja · Answer

non quand il y a 8 zero et les zero sont consécutives afficher faut
exemple : 
1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,0,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40    faut
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,0,0,0,0,0,0,0,0,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40    faut
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,0,0,0,0,0,0,0,0    faut

la position n'importe mais les zeros doit etre 8 et consecutives

merci bcp

lami20j · Answer

Re,

Je ne comprends pas.
Montre ton exemple sur le tableau que tu m'as donné.my @Tfin=(1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,0,18,19,
          20,21,22,23,24,25,26,27,28,29,
          30,31,32,33,34,35,36,37,38,39,
          40,41,42,43,44,45,46,47,48,49,
          50,51,52,0,0,55,56,57,58,59,
          60,61,62,63,0,0,0,0,0,0,0,0,
          72,73,74,75,76,77,78,79,80);

karim_khouja · Answer

je dois parcourir mon tableau 40 part 40 (chaque 40 a part) ( chaque 40 constitut une matrice c'est une chose comme ca)

il doit m'afficher : 
*)la matrice 1 est fausse  car j'ai 8 zeros consecutives et pas d'autres zeros 

1,2,3,4,5,6,7,8,9,0,0,0,0,0,0,0,0,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40



*)la matrice 2 est vrai car j'ai huit zero consécutive oui mais une fois je trouve d'autres zeros l'analyse devienne positive

41,42,43,44,45,46,47,48,49,50,51,52,0,0,55,56,57,58,59,60,61,62,63,0,0,0,0,0,0,0,0,72,73,74,75,76,77,78,79,80

karim_khouja · Answer

Mr est ce que vous m'avez compris?
je te jure que je me suis trés pressé du temps 
demain je vais présenter ma premiere partie et elle manque que cette condition

karim_khouja · Answer

les huits zero ok mais la conditions qu'ils soient consécutives?
c ca le probleme?

karim_khouja · Answer

j'ai fait ce que tu m'a appris a faire  mais reste une condition comment verifier que les zeros sont consécutives?


# !/usr/bin/perl -w

use strict;
use warnings;
my @A;
my @Tfin =(1,2,3,4,5,6,7,8,9,10,0,0,0,0,0,0,0,0,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,0,0,0,0,5,0,0,0,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80);


for (my $i=0; $i<=$#Tfin; $i+=40)
{
my $b=($i/40)+1;
push @A,$b if (scalar grep {/^0$/} @Tfin[$i..$i+39])==8;
}
print"@A
";

karim_khouja · Answer

je vous en pris Mr Lami c'est la derniere aide 
please

niconoe · Answer

C'est quand meme clairement mieux en perl :)

karim_khouja · Answer

oui mes données arrivent a 65530 
j'ai pas arrivé a un resultat fonctionnable jusqu'a maintenant

lami20j · Answer

Re,

Puisque tu travailles avec les indices.
Utilises plutôt mon code.

karim_khouja · Answer

j'ai arrivé maintenant a un petit resultat 
mais si ca va marcher il faut que :

si je stocke dans un tableau par exemple les indices 1,3,6
il faut que j'efface les premiers 40 elements du tableau et les troisiemes 40 elements et les 6ieme 40 elements

y a t-il une solution facile?

lami20j · Answer

Re,

Il y toujours des solutions, mais la facilité d'une solution depends de la compréhension du problème.
Je n'ai fait que te donner des morceaux de code.

karim_khouja · Answer

dans toute les cas Merci beaucoup Mr Lami tu m'as bcp aidé 
je te remercie infinement
ça y est j'ai trouver une solution maintenant et elle fonctionne correctement

lami20j · Answer

Re,

ça y est j'ai trouver une solution maintenant et elle fonctionne correctement
C'est parfait. Donc je n'ai plus rien à faire ;-))

karim_khouja · Answer

merci a votre aide Mr Lami durant tout ma periode de pfe

lami20j · Answer

Salut,

De rien ;-)

karim_khouja · Answer

salut , 

 j'ai terminer mais je te demande une solution s'il y on a

j'ai trois script perl maintenant bien faite, j'ai developper une interface graphique GTK2-perl 
j'ai trois boutons radios, chaque bouton dois faire appel a un script 

est ce que cette commande permet de faire cette tache efficacement?

system("/usr/bin/perl /path/to/my_script.pl ");

merci bcp

Awk-perl

75 réponses

Discussions similaires

Newsletters