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

前端之家收集整理的这篇文章主要介绍了我应该如何使用Perl的标量范围运算符?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
什么是标量“..”运算符的典型用法?它只是选择文本块吗?

我自己有趣的例子:

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

解决方法

人们似乎很难根据这里的问题了解它,但是,是的,我会说典型的用法是选择文本块,或者用
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;
}

以上程序的输出

4
5
6
7

如果您有某种包围条件,请在子测试中测试它:

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

猜你在找的Perl相关文章