プログラミングのお題スレ Part15

[402 デフォルトの名無しさん 2019/09/11(水) 00:10:49.73 ID:JxGfX2fh]

>>400 Perl5

use feature say;
for (<DATA>) {
　say map{ucfirst lc} /((?:\d_\d|[^_\s])+)/g;
}
__DATA__
snake_case
ODAI00_99_TEST
x_0_x
UpperCamelCase


実行結果
~ $ perl 15_400.pl
SnakeCase
Odai00_99Test
X0X
Uppercamelcase