Использование 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);