带下划线的数字

Question

如何将名称“Happyending-qwertt_asdf_mnb_ko_sdf”更改为第4个数字。012xx名称Happyending将始终保持不变，总之我必须计算“下划线”的数量并将其更改为计数。

感谢，

Answer 1

你可以使用transliteration

如果REPLACEMENTLIST是空的，SEARCHLIST被复制。后者对于计算类中的字符或压缩类中的字符序列很有用。

my $count = $string =~ tr/_//; 

Answer 2

如果你不想改变字符串，你可以使用这个

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf"; 

my $count =() = $string =~ m/_/g;