Table de correspondance

[vince2005]

Bonjour,

je souhaiterai faire un programme qui renvoie à une tale de correspondance.

Par example :

A,J => 1
B,K,S=>2
C,L,T=>3
D,M,U=>4
E,N,V=>5

Pour aprés pouvoir transposer cette table de corresponande à ma variable $var2.

Par exemple :
My $var2=45A69M

Au final, je prends chaque caractere de ma variable et si je recontre une lettre comme A, je la remplace par rapport à la valeur de ma table de correspondance.
soit $var2=451694
Le A et le M ont été remplacé par la valeur numérique 1 et 4.

Je pensais mettre en place une table de hachage, mais je n'ai trop d'idées sur sa contrusction.

Merci pour votre aide

[Lolo78]

Oui, tu peux construire un hash, par exemple comme suit:

Code :

1
2
3
4
5
6
7
my %transco = ( 
     A => 1,
     J => 1,
     B => 2,
     K => 2,
     # etc.
)

Ensuite, il suffit de splitter la variable en entrée et d'effectuer les substitutions:

Code :

1
2
3
4
my $var2 = "45A69M";
my @letters = split //, $var2;
my @letters_out = map { $_ = $transco{$_} if defined $transco{$_}; $_} @letters;
my $result = join "",  @letters;

(On peut faire plus concis et se passer des variables intermédiaires, par exemple en faisant pour les lignes 2 et 3:

Code :

my @letters_out = map { $_ = $transco{$_} if defined $transco{$_}; $_} split //, $var2;

De même pour le join. Mais peu importe, car on peut faire mieux.)


Il y a en fait bien plus simple, la fonction tr//:

Code :

1
2
3
my $var2 = "45A69M";
$var2 =~tr/AJBKSCLTDMUENV/11222333444555/;
print $var2; # imprime "451694"

[vince2005]

Bonjour,

Merci pour ta réponse. La fonction tr est encore plus simple à mettre en oeuvre.

Merci