• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            糯米

            TI DaVinci, gstreamer, ffmpeg
            隨筆 - 167, 文章 - 0, 評論 - 47, 引用 - 0
            數據加載中……

            perl 范圍操作符

            摘自:perldoc.perl.org

            當".."操作符返回bool型變量的時候,有如下幾個例子:
            while (<>) {
                print if (2 .. 6);
            }
            
            將會打印文件的 2 ~ 6 行。

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

            還可以這樣使用:
            # parse mail messages
            while (<>) {
                $in_header =   1  .. /^$/;
                $in_body   = /^$/ .. eof;
                if ($in_header) {
                    # do something
                } else { # in body
                    # do something else
                }
            } 
            

            下面的例子展示了".."和"..."的區別:
            @lines = ("   - Foo",
                      "01 - Bar",
                      "1  - Baz",
                      "   - Quux");
            foreach (@lines) {
                if (/0/ .. /1/) {
                    print "$_\n";
                }
            }
            
            這個程序只輸出Bar那行。如果將".."換成"...",則還會輸出Baz那行。

            下面展示".."操作符返回列表型變量時候的幾個例子:
            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];
            

            還可以用于單個字符:
            use charnames "greek";
            my @greek_small =  ("\N{alpha}" .. "\N{omega}");
            

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

            posted on 2011-08-24 17:00 糯米 閱讀(739) 評論(0)  編輯 收藏 引用 所屬分類: Perl

            色播久久人人爽人人爽人人片aV | 一级女性全黄久久生活片免费 | 四虎国产精品免费久久久| 久久福利青草精品资源站免费 | 国产一区二区精品久久岳| 欧美激情精品久久久久久| 午夜不卡久久精品无码免费| 99久久国产综合精品麻豆| 香蕉久久影院| 欧美精品一区二区精品久久 | 久久久久国产| 日产精品99久久久久久| 久久久99精品成人片中文字幕 | 精品99久久aaa一级毛片| 久久精品国产99国产精品亚洲| 伊人久久大香线蕉影院95| 久久综合亚洲色HEZYO社区| 国产成人精品久久一区二区三区av | 久久本道综合久久伊人| 囯产精品久久久久久久久蜜桃| 99久久国产综合精品网成人影院| 97久久国产综合精品女不卡| 久久丝袜精品中文字幕| 狠狠色综合久久久久尤物| 成人综合伊人五月婷久久| 无码超乳爆乳中文字幕久久 | 一本色道久久综合亚洲精品| 欧美日韩中文字幕久久久不卡| 国产一区二区三精品久久久无广告| 久久久久久久尹人综合网亚洲 | 91精品国产综合久久四虎久久无码一级| 亚洲国产另类久久久精品黑人 | 狠狠色综合网站久久久久久久高清| 久久精品国产亚洲Aⅴ香蕉| 99久久精品费精品国产一区二区| 97久久精品午夜一区二区| 国产精品无码久久综合| 久久国产精品久久| 久久久久久久综合日本亚洲 | 久久97精品久久久久久久不卡| 热久久这里只有精品|