一行破(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)

有感於很多環境對中文還是不太友善，還是暫時用英文混過去吧…

同場加映︰將url encode的字串decode

perl  -MURI::Escape -e 'print  uri_unescape(uri_unescape($ARGV[0]));' "%25E8%2580%2583%25E8%25A9%25A6%25E6%2587%2589%25E8%2580%2583%25E9%25A0%2588%25E7%259F%25A5"

執行結果︰(自己試試看吧)