免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1815 | 回复: 3

请perl的前辈们帮助我!!谢谢!!! [复制链接]

论坛徽章:
0
发表于 2004-05-28 10:17 |显示全部楼层
本人对perl刚开始学,现在很苦恼!老板要求我写一个脚本,功能大概是这样的:
1。能够通过运行脚本打开某个。exe文件(启动后就是进程)。
2。对这个进程的状态进行判断,看这进程是否在运行!如运行就返回依据表示成功的语句,如不运行则执行另一个脚本!
希望您 :能帮我这个忙,我会不胜感激!谢谢!!

论坛徽章:
0
发表于 2004-05-30 19:42 |显示全部楼层

请perl的前辈们帮助我!!谢谢!!!

没人告诉我吗?版主呢?您能告诉我吗?谢谢了!

论坛徽章:
0
发表于 2004-05-30 21:08 |显示全部楼层

请perl的前辈们帮助我!!谢谢!!!

我给你给例子好了,首先请安装Win32:rocess::Info这个模块,可以在CPAN找到,也可以用ActivePerl自带的ppm安装Win32-Process-Info
,我给出的这个例子在运行后会自动运行记事本notepad.exe,然后循环判断进程列表里有没有notepad.exe,如果有,就打印notepad is running,否则打印notepad is not running并且运行另外一个程序(这里的另外一个程序也设成了notepad.exe)

  1. #!/usr/bin/perl
  2. #cnhackTNT@perlchina.org
  3. use Win32::Process::Info;

  4. $execer='notepad.exe';
  5. $otherProcess=$execer;
  6. system('start '.$execer);
  7. $pi = Win32::Process::Info->;new ();
  8. while(1){
  9.         foreach $proc ($pi->;GetProcInfo ()) {
  10.                 if($$proc{'Name'} eq $execer){
  11.                         $runORnot=1;
  12.                         last;
  13.                 }else{
  14.                         $runORnot=0;
  15.                 }
  16.         }
  17.         if($runORnot){
  18.                 print "$execer is running....\n";
  19.         }else{
  20.                 print "$execer in not running,I will call process $otherProcess\n";
  21.                 system('start '.$execer);
  22.         }
  23. }
复制代码

论坛徽章:
0
发表于 2004-05-31 11:40 |显示全部楼层

请perl的前辈们帮助我!!谢谢!!!

十分谢谢你,我是发自内心的!谢谢!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会 限时7.5折

【架构革新 自主可控】2020年6月4日~6日第十一届中国数据库技术大会将在北京隆重召开。

大会设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。

http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP