为什么 Time::HiRes::stat 会破坏列表下标？

Question

我不明白这是怎么回事。下面的8是从哪里来的？

Time::HiRes 提供了 stat 将时间扩展到高分辨率（我的系统支持）。

$ perl  -MTime::HiRes -e 'print +(stat("foo"))[8], "\n"'              # V1
1322915623
$ perl  -MTime::HiRes=stat -e 'print +(stat("foo"))[8], "\n"'         # V2
8
$ perl  -MTime::HiRes=stat -e '@a = stat("foo"); print $a[8], "\n"'   # V3
1322915623

该特定文件没有高分辨率时间戳，但这并不是秘密：秘密是 V2，它打印 8。事实上，它总是在方括号中打印数字。

显而易见的答案，它的解析方式不同，似乎并不正确：

$ perl -MO=Deparse -MTime::HiRes -e 'print +(stat("foo"))[8], "\n"'         # V1
use Time::HiRes;
print((stat 'foo')[8], "\n");
-e syntax OK
$ perl -MO=Deparse -MTime::HiRes=stat -e 'print +(stat("foo"))[8], "\n"'    # V2
use Time::HiRes (split(/,/, 'stat', 0));
print((stat 'foo')[8], "\n");
-e syntax OK

它们解析相同（除了使用 Time::HiRes 的不同选项）。

如果我以类似的语法使用我自己的函数，它工作得很好，即使我从函数中返回一些愚蠢的东西，我也无法得到“错误”的答案：

$ perl -e 'sub bar() { return qw(a b c d e f g h i j) }; print +(bar)[8], "\n"'
i
$ perl -e 'sub bar() { return undef }; print +(bar)[8], "\n"'

$

这是 Debian 的 perl 包，版本 5.14.2-5。我使用 5.10.1-17squeeze2 得到相同的结果。

上面的 V2 如何产生 8？ 我是否在某种程度上误解了 Perl 语法，或者我只需要提交错误报告？

编辑：正如@cjm所说，这是一个错误。据报告称，该问题已在 Time-HiRes-1.9725 中修复。

Answer 1

这绝对是一个错误，尽管我不确定它是在 Perl 核心中还是在 Time::HiRes 中。我在 Gentoo 上使用 Perl 5.14.2（以及 5.8.9 和 5.10.0）得到了相同的结果。您是否注意到下标中输入的内容并不重要？

$ perl -MTime::HiRes=stat -e 'print +(stat("foo"))[215.4], "\n"' 
215.4
$ perl -MTime::HiRes=stat -e 'print +(stat("foo"))["bar"], "\n"'
bar

我可能会在 Time::HiRes 中报告第一的。

注意：虽然它们解析相同，但它们确实生成不同的操作码（由于调用内置子程序和用户定义子程序之间的差异）：

$ perl -MO=Concise -MTime::HiRes -e 'print +(stat("foo"))[8], "\n"' 
c  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 271 -e:1) v:{ ->3
b     <@> print vK ->c
3        <0> pushmark s ->4
9        <2> lslice lK/2 ->a
-           <1> ex-list lK ->6
4              <0> pushmark s ->5
5              <
gt; const(IV 8) s ->6
-           <1> ex-list lK ->9
6              <0> pushmark s ->7
8              <1> stat lK/1 ->9
7                 <
gt; const(PV "foo") s ->8
a        <
gt; const(PV "\n") s ->b
-e syntax OK

$ perl -MO=Concise -MTime::HiRes=stat -e 'print +(stat("foo"))[8], "\n"' 
e  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 271 -e:1) v:{ ->3
d     <@> print vK ->e
3        <0> pushmark s ->4
b        <2> lslice lK/2 ->c
-           <1> ex-list lK ->6
4              <0> pushmark s ->5
5              <
gt; const(IV 8) s ->6
-           <1> ex-list lK ->b
6              <0> pushmark s ->7
a              <1> entersub[t1] lKS/TARG,1 ->b
-                 <1> ex-list lK ->a
7                    <0> pushmark s ->8
8                    <
gt; const(PV "foo") sM ->9
-                    <1> ex-rv2cv sK ->-
9                       <
gt; gv(*stat) s ->a
c        <
gt; const(PV "\n") s ->d
-e syntax OK

Answer 2

我从未使用过命令行执行，所以我谈到了它的工作原理。

在应该返回数组的函数上使用下标时，我看到了意想不到的结果。

$y = localtime()[5];    # failed for me (I forget just how)

但这

$y = (localtime())[5];  # worked fine

向我表明 Perl（我的实现）中存在错误。更好的测试可能是在实际脚本中尝试：

use Time::HiRes qw(stat);

my @x = stat("foo");

print $x[8],"\n";

我在 WinXP 上使用 ActiveState 的 Perl，所以我的结果可能不一样。尽管如此，我认为用非常简单的代码尝试一下看看它的作用可能会很有用。