Использование Getopt :: Long для управления системной командой на Linux
-
14-10-2019 - |
Вопрос
Я пытаюсь выполнить сценарий 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"
Решение
Вы не упомянули тип сообщения об ошибке, который вы получаете. Это было что -то вроде Cannot find "php"
или что-то другое.
У вас могут быть проблемы с цитатами. Вот несколько рекомендаций:
- Использовать
qq()
Вместо кавычек. Это сделает вещи немного чище. - Построить команду в переменную, называемую
$command
который вы можете распечатать на случай, если у вас есть ошибки. Это может помочь вам понять, где у вас может быть проблема. - Установите переменную, вызванную
$error
При выполненииsystem
, а затем проверьте эту переменную. Это намного яснее, чем обратный стильand/or
Вещи, которые вы должны сделать в случае неудачи и успеха, и это намного проще поддерживать.
Пример:
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$!);
}
По крайней мере, вы можете увидеть, какая команда не удалась, и получить лучшее представление, почему она не выполнила.
Другие советы
В отличие от большинства других команд Perl, system
Возвращает 0 на «успех» и ненулевой на «неудаче». Так что типичная идиома
system $command and die ...
вместо
system $command or die ...
Обновлять: OP действительно сделал эту часть правильно - system(...)==0 or die ...
Также совершенно прекрасный способ проверить ошибки на system
командование
Также может быть несколько причудливых цитат в той точной команде, которую вы проходите в system
командование Для такой задачи часто лучше всего обойти оболочку и использовать форму списка 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
находится в текущем каталоге).
Попробуйте 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' );