7 lines
114 B
Perl
Executable file
7 lines
114 B
Perl
Executable file
#!/usr/bin/env perl
|
|
|
|
while (<STDIN>) {
|
|
s/([A-Z]+)([A-Z][a-z])/$1_$2/g;
|
|
s/([a-z\d])([A-Z])/$1_$2/g;
|
|
print lc;
|
|
}
|