Discussion :

[calimero642]

Bonsoir a tous, voila mon problemes:

J ai un fichier contenant la table CAM:

Code :

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

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 :

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

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

[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 :

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

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"

[Jedai]

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 :

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

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ï

[2Eurocents]

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.

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

Un code correct serait :

Code :

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

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.

[calimero642]

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