Perl 脚本不执行某些外部调用

Question

我编写了这个 Perl 脚本来自动化我的无线连接：

#!/usr/bin/perl

use strict;

my @modes = ("start", "stop");
my $mode = $modes[0];
my $kill_command = "sudo kill -TERM ";

sub check_args
{
    if($#ARGV != 0)
    {
        print(STDERR "Wrong arguments\n");
        print(STDERR "Usage: ./wicd.pl start|stop\n");
        exit();
    }

    my @aux = grep(/^$ARGV[0]$/, @modes);

    if (!@aux)
    {
        print(STDERR "Unknown argument\n");
        print(STDERR "Usage: ./wicd.pl start|stop\n");
        exit();
    }

    $mode = $ARGV[0];
}

check_args();

my @is_wicd_running = `ps -A | grep wicd`;

# START
if ($mode eq $modes[0])
{
    if (!@is_wicd_running)
    {
        system("gksudo ifconfig wlan0 down");
        system("sudo macchanger -r wlan0");
        system("sudo wicd");
    }

    my @is_wicd_gui_running = grep(/wicd-client/, @is_wicd_running);

    if (!@is_wicd_gui_running)
    {
        system("gksudo wicd-gtk &");
    }
}

# STOP
else
{
    for (@is_wicd_running)
    {
        my @aux = split(/ /, $_);
        system("$kill_command$aux[1]");
    }
    system("sudo ifconfig wlan0 down");
}

问题是 macchanger 和 sudo ifconfig wlan0 down 没有执行（只有那些......）。奇怪的是，当通过 Perl 调试器 (perl -d) 调用脚本时，这些调用确实执行。我认为这可能是一个计时问题，并在这些调用之前添加了一些 sleep() 调用，但没有改变。我也尝试过使用 system() 调用，也没有进行任何更改。

编辑：更奇怪的是，我发现如果我将脚本作为 perl wicd.pl 运行，它会正常运行，而 ./wicd.pl 则不会（它运行但存在上述问题）。我已附上整个脚本。标头中使用的 Perl 解释器与 which perl 命令返回的相同。

有什么线索吗？提前致谢！

Answer 1

更多信息可能会有所帮助，同时确保 \n 始终结束输出行。 今天早上尝试运行命令，

sub runx
{
   foreach my $cmd ( @_ ) 
   {
      my $out = qx("$cmd 2>&1");
      my $x = $?;
      $out =~ s/\s*$/\n/s;
      printf "\%s (0x\%0x):\n\%s", $cmd, $x, $out;
      last if $x; 
   }
 return $x;
}

没有时间运行此代码，并且无法删除我之前的评论。但是运行“which”命令也可以确保您的命令位于 PATH 上。