Discussion :

[YanK]

Bonjour,
J'aimerais changer chaque caractère d'une chaîne. Pour cela j'ai fait ce code:

Code :

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

1
2
3
4
5
6
 
  my $MaChaine = '25785498789548';
  for ($i=1; $i<=14; $i++) {
    $MaChaine [$i]=chr(ord($MaChaine [$i])+22);
  }
  print $MaChaine ;

Mais ça ne marche pas, car à la fin je récupère la chaîne de départ sans modification.
Avez une idée d'où pourrait venir mon problème?
Merci d'avance pour l'aide que vous pourrez m'apporter.

[GLDavid]

Salut

Mmm, j'ai pas trop regardé ton code. Mais je te conseille de coir sur notre FAQ plus précisément cette partie. Je suis certain que ça t'aidera.

@++

[vodevil]

Tu veut obtenir quoi comme résultat a la fin de ton programme ?

[YanK]

GLDavid > Je viens de regarder ce que tu m'as conseillé, mais je ne trouve pas comment changer un caractère par rapport à sa position.
Il y a bien comment changer un caractère par rapport à sa valeur mais pas suivant la position (dans mon exemple $i).
Je suis désolé je passe de Delphi à Perl et j’ai du mal à faire la transition. Je passe mon temps à chercher les fonctions que j’utilisais dans Delphi pour les utiliser dans perl.

[YanK]

vodevil > J'aimerais obtenir ma chaîne de départ avec chaque caractère ayant leur code ascii incrémenté de 22. Pour en fait me retrouver avec des lettres plutôt que des chiffres.

[vodevil]

Voici une partie de la solution qui fonctionne sauf que le premier caractères en l'occurence ici 2 est sacrifié , mais je vais te trouver sa t'inquiète voici le new soft

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
 
  $MaChaine = '25785498789548';
  for $T( $MaChaine ) {
  @MaChaine2 = split //, $MaChaine;
  }
 
  for ($i=1; $i<=14; $i++) { 
    @MaChaine2[$i]=chr(ord(@MaChaine2 [$i])+22); 
  } 
  print @MaChaine2;

Ce programme retourne le résultat suivant

2KMNKJONMNOKJN

[YanK]

Cool merci et pour le "2" il doit falloir commencer la boucle avec $i=0.
Je vais tester ca

[vodevil]

Oki

[YanK]

Ca a l'air de marcher, merci beaucoup.
C'est vrai que je n'avais pas pensé à faire un split sur du vide pour séparer chaque caractère.
Changer de langage c'est difficile car on garde les vieilles habitudes.

[Jedai]

Personellement, soit j'utiliserais substr() :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl 
use strict;
use warnings;
 
my $MaChaine = '25785498789548'; 
foreach my $i ( 0.. (length($MaChaine) - 1) ){ 
    substr( $MaChaine, $i, 1, chr(ord( substr( $MaChaine, $i, 1 ) )+22); 
} 
print $MaChaine;

soit je ferais directement un map() et join() après le split() :

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl 
use strict;
use warnings;
 
my $MaChaine = '25785498789548'; 
$MaChaine = join('', (map {chr(ord( $_ )+22)} (split //, $MaChaine) ) ); 
print $MaChaine;

C'est plus perlien.

--
Jedaï

[YanK]

Jedai > Merci, c'est vrai que la deuxième méthode allège pas mal le code.

[nematoad]

je ferais directement un map() et join() après le split() :

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl 
use strict;
use warnings;
 
my $MaChaine = '25785498789548'; 
$MaChaine = join('', (map {chr(ord( $_ )+22)} (split //, $MaChaine) ) ); 
print $MaChaine;

C'est plus perlien. :D

--
Jedaï

à perlien je dis perlien et demi :)

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl -wl
use strict;
use warnings;
 
my $MaChaine = '25785498789548';
$MaChaine =~ tr/0-9/F-O/;
print $MaChaine;

N

[YanK]

lol merci à tous.
Je pense que là j'ai assez de choix.
Je viens de changer pour utiliser la solution de nematoad.

[scifire]

Code :

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

1
2
3
 
$_ = "123456789";
s/([0-9])/chr(ord($1)+22)/ge;