Discussion :

[AnkyFive]

Bonjour,

J'ai la regexpr suivante qui rempace les - qui sont entre un chiffre et une lettre en _ :

$newfile =~ s/^([0-9][0-9])-([a-zA-Z])/$1_$2/g;

et je voudrais que dans la chaine finale la lettre (le $2) soit mit en majuscule...

je sais pas trop comment faire ça, si quelqu'un pouvait me filer un coup de main, merci

[Woufeil]

Bonjour.

Au pire tu fais deux regex, celle ci et une qui met ton caractère en majuscule, et ça marche très bien
En une seule instruction, il doit y avoir un moyen, mais comme ça je vois pas...

[AnkyFive]

merci pour ta réponse, mais on fait comment :

Au pire tu fais deux regex, celle ci et une qui met ton caractère en majuscule

[Arioch]

merci pour ta réponse, mais on fait comment :

Quelqu'un (Jedai le pro du pro ) donnera probablement réponse plus courte mais voici comment je procéderais (j'aime bien décomposer les trucs) :

Code :

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

1
2
3
4
5
6
 
if ($newfile =~ /^([0-9][0-9])-([a-zA-Z])/) {
    my ($a, $b) = ($1, $2);
    $b =~ tr/a-z/A-Z/;
    $newfile = "$a_$b"; 
}

[Woufeil]

Tu fais une substitution

Code :

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

$newfile =~ s/[a-z]/[A-Z]/g;

Cela fonctionne. Mais toute ta chaîne sera mise en majuscule, orpeut être que tu ne veux pas tout mettre en majuscule.
Dans ce cas donne nous une structure type de la chaîne newfile.

[AnkyFive]

merci, oui je voudrais que le premier caractère en majuscule...

Quelqu'un (Jedai le pro du pro ) donnera probablement réponse plus courte mais voici comment je procéderais (j'aime bien décomposer les trucs)

ah oui ? et il se trouve ou ce Jedai ? il habite dans une grotte en haut d'une montagne difficilement accessible ?!!

[Woufeil]

merci, oui je voudrais que le premier caractère en majuscule...

Dans ce cas, utilise la solution de Arioch, elle ne transformera que ce que tu veux normalement

ah oui ? et il se trouve ou ce Jedai ? il habite dans une grotte en haut d'une montagne difficilement accessible ?!!

Non, en fait il est difficille de le reconnaître, il se fait passer pour un petit vieux un peu rabougrit du cerveau quand tu le vois au début

[djibril]

allez cadeau :

Code :

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

1
2
3
4
 
my $toto = "toto-tutu";
$toto =~ s/(\w+)-(\w+)/$1_\U$2/gi;
print $toto;

[AnkyFive]

super merci ! je vais essayer ASAP

[djibril]

sinon pour mettre en minuscule/majuscule le premier caractere d'une chaine, c'est : ucfirst($chaine)/lcfirst($chaine)
Bon courage

[rcageot]

allez cadeau :

Code :

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

1
2
3
4
 
my $toto = "toto-tutu";
$toto =~ s/(\w+)-(\w+)/$1_\U$2/gi;
print $toto;

salut djibril, je n'avais jamais utilisé le \U mais je viens de voir que celui ci apparement a besoin de \E pour lui indiquer la fin de modification de la casse

donc si le but n'est de mettre que le 1er caractère du 2ème match en majuscule
ta solution ne marche pas non ?
et le résultat est :
toto_TUTU ?

la ligne doit donc être
$toto =~ s/(\w+)-(\w+)/$1_\u$2/gi;

et donc pour l'affaire qui nous concerne
$newfile =~ s/^([0-9][0-9])-([a-zA-Z])/$1_\u$2/g;

ref : une de mes bibles sur perldoc : http://perldoc.perl.org/perlreref.html

Code :

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

1
2
3
4
5
6
7
 
   \l  Lowercase next character
   \u  Titlecase next character
   \L  Lowercase until \E
   \U  Uppercase until \E
   \Q  Disable pattern metacharacters until \E
   \E  End case modification

[djibril]

Bon j'avais pas tout compris, si tu veux uniquement mettre en majuscule le premier caractere de la chaine 2, voici une façon d'ecrire :

Code :

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

1
2
3
4
 
my $toto = "toto-tutu";
$toto =~ s/(\w+)-(\w)(\w+)/$1_\U$2\E$3/gi;
print $toto,"\n"; #=> toto_Tutu

[AnkyFive]

oui super le \U fonctionne, merci beaucoup

[djibril]

oublie pas de mettre resolu si c'est ok!!