Как вернуть переменную Perl в сценарий ksh?

Question

У меня есть скрипт ksh, который вызывает программу Perl. Программа Perl создает важные данные, к которым должен действовать скрипт ksh. Пример:

Моя программа КШ:

#!/usr/bin/ksh 
abc.pl > $logFile 
# perl pgm creates variable $importantData See below. 
# HOW DO I GET THE .KSH SCRIPT TO SEE $importantData ??? 
def.ksh $importantData # send important data to another .ksh script 
exit 

Мои Perl программы:

$importantData = somefunction(); 
exit; 

Answer 1

не могли бы вы иметь Perl скрипт распечатать данные и затем передать данные на новый KSH скрипт

#perl script 
print someFunction(); 

#ksh script 
perl abc.pl | ksh scrip 

Answer 2

Программа Perl должна печатать переменную. Сценарий KSH фиксирует вывод.

Perl ...

$importantData = somefunction(); 
print $importantData; 
exit 

КШ ...

#!/usr/bin/ksh 
abc.pl > $logFile 
importantData=$(perlprogram) 
def.ksh $importantData # send important data to another .ksh script 
exit 

Answer 3

Если вы не можете использовать стандартный вывод или стандартную ошибку для обеспечения $ importantData, вы можете использовать временный файл.

Answer 4

Если значение является числовым, вы можете вернуть его с помощью функции Perl exit(), которая будет отображаться как код состояния Perl.

например, exit(3) приведет к тому, что Perl вернет значение 3 в ksh.

Насколько я понимаю, вы можете использовать специальную переменную $? ksh, чтобы прочитать статус выхода последней команды. См. here для более подробной информации.

Answer 5

В системах * nix дочерний процесс не может изменять среду своего родителя. Если вы создадите свой Perl-скрипт для печати важных данных до стандартного, у вас будет несколько способов захвата его для последующей обработки.

Проще всего перенаправить вывод в файл для последующей обработки:

perlprogram > saved.output 

Если вам нужны только данные для одного процесса, и этот процесс является следующая вещь, чтобы сделать, вы можете конвейеру Perl выход на другой процесс ввода:

perlprogram | otherprogram 

Вы также можете сохранить вывод в переменную окружения (обратите внимание, что родительский сценарий делает спасительный не ребенка):

envvariable=$(perlprogram) 

Или старая школа (которая со ссылкой на проблемы со сложными командами):

envvariable=`perlprogram`