如何用perl

Question

您好我有一個字符串$字符串=「insertUnderScore」大寫字母前插入下劃線轉換成字符串; 現在我需要在大寫字母之前插入_。 輸出應該是這樣的：

$string = "insert_Unser_Score"; 

任何一個能幫助我嗎？

Answer 1

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

或者

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