remplacement d'une valeur par une autre

**hugoos** · 17/09/2005, 10h10

salut,

je voudrai créer un programme de cryptographie en perl (la crypto cesar)

Cest a dire que je remplace la lettre A par la lettre D, en fait javance de 3 lettre.

Ainsi le mot hugoos en crypter donnera kxjrrv.

Et je ne sais pas comment faire pour faire cela en perl.

Mais jai une idée, donc je ferai une table de hashage avec comme clés toutes les lettres de lalfabetet et comme valeurs lalfabet mais en avancant de 3 lettres. Et ensuite je met un texte dan une variable et je remplace les clés par les valeurs.

Ca irai ca? si oui comment faire ca ? (le bleme c'est ke je ne connai pas la function pour remplacer)

si non comment je pourrai faire ?

merci de maider !

**djibril** · 17/09/2005, 10h56

bon je resume, tu souhaiterai faire du remplacement de lettre par une autre. Toujours le même remplacement je suppose

.
Dans ce cas, les regex seront ton ami

Un petit exemple de script :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl -w
use strict;
use Carp;
 
my $chaine = "le mots hugoos";
my $chaine_crypte = $chaine;
$chaine_crypte =~ tr/hugo/kxjr/;
print "chaine : $chaine\n";
print "chaine crypte: $chaine_crypte\n";

==>

Code :

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

1
2
chaine : le mots hugoos
chaine crypte: le mrts kxjrrs

le h sera remplacé en k
le u en x
le g en j
le o en r
etc...

**hugoos** · 17/09/2005, 11h22

Merci de ta réponse mais jai encore une question : la comme je nai pas utiliser Tk la console se ferme 1/2 sec apres louverture, comment faire pour que la console ne se ferme pas toute seule, je ne me rapelle plus de la commande.

Il me semble ke cetait pause ( ) ; mai ca ne marche pas , alors c'est quoi ?

**djibril** · 17/09/2005, 11h26

je suppose que tu es sous windows et que tu clique sur l'icone pour tester tes scripts!!!
C'est pas correct, il faut ouvrir une fenetre dos, aller dans le repertoire où il y a ton script et taper perl toto.pl
la fenetre restera ouverte, tu verra le resultat de ton script!

**hugoos** · 17/09/2005, 12h34

merci ca marche tres bien, mais a la place de ca :

Code :

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

$chaine_crypte =~ tr/hugo/kxjr/;

je pourrai petetre mettre ca ,non ?

Code :

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

$chaine_crypte =~ tr/abcdefghijklmnopqrstuvwxyz/defghijklmnopqrstuvwxyzabc/;

Comme ca toutes les lettees de lalfabet seront crypté, non?

Et aussi ca veux dire koi "=~" et puis "tr" aussi ?

**GLDavid** · 17/09/2005, 14h16

Salut

Concernant ta première question, je te laisse le soin d'essayer.
Concernant la suite, ceci a été justement expliqué par Djibril dans notre FAQ.

@++