如何使用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;