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

Question

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

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

在这个$str中，磁盘的数量是3。Perl

如何输出这个字符串中有多少个磁盘呢？

谢谢你！

Answer 1

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

Answer 2

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

Answer 3

尝试：

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

Answer 4

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