用下划线计数单词

Question

如何更改名称＆＃34; Happyending-qwertt_asdf_mnb_ko_sdf＆＃34;计数4。 名称Happyending将始终保持不变，简而言之，我必须计算＆＃34;下划线＆＃34;并将其改为计数。

谢谢，

Answer 1

您可以使用transliteration

  

如果REPLACEMENTLIST为空，则复制SEARCHLIST。后者对于计算类中的字符或压缩类中的字符序列非常有用。

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

Answer 2

如果您不想更改字符串，可以使用此

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf";

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