Camel case and snake case: Difference between revisions

sub toCamelCase (Str $camelCaseStringCamelCaseString is copy) {

$camelCaseStringCamelCaseString.=trim;

return $camelCaseStringCamelCaseString if $camelCaseStringCamelCaseString.contains: / \s | '/' /;

$camelCaseStringCamelCaseString.=subst: / ('_') (\w) /, {$1.uc}, :g;

say "{' ' x 3230}to_snake_case";

printf "%35s33s ==> %-35ss\n", $_, .&to_snake_case for @tests;

say "\n{' ' x 3230}toCamelCase";

printf "%35s33s ==> %-35ss\n", $_, .&toCamelCase for @tests;

say "\n{' ' x 3230}to-kabab-case";

printf "%35s33s ==> %-35ss\n", $_, .&to-kebab-case for @tests;</lang>

<pre> to_snake_case

snakeCase ==> snake_case

snake_case ==> snake_case

variable_10_case ==> variable_10_case

variable10Case ==> variable_10_case

ɛrgo rE tHis ==> ɛrgo rE tHis

hurry-up-joe! ==> hurry-up-joe!

c://my-docs/happy_Flag-Day/12.doc ==> c://my-docs/happy_Flag-Day/12.doc

spaces ==> spaces

toCamelCase

snakeCase ==> snakeCase

snake_case ==> snakeCase

variable_10_case ==> variable10Case

variable10Case ==> variable10Case

ɛrgo rE tHis ==> ɛrgo rE tHis

hurry-up-joe! ==> hurry-up-joe!

c://my-docs/happy_Flag-Day/12.doc ==> c://my-docs/happy_Flag-Day/12.doc

spaces ==> spaces

to-kabab-case

snakeCase ==> snake-case

snake_case ==> snake-case

variable_10_case ==> variable-10-case

variable10Case ==> variable-10-case

ɛrgo rE tHis ==> ɛrgo rE tHis

hurry-up-joe! ==> hurry-up-joe!

c://my-docs/happy_Flag-Day/12.doc ==> c://my-docs/happy_Flag-Day/12.doc

spaces ==> spaces</pre>