我想自动一个接一个地启动几个Perl脚本(虽然在技术上并行)。
很容易创建一个例程,其中脚本生成一个简单的.BAT文件,仅包含下一个Perl脚本,例如:
write_file("Z.bat", "$myfile_nextnumber.pl\n");
system "start Z.bat";
并且您可以在单独的窗口中获得每个脚本的良好输出。
但是如何在不创建任何文件的情况下实现这一目标?
我最接近的是:
system "start cmd /k $myfile_nextnumber.pl";
但在这种情况下,它不会显示已执行的路径和文件。
答案 0 :(得分:1)
为什么不在每次系统调用之前添加print
语句?
foreach my $file (@filelist) {
print "Calling $file\n";
system "start cmd /k $file";
}