Perl 用下划线数词

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

谢谢，

您可以使用

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

你可以用

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

你可以用

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

你可以用

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

---

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

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf";

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

---

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

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf";

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

---

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

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf";

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

---

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

my $string = "Happyending-qwertt_asdf_mnb_ko_sdf";

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

---

---

美元=“Happyending-qwertt_asdf_mnb_ko_sdf”；打印tr//；$祝你快乐；打印tr//；$祝你快乐；打印tr//；$祝你快乐；打印tr/

tr//

总是比

m//

@DaveCross更有效是的，但在这种情况下，我不认为有任何明显的区别：-）好吧，你不知道代码会执行多少次，所以我不确定你真的有什么可以相信的：-）DaveCross我们都不知道，只有提问者知道。

tr///

总是比

m///

@DaveCross更有效是的，但在这种情况下，我不相信有任何明显的区别：-）好吧，你不知道代码会执行多少次，所以我不确定你的信念是否真的有太多的依据：——）@DaveCross我们都不知道，只有提问者知道。

tr//

总是比

m//

@DaveCross更有效是的，但在这种情况下，我不相信有任何明显的区别：——）好吧，你不知道代码会被执行多少次，所以我不确定你是否真的有什么可以作为你的信念的基础：-）@DaveCross没有人知道，只有询问者知道。

tr///

总是比

m///

@DaveCross更有效是的，但在这种情况下，我不认为有任何明显的区别：-）好吧，你不知道代码将被执行多少次，所以我不确定你是否真的有太多的依据：-）@DaveCross我们都不知道，只有询问者知道。