Print the string out in alternating upper and lowercase letters LiKe tHiS.

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Print the string out in alternating upper and lowercase letters LiKe tHiS. by karlgoethebier (Abbot) on Jan 25, 2015 at 19:46 UTC
Please see Alternate between upper and lowercase, lc and uc. Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply]
Re^2: Print the string out in alternating upper and lowercase letters LiKe tHiS. by AnomalousMonk (Archbishop) on Jan 25, 2015 at 20:07 UTC
I rather like one of the SO regex solutions, but without the odd-string-length problem: `c:\@Work\Perl>perl -wMstrict -le "my $s = 'like this'; print qq{'$s'}; ;; $s =~ s{ (.)(.?) }{\U$1\L$2}xmsg; print qq{'$s'}; " 'like this' 'LiKe tHiS'` [download] Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]
Re^3: Print the string out in alternating upper and lowercase letters LiKe tHiS. by BillKSmith (Monsignor) on Jan 25, 2015 at 21:11 UTC
Odd length is only a problem if you have to change the last character. For this case we can use: `use strict; use warnings; my $string = 'athis'; print $string =~ s/(.)(.)/$1.uc$2/egr;` [download] Bill	[reply] [d/l]
Re: Print the string out in alternating upper and lowercase letters LiKe tHiS. by Anonymous Monk on Jan 25, 2015 at 19:54 UTC
`$ perl -E 'say map { $c++ % 2 ? lc : uc } split //, "like this"' LiKe tHiS` [download]	[reply] [d/l]
Re: Print the string out in alternating upper and lowercase letters LiKe tHiS. by Anonymous Monk on Jan 25, 2015 at 19:28 UTC
Go to perlfunc and find what you're looking for	[reply]
Re^2: Print the string out in alternating upper and lowercase letters LiKe tHiS. by Anonymous Monk on Jan 25, 2015 at 19:46 UTC
thnx will did that and i think iv found a solution :D	[reply]
Re: Print the string out in alternating upper and lowercase letters LiKe tHiS. by hdb (Monsignor) on Jan 26, 2015 at 12:34 UTC
"LiKe tHiS" is NOT alternating upper and lowercase letters, there is a lower case "e" followed by a lower case "t". Or is there an upper case blank inbetween?	[reply]
Re^2: Print the string out in alternating upper and lowercase letters lIkE ThIs by Discipulus (Canon) on Jan 26, 2015 at 12:43 UTC
`perl -e "print map { $c++ %2 ? chr $_^' ' : chr $_ } unpack 'C', $ARG +V[0]" "like this"` [download] suffers the same problem of whitespace but is less redable... ;=) L There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]
Re^2: Print the string out in alternating upper and lowercase letters LiKe tHiS. by Anonymous Monk on Jan 26, 2015 at 13:22 UTC
A more robust solution if you like: `perl -CO -Mutf8 -E 'say map { /\P{Cased}/ ? $_ : $c++ % 2 ? lc : uc } "comme ça" =~ /(\X)/g'` [download] Of course, at this point we should perhaps consider ucfirst and fc...	[reply] [d/l]
Re^3: Print the string out in alternating upper and lowercase letters LiKe tHiS. by Anonymous Monk on Jan 26, 2015 at 14:22 UTC
(a typo; /^\P{Cased}/, of course, or else it can find these annoying combining marks...)	[reply]