perl - 如何使用perl在大写字母前插入下划线

Question

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

$string = "insert_Unser_Score";

任何人都可以帮助我吗？

Answer 1

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

或者

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