求教预定义常量

lanfd

UID: 8797
帖子: 79
积分: 181
在线时间: 8 小时

1^# lanfd 发表于 2007-03-20 17:56

求教预定义常量

求教预定义常量
我想在一个文件中预定义一些常量,比如
$ACI_CONNECTION_SEC_KEY1 = "ACIO SECKEY1";
$ACI_CONNECTION_SEC_KEY2 ="ACIO SECKEY2";
$ACI_CONNECTION_SEC_KEY3 = "ACIO SECKEY3";

然后在其他的一些pm中直接调用 $ACI_CONNECTION_SEC_KEY1 当常量用,
请问在perl中有什么好方法,能载入或者方便的继承到他们.
多谢大牛们帮忙.

knuoxy

UID: 33411
帖子: 1
积分: 2
在线时间: 10 分钟

2^# knuoxy 发表于 2007-03-20 23:48

可以直接用$Module::ACI_C.
可以直接用$Module::ACI_CONNECTION_SEC_KEY1
调用这个变量。

lanfd

UID: 8797
帖子: 79
积分: 181
在线时间: 8 小时

3^# lanfd 发表于 2007-03-21 17:22

谢谢楼上;

我现在只能用 @ISA = qw(Exporter) && set @EXPORT_OK 这个方法暂时解决了.

但是有什么方法能把 use Exporter 和 use constant相结合, 让需要的包都能载入一堆宏就好了.

knuolove

UID: 1939
帖子: 125
积分: 287
在线时间: 21 小时

4^# knuolove 发表于 2007-03-21 22:19

你说继承？--our @ISA=(.
你说继承？
our @ISA=();