从Perl运行批处理文件（Windows中的Activestate perl）

Question

I have a Perl program which does something like below:

#!/usr/bin/env perl    
use strict;
use warnings;

my $exe = "C:\\project\\set_env_and_run.bat";

my $arg1 = "\\\\Server\\share\\folder1";    
my $arg2 = "D:\\output\\folder1";

my $cmd = "$exe \"$arg1\" \"$arg2\"";    
my $status = system("$cmd > c:\\tmp\\out.txt 2>&1");

print "$status\n";

I am calling this Perl code in an eval block. When invoked, i get the status printed as 0, but the batch file has not actually executed. What would be the reason for this? Any issue with the 'system' call coded above?

Thanks, Jits

Answer 1

我会说你应该像这样定义exe：

my $exe = "cmd.exe /c C:\\project\\set_env_and_run.bat";

Answer 2

You need to escape your backslashes inside of double quotes.

my $exe = "C:\\project\\set_env_and_run.bat";
...
my $status = system("$cmd > c:\\tmp\\out.txt 2>&1");

Answer 3

Are you sure the bat file isn't running. I have taken your code, fixed up the paths that don't exist on my machine. I get it to call the batch file

echo In myrun  1=%1  2=%2

And it writes the following to the output file

 In myrun  1="\\Server\share\folder1"  2="D:\output\folder1"

Answer 4

你可以用

 system ("start C:\\project\\set_env_and_run.bat");