一行破(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了 感谢分享

推！