Re: Case conversion

Here's a simple one,

$string =~ tr/AEIOUaeiou/aeiouAEIOU/;
[download]

There are lots of ways to do it.

After Compline,
Zaxo

Comment on Re: Case conversion Download Code

Replies are listed 'Best First'.
Re^2: Case conversion by VSarkiss (Monsignor) on Sep 01, 2005 at 15:52 UTC
"A, E, I, O, U, and sometimes Y": `if (int rand(2)) { $string =~ tr/AEIOUaeiou/aeiouAEIOU/; } else { $string =~ tr/AEIOUYaeiouy/aeiouyAEIOUY/; }` [download] :-) Do not rebuke them with harsh words ... but rather lead them gently - with URLs - so that they may learn wisdom.	[reply] [d/l]
Re^2: Case conversion by inman (Curate) on Sep 01, 2005 at 15:54 UTC
Why type `y/a-zA-Z/A-Za-z/` when you can type `my $inverted = join '', map {$_ = uc eq $_ ? lc : uc} split //, $input;`	[reply] [d/l] [select]
Re^3: Case conversion by blazar (Canon) on Sep 01, 2005 at 16:22 UTC
Well, it was about vowels, also, many people use split like that, but I find that a simple match (in list context) is better suited. In this case, with reference to your example: `my $inverted = join '', map { whatever } $input =~ /./g;` [download]	[reply] [d/l]