Windows环境system函数使用的问题

hewangping

在windows下使用的一段Perl代码，实现的功能是从脚本同一路径的config文件中读取要运行的命令。config文件格式为每条要运行的命令行单独成行。不断的读取要运行的命令行，一条一条执行，直到运行时间超过4个小时为止。命令行所用到的exe文件也在脚本的同一路径下。但是脚本跑起来以后，发现一个问题。有时候脚本能正常的跑完4个小时。有时候system会返回错误: Can't spawn "ses_diag -dwnld -d_mcr abc_def_ghi_jkl.bin 400 1" No such file or directory...
可是所有的文件在这个过程中并没有改变位置，为什么有时候成功有时候失败呢

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use Time::HiRes qw (gettimeofday tv_interval);
   
6. 
   
7. my $t0 = 0;
   
8. my @commands_list = ();
   
9. 
   
10. open CONFIG, "config" or die "Can not open file: config $!\n";
    
11. while (<CONFIG>)
    
12. {
    
13.         chomp;
    
14.         push @commands_list, $_;
    
15. }
    
16. close CONFIG;
    
17. 
    
18. $t0 = [gettimeofday];
    
19. while (tv_interval($t0, [gettimeofday]) < 4*3600)
    
20. {
    
21.         foreach (@commands_list)
    
22.         {
    
23.                 if (system("$_"))
    
24.                 {
    
25.                         print "Run-in test paused\n";
    
26.                          die "Error when executing $_ $!\n";
    
27.                 }
    
28.         }
    
29. }
    
30. 
    
31. print "Run-in test for 4 hours completed successfully!\n";

复制代码

不死草

这个可能是你的机子在run perl的同时你还在做其他的事情，有时候会造成冲突。
还有就是假如你是从别的机子或者网络上读文件的话也会产生这种情况，当然是网络不稳定的原因咯！~

hewangping

谢谢楼主。
确实有另外一个程序在对别的磁盘做IO。但这是测试的目的之一。难道没有解决办法吗

不死草

呵呵，你可以做一个log file,记录程序运行中的错误返回信息和时间信息，然后对照2个程序，看是否有同时调用同一个文件的问题，这个反正就是冲突啦。。。我们一般在做一些schedual内容的时候一般建议不要同时做其他事情。