悠悠博客 (讨论区存档) — 技术永无止尽，未来事在人为

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]