URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 9993
[ Назад ]

Исходное сообщение
"передать значения между perl-скриптами"

Отправлено DmitryDemin , 04-Ноя-01 21:13 
Hi!
Есть два последовательно отрабатываемых скрипта (из bat-файла). Как несколько полученных значений в первом скрипте передать как значения переменных во второй? Первый сам получает несколько входных через @ARGV, а вот как выдать - не могу разобраться :( Через файл - крайний случай, пока думаю более эффективно ведь будет через память.
Подскажите, плиз!

Всего хорошего!
С уважением, Dmitry.


Содержание

Сообщения в этом обсуждении
"RE: передать значения между perl-скриптами"
Отправлено nubi , 05-Ноя-01 01:25 
Ну как ответить...

Если вы писали эти скрипты, то сами знаете как и что. А если не сами, то короткий совет не поможет.
(вот он короткий - напечатать из певого аут и распарсить вторым)

Учитывая "Есть два последовательно отрабатываемых скрипта (из bat-файла)"

Вообще не поймешь что.


"RE: передать значения между perl-скриптами"
Отправлено БСДСвин , 05-Ноя-01 11:47 
а ,что .... %ENV не работает в досе ?
через окружение , что первое в голову пришло ...

"RE: передать значения между perl-скриптами"
Отправлено Арлекин , 05-Ноя-01 15:18 
STDOUT первого на STDIN второго

"RE: передать значения между perl-скриптами"
Отправлено DmitryDemin , 05-Ноя-01 16:08 
Hi!
А не подскажешь конкретно как и какие переменные создать для STDOUT и как эти переменные "поймать" на входе втрого скрипта? Может даже пару строк примера...
ps. Все это работает под FreeBSD (это я просто по привычке назвал бат-файлом запускаемый пакетный файл).

Всего хорошего!
С уважением, Dmitry.


"RE: передать значения между perl-скриптами"
Отправлено Sergey , 05-Ноя-01 19:23 
в случае трубы
script1.pl

"сорри, глюк"
Отправлено Sergey , 05-Ноя-01 19:32 
видимо опеннет не дает вводить вертикальную черту.
так вот в случае пайпа
script1.pl (верт. черта) script2.pl
например можно так

содержимое скрипта 1:
...
print $foo, "\n";
print $bar, "\n";
...

содержимое скрипта 2:
...
$foo=<STDIN>;
$bar=<STDIN>;
...

ну,  надеюсь на этот раз опеннет не схавает никакие символы...


"RE: передать значения между perl-скриптами"
Отправлено Арлекин , 05-Ноя-01 20:41 
Как конвейер сделать, тебе SERGEY написАл.
В STDOUT заслать - print
Ну а читать можно хоть while(<>){ ... } . В какой последовательности бросил, в такой и получишь. Вариантов вагон. Фри у меня нету, но, по-моему эта байда одинакова везде ( ну кроме виндюка, ессно )

"ТОЖЕ ГЛЮК !!!"
Отправлено Арлекин , 05-Ноя-01 20:43 
Оператор while( Знак_меньшеЗнак_больше ) Навстречу раскрытыми сторонами, без пробелов... Глючная байда...