查看完整版本: 用perl执行就可以，用cqperl执行就没有任何输出结果呢？cqperl怎么调用perl的包呢？

用perl执行就可以，用cqperl执行就没有任何输出结果呢？cqperl怎么调用perl的包呢？

为什么这个程序我用perl执行就可以，用cqperl执行就没有任何输出结果呢？cqperl怎么调用perl的包呢？[code]use lib "c:\/perl\/site\/lib";
MsgBox("www.liu6545.bokee.com \n");
&Pid;
system
sub Pid{
use Win32::API;
        Win32::API->Import('kernel32','int GetCurrentProcessId()');
  $PID=GetCurrentProcessId();
   print "pid is $PID \n";

        }
sub MsgBox {
my($ipmsg) = @_;
use Win32;
Win32::MsgBox("$ipmsg"); [/code]

[[i] 本帖最后由 听雨屋檐人 于 2008-6-29 14:54 编辑 [/i]]