假设我有类似 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";
最佳答案
只需修改正则表达式以匹配第一个字符:
#!/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
关于regex - Perl 简单正则表达式下划线分隔的大写单词,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25287009/