糯米

摘自：perldoc.perl.org

當(dāng)".."操作符返回bool型變量的時(shí)候，有如下幾個(gè)例子：

while (<>) {
    print if (2 .. 6);
}

將會(huì)打印文件的 2 ~ 6 行。

同樣的：

next if (1 .. /^$/); # 跳過(guò)前面的空白行
s/^/> / if (/^$/ .. eof); # 在正文前面加上 > 

還可以這樣使用：

# parse mail messages
while (<>) {
    $in_header =   1  .. /^$/;
    $in_body   = /^$/ .. eof;
    if ($in_header) {
        # do something
    } else { # in body
        # do something else
    }
} 

下面的例子展示了".."和"..."的區(qū)別：

@lines = ("   - Foo",
          "01 - Bar",
          "1  - Baz",
          "   - Quux");
foreach (@lines) {
    if (/0/ .. /1/) {
        print "$_\n";
    }
}

這個(gè)程序只輸出Bar那行。如果將".."換成"..."，則還會(huì)輸出Baz那行。

下面展示".."操作符返回列表型變量時(shí)候的幾個(gè)例子：

for (101 .. 200) { print; }    # print $_ 100 times
@foo = @foo[0 .. $#foo];    # an expensive no-op
@foo = @foo[$#foo-4 .. $#foo];    # slice last 5 items

同樣可以用于字符串：

@alphabet = ("A" .. "Z");
$hexdigit = (0 .. 9, "a" .. "f")[$num & 15];
@z2 = ("01" .. "31");  print $z2[$mday];

還可以用于單個(gè)字符：

use charnames "greek";
my @greek_small =  ("\N{alpha}" .. "\N{omega}");

use charnames "greek";
my @greek_small =  map { chr } ord "\N{alpha}" .. ord "\N{omega}";