如何在 Perl 脚本中无限循环运行用户提供的命令，直到用户中止它？

Question

我需要运行命令，直到我正在测试的系统失败，或者我中止脚本。我需要运行的命令可能会有所不同，因此我将其作为引号中的命令行参数。但我似乎无法使用系统命令运行命令行参数。这是我到目前为止所尝试的（使用@Cfreak提供的脚本编辑了我的尝试，即使我看到了同样的问题）：

#!/usr/bin/perl


while(1)
{
    print "Iteration #: $count\n";
    $retval = system ($ARGV[1]);
    if( $retval != 0 ) {
        print "System call $ARGV[1] failed with code $retval\n";
    }
    $count++;
}

如果我这样做 ./run ls

我看到以下打印内容：

System call  failed with code 65280
Iteration #: 1
System call  failed with code 65280
Iteration #: 2

我在这里做错了什么？

Answer 1

我相信您想要 $ARGV[0] 而不是 $ARGV[1]。您可能还想检查以确保 $ARGV[0] 存在。

if( 0 > $#ARGV )
{
  print "No command\n";
}
else
{
  while(1)
  {
    print "$count\n";
    my $ret = system( "ARGV[0]" );
    if( 0 != $ret )
    {
      print "<$ARGV[0] failed with $ret\n";
      exit;
    }
    $count++;
  }
}

Answer 2

您对 system 的参数用单引号引起来。您根本不需要引号（尽管双引号也可以）

实际上您还应该检查系统调用的返回值。如果调用成功，它应该返回 0：

while(1)
{
    print "Iteration #: $count\n";
    $retval = system ($ARGV[1]);
    if( $retval != 0 ) {
         print "System call $ARGV[1] failed with code $retval\n";
    }
    $count++;
}

如果你想在代码失败时停止脚本，那么只需使用 last：

while(1)
{
    print "Iteration #: $count\n";
    $retval = system ($ARGV[1]);
    if( $retval != 0 ) {
         print "System call $ARGV[1] failed with code $retval\n";
         last; # will break out of the loop
    }
    $count++;
}

Answer 3

65280 == 0xFF00，所以命令确实运行了（0xFF00 != -1），它没有因信号而死亡（0xFF00 & 0x7F == 0），并以退出代码 255 退出（0xFF00 >> 8 = = 0xFF == 255）。

所以我想你应该首先检查你运行的命令。嗯，根据你自己的输出，空字符串！也许您想要 $ARGV[0] 而不是 $ARGV[1]？

使用使用严格；使用警告；！！！它本来可以避免这整个问题。