[仙子创造]用Perl写一套服务监控系统

michealzhai

不错，学习学习

nsnake

程序重在学习
LZ好意分享出来却有人在这JJYY打击别人，真不明白是什么意思
我承认有很多高手都很沉默，但如果他只看自己技术高超却不愿意伸手去帮助正在迷途的人，这样的高手又有什么意义呢

damofeixue

测试了一下仙子的程序, 运行client 报错

Can't locate object method "close" via package "listen_socket" (perhaps you forgot to load "listen_socket"?) at ./monitor_client.pl line 98.

     97     # 子进程里关闭监听socket
     98     listen_socket->close or die "[EMERG] can't close listen socket\n";
注释掉98行，不报错，程序运行也正常。不知道什么原因？ 有哪位测试过吗

gsging

原帖由 damofeixue 于 2007-4-26 15:37 发表
测试了一下仙子的程序, 运行client 报错

Can't locate object method "close" via package "listen_socket" (perhaps you forgot to load "listen_socket"?) at ./monitor_client.pl line 98.

     97     # 子进程里关闭监听socket
     98     listen_socket->close or die "[EMERG] can't close listen socket\n";
注释掉98行，不报错，程序运行也正常。不知道什么原因？ 有哪位测试过吗

我运行过,可以正常工作,这位朋友请再检查一下你的代码吧.
你发的代码就是你运行的代码么?
在listen_socket前面加个"$"号试试看.

damofeixue

哦，是我粗心了， 应该是 $listen_socket->close
多谢gsging    ^_^

yadi

很好，给我很大的参考意义

wgyzhechao

谢谢仙子姐姐。HOHO

csk2000

仙子真是好人啊！～

YTHTdeWo

谢谢分享

支持仙子~

有争议是正常的，不要人身攻击就是了！！！

yadi

兰花仙子 请问：
sub relaunch {
        chdir $rundir;
         unlink $pid_file;
         exec 'perl','monsvr';   ---------------->>>这个地方的monsvr　是什么意思呢？是server端的文件名吗？
}
还有
next if /^$/;
这个是什么意思呢？在网上没找到．

[ 本帖最后由 yadi 于 2008-7-31 23:01 编辑 ]