regex - 如何计算 Perl 中字符串开头的空格数？

Question

如何计算 Perl 中字符串开头的空格数？

我现在有:

  $temp = rtrim($line[0]);
  $count = ($temp =~ tr/^ //);

但这给了我所有空间的计数。

Answer 1

$str =~ /^(\s*)/;
my $count = length( $1 );

如果你只想要实际的空格(而不是空格)，那么那就是:

$str =~ /^( *)/;

编辑:原因 tr不起作用，因为它不是正则表达式运算符。你在做什么 $count = ( $temp =~ tr/^ // );正在替换 ^ 的所有实例和 与它自己(请参阅下面的 cjm 评论)，然后计算您已完成的替换次数。 tr没有看到 ^作为“嘿，这是字符串伪字符的开头”，它认为它是“嘿，这是一个 ^”。