Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

2Re: bitwise string operator question

by jeffa (Bishop)
on Aug 07, 2003 at 14:05 UTC ( #281898=note: print w/replies, xml ) Need Help??

in reply to Re: bitwise string operator question
in thread bitwise string operator question

Thanks Abigail-II, i just learned something cool for the day:
perl -le'sub uc{@_[0]^" "};print uc($_)for(a..z)'
Can't believe i hadn't picked that up before now ...

DOH! Heh, my original one-liner did the bitwise XOR in a map ... i should know better than that. :P Let's try that again:

perl -le'sub flip{@_[0]^" "};print flip($_)for(a..z)'
There, no ambiguity now. But ... the saddest part is that i learned this trick too late. My C++ Lab students last semester had to write a function that would flip case ... i really wish i could have blown their minds with this one. ;)


(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re: bitwise string operator question
by Abigail-II (Bishop) on Aug 07, 2003 at 15:05 UTC
    That calls the buildin uc. You might want to call ::uc instead. But beaware, it doesn't uppercase! It flips the case, uppercase to lowercase, and lowercase to uppercase.


Re: 2Re: bitwise string operator question
by Koschei (Monk) on Aug 08, 2003 at 07:15 UTC
    Also be aware that, if you're using locales and such, uc() is aware how to transform accented characters and will DTRT.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://281898]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (16)
As of 2016-10-24 15:09 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (308 votes). Check out past polls.