Perlで関数呼び出しする正規表現

今日のひとこと 2007-05-19 読了 1分

この記事は最終更新から 19 年以上たっています。内容が現在の状況と異なる可能性があります。現在の情報は最新の記事、Fess の記事をご覧ください。

user.home-info.postal.nameというのを、userHomeInfoPostalNameという感じに一括変換したいなっと思い考える。

$ perl -pe 'sub convert{uc $1;};s/\.([a-z])/&convert($1)/eg;s/-([a-z])/&convert($1)/eg;'

という感じでいいみたい。

関連記事