Formatage de l'adresse MAC

Bonsoir a tous, voila mon problemes:

J ai un fichier contenant la table CAM:

Code:

---

1 2 3 4 5 6 7

13;00:16:35:62:00:0A;Fa1/32; 12;00:13:21:1E:48:0D;Fa1/4; 900;00:80:9F:55:11:04;Fa1/27; 13;00:01:E6:54:1C:0D;Gi1/1; 11;00:12:01:63:07:00;Gi1/2;

---

J ai un autre fichier contanat la table ARP:

Code:

---

1 2 3 4 5 6 7

10.9.16.36;0:80:9f:55:3:0; 10.4.19.3;0:e:7f:69:97:c; 10.4.19.44;0:1:e6:9e:22:d; 10.9.16.54;0:80:9f:54:be:2; 10.9.20.2;0:1:e6:0:ca:3;

---

Le probleme etant que les @MAC n ont pas le meme format hors pour faire une recherche c est pas genial. dc mon souhait c est qu aient le meme format !!!
Merci d avance Jules

Pour les courageux, pack/unpack permet certainement d'arriver à quelquechose.

Etant trop fainéant pour m'investir dans ces fonctions (dont je n'ai besoin que trop rarement), je leur ai préféré la solution laborieuse pour ce genre de conversion : split/sprintf/join :

Code:

---

1 2 3 4 5 6

my $mac="0:80:9f:55:3:0"; my @liste=split(/:/, $mac); my @liste_formatee=(); push @liste_formatee, sprintf "%02x", $_ foreach @liste; my $mac_formatee=join (":", @liste_formatee); print "$mac_formatee\n"

---

Citation:

---

Envoyé par 2Eurocents

Pour les courageux, pack/unpack permet certainement d'arriver à quelquechose.

Etant trop fainéant pour m'investir dans ces fonctions (dont je n'ai besoin que trop rarement), je leur ai préféré la solution laborieuse pour ce genre de conversion : split/sprintf/join :

Code:

---

1 2 3 4 5 6

my $mac="0:80:9f:55:3:0"; my @liste=split(/:/, $mac); my @liste_formatee=(); push @liste_formatee, sprintf "%02x", $_ foreach @liste; my $mac_formatee=join (":", @liste_formatee); print "$mac_formatee\n"

---

---

Ne pas oublier d'employer uc() pour que les lettres soient en majuscules.

--
Jedaï

Citation:

---

Envoyé par Jedai

Ne pas oublier d'employer uc() pour que les lettres soient en majuscules.

---

Ce n'est même pas nécessaire ;)
Avec le sprintf, un format "%02x" sortira toutes les lettres des nombres hexadécimaux en minuscules, un "%02X" sortira toutes les lettres des nombres hexadécimaux en majuscules. 8-)

Par contre, il est nécessaire de corriger la faute que j'ai commise en oubliant de prendre en compte le fait que le nombre était déjà exprimé en hexadécimal :oops:

Un code correct serait :

Code:

---

1 2 3 4 5 6

my $mac="0:80:9f:55:3:0"; my @liste=split(/:/, $mac); my @liste_formatee=(); push @liste_formatee, sprintf "%02X", hex($_) foreach @liste; my $mac_formatee=join (":", @liste_formatee); print "$mac_formatee\n"

---

Notez la présence d'un "hex" supplémentaire sur le nombre passé au sprintf.

Merci beaucoup ca marche nikel !!!!
Jules
bonne matinee