perl - Perl 5.12 中最有趣/最有用的新东西是什么？

Question

我记得很快就收养了given .. when , say , // ，以及 Perl 5.10 出现时的智能匹配运算符。

你认为 Perl 5.12.0 引入的最有用的修复和特性是什么？

Answer 1

while( readdir $dir ){}现在更像是 while( readline $file ){} .

perl -MO=Deparse -e'while( readline $f ){}'

while (defined($_ = <$f>)) {
    ();
}

<$f>与 readline $f 相同

这是 v5.11.2 之前的 Perl 版本的处理方式 while( readdir $dir ){}

perl-5.10 -MO=Deparse -e'while( readdir $d ){}'

while (readdir $d) {
    ();
}

值得注意的是，如果存在名称为 0的文件或目录，上述操作将无法正常工作。 .这无关紧要，因为无论如何它都没有做任何有用的事情。

在 Perl 版本 5.11.2 中添加了一个补丁，使其更符合 while( readline $file ){...} 的处理方式。 .

perl-5.12.0 -MO=Deparse -e'while( readdir $d ){}'

while (defined($_ = readdir $d)) {
    ();
}

我要注意的是 我是提供那个补丁的人。这是我尝试在 Perl 核心中修复的第一件事。所以这也是我写的第一个补丁，它进入了 Perl。