Perl中可以使用正則表達式和內置函數來計算字符串中空格的數量。
方法一：使用正則表達式匹配空格，然后使用數組上下文將匹配結果保存到數組中，最后返回數組的長度。
use strict;
use warnings;
my $str = "Hello world!";
my @spaces = $str =~ /\s/g;
my $count = scalar @spaces;
print "空格數量：$count\n";
方法二：使用內置函數tr計算字符串中特定字符的數量。在這里，我們將空格作為特定字符。
use strict;
use warnings;
my $str = "Hello world!";
my $count = $str =~ tr/ //;
print "空格數量：$count\n";
無論是使用正則表達式還是使用tr函數，都可以得到字符串中空格的數量。
