我不知道这是怎么回事。下面的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
它们相同(而不是
use 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中修复。
最佳答案
尽管我不确定它是在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
我大概先report it in 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 <$> const(IV 8) s ->6
- <1> ex-list lK ->9
6 <0> pushmark s ->7
8 <1> stat lK/1 ->9
7 <$> const(PV "foo") s ->8
a <$> 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 <$> 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 <$> const(PV "foo") sM ->9
- <1> ex-rv2cv sK ->-
9 <$> gv(*stat) s ->a
c <$> const(PV "\n") s ->d
-e syntax OK
关于arrays - 为什么Time::HiRes::stat中断列表下标?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/8367789/