Perl - используя обратные кавычки вместо системы()

Question

У меня есть скрипт на языке Perl, который вызывает в другой PERL скрипт с помощью системы()

это как:

my $returnval= system("perl", $path,$val1, $val2,@myarray); 

Поскольку система() возвращает только выход статус, но я хочу, чтобы выход скрипта я хотел использовать backticks.

Я пытался что-то вроде этого:

my $returnval = `$path`; 

, как я могу добавить параметры скрипт должен получать?

Как должен выглядеть код возврата другого Perl-скрипта? На данный момент это как

exit ($myreturnedvalue); 

(how) Можно ли вернуть несколько значений?

Answer 1

Чтобы пройти через оболочку, чтобы переместить данные из одного Perl-скрипт для другого - не лучшее решение. Вы должны знать, что backticks или 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"; 

Существует много больше, чтобы узнать, и я предлагаю вам прочитать на documentation.

Answer 2

Не делает ли это то, что вы хотите?

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

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

Answer 3

кавычку просто работать, как прямой вызов можно было бы сделать в оболочке:

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

Это в основном так же, как

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

Answer 4

Для вызова других программ, передающих аргументы и одновременной записи вывода, я являюсь большим поклонником 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 

Answer 5

IPC::System::Simplecapturex.

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

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