windows - Perl:使用 cygwin perl 运行 perl 脚本时找不到启动命令 (Windows)

Question

下面是setup.pl的代码:

my  $fileToCopy= "ewq_file.bat";
my $destination = $ENV{PREPARE};   ### $destination = C:\Windows
if ( -f "$destination\\$fileToCopy" ) {
    print "Triggering $destination\\$fileToCopy\n";
    system("start $destination\\$fileToCopy"); 
}

触发时:C:\cygwin\bin\perl.exe setup.pl

输出:

Triggering C:\Windows\ewq_file.bat
sh: start: command not found

如何解决这个问题？

Answer 1

您正在 unix 模拟环境中使用 Perl 的 unix 版本。因此，system 使用sh，除非您另有说明。但是 start 是一个 cmd 内置函数。

system( "cmd", "/c", "start", "", "$destination\\$fileToCopy" );

die( "Can't launch shell: $!\n"                   ) if $? == -1;
die( "Child killed by signal ".( $? & 0x7F )."\n" ) if $? & 0x7F;
die( "Child exited with error ".( $? >> 8 )."\n"  ) if $? >> 8;