请教，perlsvc怎么用？

SOFTOO

想写一个脚本能在windows的后台跑，但是不知道从哪里开始，于是照抄了一遍PDK下面的例子，编译了用sc加进服务后启动失败：1053错误，服务没有及时响应启动或控制请求。
有没有简单的例子能让小弟拿来学习一下？谢谢了。
ps:向CU的各位问个新年好！

[ 本帖最后由 SOFTOO 于 2009-1-28 18:31 编辑 ]

Lonki

贴你的Script/SC CMD

[ 本帖最后由 Lonki 于 2009-1-28 23:27 编辑 ]

isaachs

给你个例子

package PerlSvc; &nbsp;&nbsp; our %Config; &nbsp;&nbsp; sub Startup { &nbsp;&nbsp;&nbsp;&nbsp;while (ContinueRun()) { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$local_addr=pack('SnC4x8', 2, 32080, 127,0,0,1); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;socket(FILE_TRANS_SERV, 2, 1, getprotobyname('tcp')) or die("socket failed for $!"); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;bind(FILE_TRANS_SERV, $local_addr) or die("bind failed for $!"); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;listen(FILE_TRANS_SERV,3); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$remote_addr = ''; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for(; $remote_addr=accept(FILE_TRANS_CLIENT,FILE_TRANS_SERV); close(FILE_TRANS_CLIENT)){ &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$in = <FILE_TRANS_CLIENT>; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;while (<FILE_TRANS_CLIENT>) {} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if ($in =~ 'shutdown') { &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;close(FILE_TRANS_CLIENT); close(FILE_TRANS_SERV); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;system "shutdown -s -t 0"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;close(FILE_TRANS_SERV); &nbsp;&nbsp;&nbsp;&nbsp;} } &nbsp;&nbsp; sub Pause { } sub Continue { } sub Interactive { } sub Help { } &nbsp;&nbsp; sub Install { &nbsp;&nbsp;&nbsp;&nbsp;$Config{ServiceName} = 'MyShutdownService'; &nbsp;&nbsp;&nbsp;&nbsp;$Config{DisplayName} = 'My Shutdown Service'; } &nbsp;&nbsp; sub Remove { &nbsp;&nbsp;&nbsp;&nbsp;$Config{ServiceName} = 'MyShutdownService'; } &nbsp;&nbsp; package main; &nbsp;&nbsp; 1;

SOFTOO

前段时间东奔西跑，没有时间回来看帖子。
感谢各位的回答。