模块间如何共享常量？

s5unty

1^# s5unty 发表于 2007-09-06 16:27

变量可以用 Exporter ，但是常量呢？

我目前只知道在多个模块中分别定义相同的内容，如：
use constant {
HOW => 1 << 30,
TO => 1 << 29,
};

有没有干净一点的办法？谢谢！

nkcsx

2^# nkcsx 发表于 2007-09-06 17:24

_Const.pm

[Copy to clipboard] [ - ]

CODE:

package _Const;

use constant HOW_TO => 1;

1;

program:

[Copy to clipboard] [ - ]

CODE:

use _Const;

$sth = _Const::HOW_TO;

s5unty

3^# s5unty 发表于 2007-09-06 18:21

谢谢！
不过每次用常量前面都要加前缀，有点不爽