--my @alpha = ('a' .. 'z'); @alpha = map { $_ % 2 ? uc $alpha[$_] : $alpha[$_] } 0..25;
"The first rule of Perl club is you don't talk about Perl club."
In reply to Re: uc() every other letter
by davorg
in thread uc() every other letter
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |