如何使用perl在大写字母之前将下划线插入字符串

Question

嗨我有一个String $ string =“insertUnderScore”; 现在我需要在大写字母之前插入_。 输出应该是这样的：

$string = "insert_Unser_Score";

任何人都可以帮助我吗？

Answer 1

my $string = "insertUnderScore";
$string =~ s/([A-Z])/_$1/g;
print $string;

或者

$string =~ s/(?=[A-Z])/_/g;