如何在正则表达式中获得制表符匹配

Question

我有内容。

        Welcome     to      the     world.

我想从起点得到\ t匹配计数。不在内容标签内。

我试过这个但不行。它获得了所有标签计数。

 use strict;
    use warnings FATAL => 'all'; 
    my $cnt = qq(           welcome     to      the     world);

    my $number = () = $cnt =~ /(\t)/gi;
    print join("\n", $number);exit;

先谢谢了。请任何一个帮助。

Answer 1

您可以使用\G

进行锚定来解决问题

my $number = () = $cnt =~ /\G\t/g;

但使用

会更有效率

$cnt =~ /^\t*/;
my $number = $+[0];

Answer 2

我假设你想要字符串开头的制表符的匹配计数。

my $number = () = $cnt =~ /\G\t/g;