相关疑难解决方法(0)

假设我有:

my $string = "one.two.three.four";

我应该如何使用上下文来获得模式找到匹配的次数(3)？这可以使用单线程来完成吗？

我试过这个:

my ($number) = scalar($string=~/\./gi);

我认为通过括号括起来$number,我会强制数组上下文,并且通过使用scalar,我得到了计数.但是,我得到的只是1.