Discussion :

[jean tof]

Bonjour

J'ai un tableau associatif contenant des adresses MAC associées a des adresses IP. Par exemple 000802CA4943 => 10.1.1.1 000802CA4944 => 10.1.1.2 ...etc... .Mon probleme vient lorsque je veux recupérer l'adresse IP associées a une adresse MAC. Si j'ai l'adresse MAC 00-08-02-CA-49-43, ça fonctionne, et lorsque j'ai 00-08-02-ca-49-43, je n'ai pas d'adresse IP.
Donc comment fait-on pour que les majuscule ne soit pas pris en compte ?

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
association_AdresseMAC_PC("00-08-02-ca-49-43")
sub association_AdresseMAC_PC
{
  my $recherche = shift;     #Adresse MAC passe en parametre
  $recherche =~ s/-//g;
  $recherche =~ s/://g;
  my $pc = $adresseMAC_PC{$recherche};
  if ($pc eq "")
  {
    $pc = " ";
  }
  return $pc;
}

[Arioch]

Bonjour,

Code :

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

1
2
3
my $adresseMac = "00-08-02-ca-49-43";
$adresseMac =~ tr/a-z/A-Z/;
association_AdresseMAC_PC($adresseMac);

Et voilà

Maintenant, si ton script a besoin de conserver les adresses MAC telles qu'il les trouve, tu peux toujours copier la valeur dans une variable temporaire, transformer dans celle-ci les minuscules en majuscules et envoyer cette variable temporaire à ta fonction.

[2Eurocents]

S'il y a la possibilité d'utiliser des modules, il me semble avoir vu, une fois, l'usage du module Tie::CPHash.

C'est un module qui fournit une table de hachage insensible à la casse (dans les recherches), mais qui l'enregistre quand même (pour la restituer au besoin).

Sinon, il y a la possibilité d'utiliser le simple Tie::Hash pour faire convenir la structure à ton besoin

Ou à défaut, il faut y aller à la main, en découvrant les miracles de l'opérateur tie (une lecture attentive de "perldoc perltie" sera alors nécessaires).

Bon courage.

[Jedai]

Pour être insensible à la casse, une recette classique (peut-on vraiment appeler ça une recette d'ailleurs) consiste à utiliser toujours la même casse, autrement dit à mettre des lc() (lower-case) partout :

Code :

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

1
2
3
4
5
6
 
my $MAC = ... ;
 
my $hash{lc $MAC} = ... ;
 
print $hash{lc $MAC};

Alors bien sûr, si tu peux installer un module, Tie::CPHash est préférable (il fait sans doute l'équivalent en interne, tout en maintenant un hash des noms originaux), mais sinon, sauf si tu as envie d'en apprendre plus sur Tie, autant utiliser la solution la plus simple.

--
Jedaï

[jean tof]

La méthode de Arioch fonctionne pour ce que je veux.
Merci bien

[pospos]

un petit lc dans la clé c'est tout de meme plus propre qu'un gros tr// avec assignation obligatoire de variable je trouve!

[djibril]

pourquoi faire simple quand on peut faire compliqué

[Arioch]

Bande de jaloux qui avez oublié que TIMTOWTDI !!

[lami20j]

Salut,

Bande de jaloux qui avez oublié que TIMTOWTDI !!

c'est

TMTOWTDI

lami20j

[Arioch]

TIMTOWTDI : There Is More Than One Way To Do It



Que veux dire TMTOWTDI ?

[Arioch]

Source : linux-france.org

TIMTOWTDI

[Perl] There Is More Than One Way To Do It. Devise des perliens, aussi orthographiée TMTOWTDI.

Nous avons raison tous les deux, na !

[lami20j]

Re,

Source : linux-france.org

TIMTOWTDI

[Perl] There Is More Than One Way To Do It. Devise des perliens, aussi orthographiée TMTOWTDI.

Nous avons raison tous les deux, na !

En ce cas on va faire

/ti?mtowtdi/i

lami20j

[Arioch]