有没有什么能做到类似C条件编译的

addf

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

1^# addf 发表于 2008-02-14 19:35

有没有什么能做到类似C条件编译的

情况是这样的，用到了一个平台相关的模块里面的函数，但是在其他平台编译时如果用use if屏蔽掉平台相关模块的话会报“BEGIN not safe after errors--compilation aborted”，实际上平台相关的代码运行时做了判断不会被执行，不存在这种风险。如果有条件编译的话，直接屏蔽掉那块代码应该就可以了。

beckheng

UID: 3408
帖子: 87
积分: 200
在线时间: 10 小时

2^# beckheng 发表于 2008-02-18 00:00

用
if ($con){
eval("use PPP");
}else{
eval("use PP");
}
试试.

addf

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

3^# addf 发表于 2008-02-18 18:32

还是不行。错误依旧。

@zheng

UID: 17460
帖子: 26
积分: 59
在线时间: 1 小时

4^# @zheng 发表于 2008-02-18 21:06

BEGIN{

    if( index($^O, 'Win') >= 0 ) {#MSWin32系统

        require Win32::Module;
        import  Win32::Module;
    } else {#其它非win32系统

        require 相关模块;
        import  相关模块;
    }
}

addf

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

5^# addf 发表于 2008-02-19 16:51

thx，这样弄一下可以了。我思路有问题，局限在编译时的use了。