les fichiers en perl

j'ai pu extraire en premier lieu les donnés qui m'interesse d'un fichier hexa.text

a l'aide de ces ligne de commandes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

# !/usr/bin/perl -w   use strict; use warnings;     open LIRE,"/home/sst/Bureau/karim/capture/hexa.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"; } }

---

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

(c'est un bout de resultata) exple :

Citation:

---

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

Utilise la balise CODE, on verra mieux...
Pis c'est quoi la question ...?

Pour les balises CODE, utilise l'icone dièse dans la barre d'outils.

Citation:

---

Envoyé par karim_khouja

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

---

Pour concaténer des deux variables, utilise le point

Code:

---

my $concat = $var1.$var2;

---

Pour convertir une valeur numérique, regarde sprintf()

j'ai un fichier de ce type exactement

Citation:

---

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

---

et je veux mettre le $4 de chaque ligne qui comporte comme $2=60 dans un tableau
puis convertir le contenu de tableau de l'hexadecimal vers le decimal
je suis debutant je sais pas commet introduire les balise code excuser moi

Code:

---

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"; }

---

Tes balises CODE ne passent pas.
Il faut les écrire en majuscules ou utiliser l'icône dièse de la barre d'outils (#).


Regarde sprintf() pour ta conversion numérique et va lire la FAQ sur les tableaux.

Le prochain code non visible entrainera le verrouillage du post.

Merci de votre compréhension!