perl - 如何理解 Perl 语句修饰符中的范围？

Question

Perl 支持 range in statement modifier 如下，解释器如何与 $. 一起处理它？我想知道规则解释器会处理它，因为这不是一个简单的 bool 表达式。

while (<>)
{
  print if 10 .. 20;
  print if /pat1/ .. /pat2/;
}

Answer 1

在标量上下文中使用时，它称为触发器运算符。

---

当它的操作数是常量时，它们与$.比较，所以

print if 10 .. 20;

是

的缩写

print if $. == 10 .. $. == 20;

触发器将从第 10 行开始返回 true，直到第 20 行。

$ perl -E'say for "a".."z"' |
   perl -ne'print if 10 .. 20;'
j
k
l
m
n
o
p
q
r
s
t

---

其余时间，操作数按原样求值，所以

print if /pat1/ .. /pat2/;

将从匹配 pat1 的行 ($_) 开始返回 true，直到匹配 pat2 的行 ($_) 。

$ perl -E'say for "z", "xpat1x", "x", "xpat2x", "z", "ypat1y", "y", "ypat2y", "z"' |
   perl -ne'print if /pat1/ .. /pat2/;'
xpat1x
x
xpat2x
ypat1y
y
ypat2y