• [^] # Re: et en perl

    Posté par . En réponse au journal Esod mumixam !. Évalué à 3.

    Pareil (si je dis pas de bêtises), mais sans boucle :)

    #!/usr/bin/perl
use strict;
use warnings;
use open qw(:std :utf8);
while (<>) {
 s|(\p{Alphabetic})(\p{Alphabetic}*)|
 my ($first, $rest) = (1ドル,2ドル);
 ($first =~ /\p{upper}/)
 ? (ucfirst reverse $rest) . (lc $first)
 : (reverse $rest) . $first
 |xeg;
 print;
}