我是否应该使用Internals::SvREADONLY在Perl中创建只读变量?

C:\>perldoc Internals
No documentation found for "Internals".

不。

更具体地说,这个包之所以被命名为“内部”是有原因的。它不打算在堆芯外使用。它可以不经通知而改变。

这并不能完全回答你的问题,但我认为值得一提,这样其他人就不会像我一样经历同样的痛苦:不要使用 任何 如果您运行的Perl版本早于5.10.1,则为只读值。举个小例子:

{
    package Foo;
    sub foo { print "I'm in foo!\n"; }
}

use strict;
use warnings;
use Readonly;
Readonly my @classes => qw(Foo);

foreach my $class (@classes)
{
    # this dies with "Can't call method "foo" without a package or object reference"
    $class->foo;
}

由于我的XS fu不是很高,我不能很连贯地解释这里发生的事情(但是Devel::Peek在 $class 变量)。