Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > Perl > Вызов скрипта из скрипта Perl |
Автор: Lanu4 22.10.14, 06:18 |
Доброго времени суток. Люди добрые подскажите, как надо сделать, есть скрипт main.pl и interface.pl, вызвать в main.pl скрипт interface.pl с аргументами $arg1 $arg2 и вернуть значения отработки interface.pl в main.pl. ?? корячился с system и exec чот не получается |
Автор: JoeUser 22.10.14, 08:31 |
main.pl <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> #!/usr/bin/perl $Arg1 = "STRING1"; $Arg2 = "STRING2"; open(FD,"|".(($^O =~ /MSWin/)? "perl ":"")."interface.pl \"$Arg1\" \"$Arg2\"") || die "Shit!"; print join("",<FD>); close(FD); interface.pl <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> #!/usr/bin/perl map {print "$_\n"} @ARGV; Добавлено Хотя проверку ОС можно смело пропустить. |
Автор: Lanu4 22.10.14, 08:44 |
JoeUser большое спасибо!!! А то я уже через файл начал городить... |