使用Perl提取字符串中的匹配数

Question

如何找出此字符串中的磁盘数？

$str='disk 0_1 0_2 0_3';

在此$str中，磁盘数为3。

Perl如何输出此字符串中有多少个磁盘？

谢谢！

Answer 1

my $count = () = $str =~ /\d+_\d+/g;

Answer 2

尝试：

$disk_count = scalar( split ' ', $str) - 1;

Answer 3

my @result = $str=~ m/\d_\d/g;
print "Number of disks found : ", scalar(@result), "\n"; 

Answer 4

my $counter = 0;
$counter++ while ($str =~ m/\d+_\d+/g);