perl - 在 Perl 中，如何在 'use strict' 打开时将 Tie::IxHash 与字典一起使用？

Question

我正在尝试创建一个散列，以保留添加键的顺序。在 this page 的“创建哈希并保留加法顺序”部分下，它给出了一个修改哈希的片段，所以当你做 keys 时它按照您将它们插入散列的顺序返回 key 。

当我执行以下代码段时:

use strict;
our %foo;
use Tie::IxHash;
tie (%foo, Tie::IxHash);

它失败了:

Bareword "Tie::IxHash" not allowed while "strict subs" in use at /nfs/pdx/home/rbroger1/tmp.pl line 4.
Execution of /nfs/pdx/home/rbroger1/tmp.pl aborted due to compilation errors.

我怎样才能让 Tie::IxHash 在 use strict 时工作是吗？

dsolimano 的例子奏效了。

use strict;
our %foo;
use Tie::IxHash;
tie (%foo, "Tie::IxHash");

$foo{c} = 3;
$foo{b} = 2;
$foo{a} = 1;

print keys(%foo);

打印:

cba

没有 tie...Tie::IxHash线它是

cab

Answer 1

tie 的第二个参数是一个字符串，所以试试

use strict;
our %foo;
use Tie::IxHash;
tie (%foo, 'Tie::IxHash');