perl - использование обратных кавычек вместо system ()

Перенести данные из одного perl-скрипта в другой через оболочку - не лучшее решение. Вы должны знать, что обратные кавычки или qx() захватывают все, что печатается в STDOUT. Использование exit ($var) из другого скрипта вряд ли будет правильно захвачено. Вам понадобится print $var. Но не делай этого.

Вместо этого превратите другой сценарий в модуль и напрямую используйте подпрограмму. Это упрощенный пример:

В bar.pm:

use strict;
use warnings;

package bar;  # declare our package

sub fooz {             # <--- Our target subroutine
    my $in = shift;    # passing the input
    return $in * 5;    # return value
}
1; # return value must be true

В main.pl:

use strict;
use warnings;
use bar;   # bar.pm must be in one path in @INC

my $foo = bar::fooz(12);  # calling fooz from our other perl script
print "Foo is $foo\n";

Есть еще много чего узнать, и я предлагаю вам ознакомиться с документацией.

Вам нужен capturex от IPC :: System :: Simple.

use IPC::System::Simple qw( capturex );
my $output = capturex("perl", $path, $val1, $val2, @myarray);

Он даже обрабатывает ошибки за вас.

Обратные кавычки просто работают как прямой вызов в оболочке:

you@somewhere:~$ ./script.pl --key=value

В основном то же самое, что и

my $returnval = `./script.pl --key=value`;

Для вызова других программ с передачей аргументов и одновременным захватом вывода я большой поклонник IPC::Run < / а>:

use IPC::Run 'run';

my $exitcode = run [ $command, @args ], ">", \my $output;

# $exitcode contains the exit status and
# $output contains the command's STDOUT data

Разве это не то, что вы хотите?

my $returnval = `$path $val1 $val2 @myarray`;

@Quentin, однако, добавляет этот полезный совет: если значение, которое вы хотите передать, foo "bar, тогда в оболочке вам нужно будет сделать что-то вроде "foo \"bar". Использование дополнительных аргументов для системы возьмет карту за вас. Использование обратных кавычек не поможет; вам нужно создать нужную команду оболочки вручную.