Использование Getopt :: Long для запуска системной команды в Linux - PullRequest
Новая
       8

Использование Getopt :: Long для запуска системной команды в Linux

1 голос
/ 03 января 2011

Я пытаюсь выполнить скрипт php с аргументами, используя следующий драйвер perl: 

#!/opt/local/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Cwd;

my %args = ();

GetOptions(
            \%args,           "NUM_AGENTS|a=s",
            "HOST_NAME|h=s",  "TIME_STAGGER|t=s",
            "USER_NAME|un=s", "USER_PASS|pw=s",
            "TARGET_PAGE|p=s"
) or die "Unknown parameter!\n";

my $i         = 0;
my $startTime = time;

my $pwd = getcwd();

my $logdir = "$pwd/load-logs";

mkdir $logdir
  or die "Cannot mkdir $logdir: $!"
  unless -d $logdir;
chmod 0755, $logdir or die "Cannot chmod 0755 $logdir: $!";

my $startTimeTemp = $args{NUM_AGENTS} + $startTime;
my $startTime2    = $startTimeTemp + 10;

mkdir( "$logdir/$startTime2", 0777 )
  or die "Cannot mkdir $logdir/$startTime2: $!"
  unless -d "$logdir/$startTime2";

my $random_number = rand() * 10;
my $execDelay =
  ( $random_number % $args{TIME_STAGGER} ) * ( ( $random_number % 100 ) );
my $procStartTime = $startTime2 + $execDelay;

my $reqlogfile  = "$logdir/$startTime2/req.log";
my $resplogfile = "$logdir/$startTime2/resp.log";

print "NUM_AGENTS: " . "$args{NUM_AGENTS}\n";
print "HOST_NAME: " . "$args{HOST_NAME}\n";
print "procStartTime: " . "$procStartTime\n";
print "i: " . "$i\n";
print "TARGET_PAGE: " . "$args{TARGET_PAGE}\n";
print "resplogfile: " . "$resplogfile\n";
print "USER_NAME: " . "$args{USER_NAME}\n";
print "USER_PASS: " . "$args{USER_PASS}\n";
print "execDelay: " . "$execDelay\n";
print "COMMON_SID: " . "$args{COMMON_SID}\n";

while ( $args{NUM_AGENTS} > $i ) {
    $i++;
    print "count: " . "$i\n";

    my $argString =
"'$args{NUM_AGENTS}' '$args{HOST_NAME}' '$procStartTime' '$i' '$args{TARGET_PAGE}' 'resplogfile' '$reqlogfile' '$args{USER_NAME}' '$args{USER_PASS}' '$execDelay' '$args{COMMON_SID}'";

    system("php loadAgent_curl.php $argString") == 0 or die "failed to execute: $!";

    sleep 1;

    #system("ls");
}

, но, похоже, что-то не так с: 

system("php loadAgent_curl.php $argString")

, посколькуСистемные команды ls работают нормально, но команда php с аргументами не

Аргументы командной строки этого сценария perl могут быть:

-a 10 -h ktest.test.net -t 5-un admin -pw adminpassword -p "acViewer / index.html? StartDate = 20090926040000 & EndDate = 20111220235959"

Ответы [ 3 ]

4 голосов
/ 03 января 2011

В отличие от большинства других команд Perl, system возвращает 0 в случае «успеха» и ненулевое значение в случае «сбоя».Таким образом, типичная идиома - 

system $command and die ...

вместо 

system $command or die ...

Обновление : ОП действительно правильно выполнил эту часть - system(...)==0 or die ... также прекрасноспособ проверки ошибок в команде system.

Там также могут быть некоторые кавычки в точной команде, которую вы передаете команде system.Для такой задачи часто лучше обойти оболочку и использовать форму LIST system для передачи команды непосредственно в ОС.Может быть что-то вроде: 

my @argList = ($args{NUM_AGENTS}, $args{HOST_NAME}, $procStartTime, $i,
               $args{TARGET_PAGE}, 'resplogfile', $reqlogfile, $args{USER_NAME},
               $execDelay, $args{COMMON_SID});
system("php", "loadAgent_curl.php", @argList) and die "failed to execute: $!";

(а также убедитесь, что php находится в вашем $PATH [или укажите полный путь к php] и loadAgent_curl.php в текущем каталоге).

0 голосов
/ 29 ноября 2011

Попробуйте PHP - GetOptionKit:

http://c9s.blogspot.com/2011/11/php-getoptionkit.html

Синопсис 

use GetOptionKit\GetOptionKit;

$getopt = new GetOptionKit;
$spec = $getopt->add( 'f|foo:' , 'option require value' );  # returns spec object.

$getopt->add( 'b|bar+' , 'option with multiple value' );
$getopt->add( 'z|zoo?' , 'option with optional value' );

$getopt->add( 'f|foo:=i' , 'option require value, with integer type' );
$getopt->add( 'f|foo:=s' , 'option require value, with string type' );
0 голосов
/ 04 января 2011

Вы не упомянули тип получаемого сообщения об ошибке. Было ли это что-то вроде Cannot find "php" или что-то еще.

У вас могут быть проблемы с цитатами. Вот несколько рекомендаций:

  • Используйте qq() вместо кавычек. Это сделает вещи немного чище.
  • Соберите команду в переменную с именем $command, которую вы можете распечатать в случае возникновения ошибок. Это может помочь вам понять, где у вас могут быть проблемы.
  • Установите переменную с именем $error при выполнении system, а затем проверьте эту переменную. Это намного яснее, чем стиль «1015» в стиле «назад», который вы должны делать в случае неудачи и успеха, и его намного проще поддерживать.

Пример: 

my $argString = qq("$args{NUM_AGENTS}" "$args{HOST_NAME}" ) 
    . qq( "$procStartTime" "$i" "$args{TARGET_PAGE}" "resplogfile" )
    . qq("$reqlogfile" "$args{USER_NAME}" "$args{USER_PASS}" )
    . qq("$execDelay" "$args{COMMON_SID}");

my $command = qq(php loadAgent_curl.php $argString);

my $error = system qq($command);
if ($error) {
    die qq(ERROR: Failed to execute "$command"\n\n$!);
}

По крайней мере, таким образом, вы можете увидеть, какая команда завершилась неудачей, и получить лучшее представление о том, почему она не могла быть выполнена.

...