regex - Perl 简单正则表达式下划线分隔的大写单词

Question

假设我有类似 print_this_text_in_camel_case 的字符串，我想将第一个单词和下划线后的每个单词大写，所以结果将是 Print_This_Text_In_Camel_Case。以下测试不适用于第一个单词。

#!/usr/bin/perl

my $str = "print_this_text_in_camel_case";

$str =~ s/(_.)/uc($1)/ge;

print $str, "\n";

Answer 1

只需修改正则表达式以匹配第一个字符:

#!/usr/bin/perl

my $str = "print_this_text_in_camel_case";

$str =~ s/(_.|^.)/uc($1)/ge;

print $str, "\n";

将打印出:

Print_This_Text_In_Camel_Case