9 是否有Perl快捷方式来计算字符串中的匹配数？ 假设我有： my $string = "one.two.three.four"; 我应该如何处理上下文以获取模式找到匹配项的次数（3）？可以使用单线吗？ 我尝试了这个： my ($number) = scalar($string=~/\./gi); 我以为通过加括号$number，可以强制使用数组上下文，使用scalar可以得到计数。但是，我得到的只是1。 76 arrays regex perl perl4