一行破(perl one liner)將中文化為駱駝文(CamelCase)
perl -MLingua::Han::PinYin -e 'print join "", map(ucfirst,
Lingua::Han::PinYin->new()->han2pinyin(
"一行破(perl one liner)將中文化為駱駝文(CamelCase)")) ;'
執行結果︰YiXingPo(PERL ONE LINER)JiangZhongWenHuaWeiLuoTuoWen(CamelCase)
有感於很多環境對中文還是不太友善，還是暫時用英文混過去吧…
原文出處 http://sigmundtzeng.blogspot.tw/2013/03/perl-one-linercamelcase.html

滿有趣的, 配合其他module應該大多unicode內的中文都能轉bopomofo了 感謝分享

推！