Question

我正在尝试安装timeout_system模块。我在窗户上。当我尝试

cpanm System::Timeout

失败了。

当我尝试

时

cpan System :: Timeout

我得到了

C:\Windows\System32>cpan System:Timeout
CPAN: LWP::UserAgent loaded ok (v6.03)
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
CPAN: YAML loaded ok (v0.77)
CPAN: CPAN::SQLite loaded ok (v0.202)
Fetching with LWP:
http://cpan.strawberryperl.com/modules/02packages.details.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/03modlist.data.gz
Database was generated on Mon, 16 Sep 2013 20:14:09 GMT
Updating database file ...
Done!Running install for module 'System::Timeout'
Running make for C/CH/CHENGANG/System-Timeout-0.07.tar.gz
Fetching with LWP:
http://cpan.strawberryperl.com/authors/id/C/CH/CHENGANG/System-Timeout-0.07.tar.gz
CPAN: Digest::SHA loaded ok (v5.63)
Fetching with LWP:
http://cpan.strawberryperl.com/authors/id/C/CH/CHENGANG/CHECKSUMS
CPAN: Compress::Zlib loaded ok (v2.042)
Checksum for C:\Dwimperl\cpan\sources\authors\id\C\CH\CHENGANG\System-Timeout- 0.07.tar.gz ok
CPAN: Archive::Tar loaded ok (v1.80)
CPAN: File::Temp loaded ok (v0.22)
CPAN: Parse::CPAN::Meta loaded ok (v1.4401)
CPAN: CPAN::Meta loaded ok (v2.120351)
CPAN: Module::CoreList loaded ok (v2.57)

  CPAN.pm: Building C/CH/CHENGANG/System-Timeout-0.07.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for System::Timeout
Writing MYMETA.yml and MYMETA.json
cp lib/System/Timeout.pm blib\lib\System\Timeout.pm
C:\Dwimperl\perl\bin\perl.exe -MExtUtils::Command -e cp -- bin/timeout blib\script\timeout
pl2bat.bat blib\script\timeout
  CHENGANG/System-Timeout-0.07.tar.gz
  C:\Dwimperl\c\bin\dmake.EXE -- OK
Running make test
C:\Dwimperl\perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0,   'blib\lib', 'blib\arch')" t/*.t
t/00System-Timeout.t .. 1/9 'sleep' is not recognized as an internal or external  command,
operable program or batch file.
'sleep' is not recognized as an internal or external command,
operable program or batch file.
Can't find string terminator "'" anywhere before EOF at -e line 1.

#   Failed test 'system timeout exit code'
#   at t/00System-Timeout.t line 21.
Can't find string terminator "'" anywhere before EOF at -e line 1.

#   Failed test 'timeout timeout exit code'
#   at t/00System-Timeout.t line 27.
# Looks like you failed 2 tests of 9.
t/00System-Timeout.t .. Dubious, test returned 2 (wstat 512, 0x200)
Failed 2/9 subtests
t/01bin-timeout.t ..... '..' is not recognized as an internal or external command,
operable program or batch file.
t/01bin-timeout.t ..... 1/4 '..' is not recognized as an internal or external command,
operable program or batch file.

#   Failed test 'bin-timeout exit code'
#   at t/01bin-timeout.t line 15.
# Looks like you failed 1 test of 4.
t/01bin-timeout.t ..... Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/4 subtests

Test Summary Report
-------------------
t/00System-Timeout.t (Wstat: 512 Tests: 9 Failed: 2)
  Failed tests:  7, 9
  Non-zero exit status: 2
t/01bin-timeout.t   (Wstat: 256 Tests: 4 Failed: 1)
  Failed test:  4
  Non-zero exit status: 1
Files=2, Tests=13,  1 wallclock secs ( 0.09 usr +  0.05 sys =  0.14 CPU)
Result: FAIL
Failed 2/2 test programs. 3/13 subtests failed.
dmake.EXE:  Error code 129, while making 'test_dynamic'
   CHENGANG/System-Timeout-0.07.tar.gz
  C:\Dwimperl\c\bin\dmake.EXE test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
  reports CHENGANG/System-Timeout-0.07.tar.gz
Running make install
  make test had returned bad status, won't install without force

C:\Windows\System32>ppm Par-Packer

如果有人有想法，那会有所帮助。我没有太多使用Perl安装模块的经验，使用timeout_system非常好。

THX

更新：我最终选择了以下内容：

                my $pid = fork(); 

                if (!$pid) {
                    exec($command);            
                } 

                else {
                    sleep 100;                           
                    system("TASKKILL /F /T /PID $$");
                }

有效。

Answer 1

我不认为这会在没有变化的情况下在Windows上运行，因为Windows上的分叉与* NIX系统上的分支不同。通过CPAN安装和测试依赖模块IPC :: Cmd并在CPAN文档中运行示例脚本会产生以下结果......

c:\Perl>perl TEST_IPC_Cmd.pl
Set up gcc environment - 3.4.5 (mingw-vista special r3)
fetched webpage successfully: Continuing in background, pid 5244.
Output will be written to `wget-log.2'.

this is what the command printed:
Continuing in background, pid 5796.
Output will be written to `wget-log.3'.
run_forked is not available:  at TEST_IPC_Cmd.pl line 30.
IPC::Open3 available: 1.12IPC::Run available: Can capture buffer: 1
c:\Perl>

因为System :: Timeout只是IPC :: Cmd run方法的一个非常简单的包装器（也设置了timeout属性），所以IPC :: Cmd模块首先需要修改才能在Windows ::之前在Windows上正确运行超时将按预期工作。

在我的情况下，在安装IPC :: Cmd后手动安装System :: Timeout成功启动了一个可执行文件（Perl one liner）但在3秒后未能终止进程。

#Perl_AAA.pl
use System::Timeout qw(timeout);
print localtime()."\n";
timeout('perl -e "sleep(9); print \"Done\n\";"'); # invoke CORE::system, will not timeout exit
print localtime()."\n";
timeout("3", 'perl -e "sleep(9); print \"Done\n\";"'); # timeout exit after 3 seconds
print localtime()."\n";
print "Normal exit\n";
exit;

结果...

c:\Perl>
c:\Perl>perl TEST_AAA.pl
Thu Oct 17 12:51:22 2013
Done
Thu Oct 17 12:51:31 2013
Running [perl -e "sleep(9); print \"Done\n\";"]...
Done
Thu Oct 17 12:51:40 2013
Normal exit

c:\Perl>

问题安装System :: Timeout qw（timeout）;

1 个答案: