perl - 我应该如何使用 Perl 的标量范围运算符？

Question

标量“..”运算符的典型用法是什么？是否只选择文本块？

我自己有趣的例子:

sub get_next {
    print scalar($$..!$$), "\n";
}

get_next for 1 .. 5;  # prints numbers from 1 to 5
get_next for 1 .. 5;  # prints numbers from 6 to 10

Answer 1

人们似乎很难根据这里的问题了解它，但是，是的，我会说典型的用法是选择文本块，或者

while (<>) {
  print if /BEGIN/ .. /END/;
}

或者

while (<>) {
  print if 3 .. 5; # prints lines 3 through 5
}

后者是用于检查输入行号( $. )的语法糖

... if $. == 3 .. $. == 5;

这表明看起来很奇怪

#! /usr/bin/perl -l

for ($_ = 1; $_ <= 10; ++$_) {
  print if $_ == 4 .. $_ == 7;
}

上面程序的输出是

4567

If you have some sort of bracketing condition, test for it in subs:

for (...) {
  do_foo($x,$y,$z) if begin($x) .. end($z);
}