2006-07-04 hoge_mugeをHogeMugeにする Perl っていうのをやってくれるCPANモジュールとか無いかな。ワンライナーでやるならこんな感じ? my $str = q{hoge_muge}; print join q{} , map { ucfirst lc } split /_/ , $str; # HogeMuge で、逆の場合 my $str = q{HogeMuge}; print join q{_} , map { lc } $str =~ /([A-Z][a-z\d]*)/g; # hoge_muge これが限界?