Discussion :

[ifan]

bonjour a tous,

Je suis débutante en perl. J'ai bien compris comment recuperer une ligne entiere dans un fichier, mais je ne vois pas comment recuperer un nombre limiter de caracteres.

Je m'explique: dans un fichier j'ai un grand nombre ecris en hexadecimal qui ressemble a ca:

ae 45 ed 56 01 ce c6 b8 cc 05 f8 03 93 5c 67 4d
db e0 d7 5c 4c 09 fd 79 51 fc 6b 0c ae c3 13 a8
...

Ce nombre étant tres grand je voudrais le decouper en plusieur entiers a,b,c,... de 32 bits chacun.
Il faudrait donc que j'arrive a avoir au final

$a=0xae45ed56
$b=0x01cec6b8
$c=...

Je ne sais pas si j'ai réussi a me faire comprendre mais si quelqu'un avait une petite idee pour y arriver je l'en remercie d'avance

[Gamdwin]

Tu peux t'inspirer de l'exemple ci-dessous pour ce que tu comptes faire (y a surement plus propre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Pour exemple
my $chaine = "ae 45 ed 56 01 ce c6 b8 cc 05 f8 03 93 5c 67 4d";
 
# Supprime tous les espaces de la chaine
$chaine =~ s/ //g;
 
# Cree un espace tous les paquets de 8 caracteres non suivi par un espace
1 while ($chaine =~ s/(\w{8})(\w)/$1 $2/);
 
# Decoupe la chaine en groupes de 8 caractères + stockage dans un tableau
my @hexa = split / /, $chaine;
 
# Dans chaque ligne du tableau, il y a un paquet de 8 caracteres hexa
foreach (@hexa) 
{
	print "Hexa = 0x$_\n";
}

N'hésite pas à demander s'il y a quelque chose que tu ne comprends pas.

[ifan]

Merci pour ton aide mon programme n'a pas trop besoin d'etre propre c'est juste pour un traitement preleminaire.J'essai tout ca demain, merci encore.

[ifan]

heu...peut etre que j'ai pas lu assez de tutoriels mais c'est quoi le "1" placé devant le while.

Sinon c'est à peu près ce dont j'avais besoin, il faut maintenant que je récupère dans le tableau non pas la chaine "ae 45 ed 56" mais la valeur de l'entier qui lui correspond. Mais je n'ai pas encore vraiment cherché comment faire alors je m'y met.

[Gamdwin]

heu...peut etre que j'ai pas lu assez de tutoriels mais c'est quoi le "1" placé devant le while.

Pour que while boucle sur quelque chose.
En gros, la ligne que j'ai mise signifie : "boucler jusqu'à ce qu'il n'y ait plus de transformation effectuée", le "1" ne sert que d'excuse au while().

C'est comme si j'avais écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
while ($chaine =~ s/(\w{8})(\w)/$1 $2/)
{
   # Rien.
}

Sinon c'est à peu près ce dont j'avais besoin, il faut maintenant que je récupère dans le tableau non pas la chaine "ae 45 ed 56" mais la valeur de l'entier qui lui correspond. Mais je n'ai pas encore vraiment cherché comment faire alors je m'y met.

Tu peux convertir chaque valeur du tableau en nombre avec hex().

Exemple (si on reprend le code que je t'ai mis) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
foreach (@hexa)
{
   print "Conversion en int : " . hex($_);
   print "\n";
}

[ifan]

Merci beaucoup, tu m'as fait gagner du temps (et j'en ai bien besoin).
Je change de sujet mais saurais tu par hasard où je pourrais récuperer le module Digest::SHA1car apparamment quand j'utilise la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

#use  Digest::SHA1 qw(sha1_hex )

On me dit que Digest/SHA1.pm est introuvable, j'en conclu qu'il n'est pas présent par défaut.

Edité par GLDavid, merci d'utiliser les balises codes plutôt que la couleur.

[Gamdwin]

Pour les modules, il faut aller voir sur CPAN ( http://www.cpan.org ), c'est le site qui les recense tous.

Le site propose une recherche, je l'ai lancée pour trouver Digest::SHA1, et j'ai eu ceci en réponse :

http://search.cpan.org/~gaas/Digest-SHA1-2.10/SHA1.pm


Si tu n'arrives pas à l'installer, j'imagine que tu pourras trouver une aide dans la FAQ (j'avoue ne pas l'avoir encore lue )

[GLDavid]

Si tu n'arrives pas à l'installer, j'imagine que tu pourras trouver une aide dans la FAQ (j'avoue ne pas l'avoir encore lue )

Oooooohhhhh, c'est pas bien ça !
Pour répondre au problème de ifan, la soluce est ici (avec notre FAQ ).

@++

[ifan]

Merci pour votre aide

[GLDavid]

Une petite question ifan, la FAQ t'a t'elle bien renseignée ?

@++

[ifan]

Oui la FAQ m'a bien renseignée en ce qui concerne l'installation d'un module. Par contre mon problème principal était de savoir où récupérer les modules et meme si dans un des exemples on peut voir où un des modules est récupéré je trouve que ca ne saute pas aux yeux(mais je n'ai pas lu toute la FAQ peut etre l'adresse est elle donnée ailleurs). Donc merci a Gamdwin pour m'avoir donner l'adresse du site.

J'en profite pour poser une autre question :Est qu'il existe une fonction qui transforme les nombres décimaux en nombre hexadécimaux?

[2Eurocents]

J'en profite pour poser une autre question :Est qu'il existe une fonction qui transforme les nombres décimaux en nombre hexadécimaux?

tsss ... autre question, autre fil

Mais la réponse est : oui


A la base, déjà, tu as le "printf"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $a=100;
my $b=65535;
printf "%x %X\n", $a, $b;

Après, il existe des outils plus complexes, notamment avec pack/unpack, mais c'est d'un niveau extrèmement relevé (pour tout dire, je n'ai pas encore réussi à triompher complètement dans mon combat contre ces outils).

Bonne continuation

[djibril]

adresse de la faq en page d'accueil forum perl et ma signature