Discussion :

[PadawanInPerl]

Bonjour,

Je poste par curiosité. Je n'utilise que très peu la fonction MAP et de manière basique.

je me demandais comment en très peu de ligne modifier une lettre dans une chaîne.

Pour l'exemple je souhaite mettre la lettre m en majuscule:

Code :

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

$chaine = "ceci est : ma chaine";

et donc avoir en sortie : "ceci est : Ma chaine"

j'ai essayé cela :

Code :

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

my @new  = ( map { uc($tab[11]) } (@tab = split('', $chaine))  );

Mais ça me renvoie plusieurs fois la lettre pointé en majuscule.

[djibril]

Bonjour,

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict;
use warnings;
 
my $chaine = "ceci est : ma chaine";
$chaine =~ s/m/M/g;
print $chaine,"\n";

[PadawanInPerl]

hello Djibril et bonne année,

je n'avais pas suffisamment précisé.

je ne connais pas la lettre.
mais je connais la place exacte et /ou j'ai un point de répère.

dans l'exemple c'est soit l'emplacement 11 soit le deuxpoints espace.

[djibril]

Bonne année aussi : $chaine =~ s/(.{11})(.)/$1\U$2/;

[PadawanInPerl]

Extra J'ai bien de poser la question et du coup je me refais un petit peu de formation sur les caractères spéciaux !

Merci et bonne journée

[Lolo78]

La méthode proposée par Djibril est bien meilleure, mais voici comment on pourrait utiliser un map dans un script uniligne:

Code :

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

1
2
3
 
$  perl -E 'my $c = 0; print join "",  map { $c++; $c == 12 ? uc $_ : $_;} split //, "ceci est : ma chaine";'
ceci est : Ma chaine