forum.opennet.ru

Форум Программирование под UNIX (Perl)
Вариант для распечатки		Пред. тема \| След. тема
Режим отображения отдельной подветви беседы		[ Отслеживать ]

Оглавление

perl, backticks, exec etc, alexey9 (??), 04-Окт-06, (0) [смотреть все]

Ах да, это все usr bin perl разумеется , alexey9 (??), 16:28 , 04-Окт-06, (1)
Попробуй так my dataToSign Some text nSome text nSome text n my signedQue, ACCA (ok), 20:17 , 04-Окт-06, (2) //

Однохренственно Да n там действительно не нужен, когда в форум писал поставил , alexey9 (??), 20:25 , 04-Окт-06, (3)

Не надо так делать Во-первых, плодятся лишние процессы sh Во-вторых, sh не пон, AMDmi3 (?), 22:51 , 04-Окт-06, (4) //

Хм Странно но он результат в консоль валит при таком подходе my out out , alexey9 (??), 23:07 , 04-Окт-06, (5) //

Точно, так тоже нельзя Правильный ответ - в perldoc perlipc, глава Bidirectio, AMDmi3 (?), 23:34 , 04-Окт-06, (6) //

блин, интересно а на площадке на хостинге дадут процесс запустить отдельный Д, alexey9 (??), 23:41 , 04-Окт-06, (7)

А, по твоему, не запускают отдельный процесс Кстати, имеет смысл посмотреть г, AMDmi3 (?), 23:45 , 04-Окт-06, (8)

Не, уже смотрел, я немогу их собственно установить на площадке Т е модули то с, alexey9 (??), 23:47 , 04-Окт-06, (9)

К тому же я как-то не въехал как ему подсовывать ключ Документацию посмотрел та, alexey9 (??), 23:49 , 04-Окт-06, (10)

да static, alexey9 (??), 23:57 , 04-Окт-06, (12)

Хмм Там openssl что-ли статически собран У меня на FreeBSD usr bin openssl сл, AMDmi3 (?), 23:51 , 04-Окт-06, (11)

да, static Хотя попробую может в HOME собрать Может удастся А как его юзать, , alexey9 (??), 23:58 , 04-Окт-06, (13)

Ты про модуль Не знаю, не пользовал Если про open2, там можно ключи указывать , AMDmi3 (?), 01:59 , 05-Окт-06, (14)

Спасибо, Уважаемый, за помощь mdash все отлично работает , alexey9 (??), 05:31 , 06-Окт-06, (15)

Сообщения [Сортировка по времени | RSS]

5. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:07

>open(PIPE, "| openssl ... |");
>print PIPE $dataToSign;
>print while(<PIPE>);
>close PIPE;
Хм. Странно но он результат в консоль валит при таком подходе
...
my $out;
...
$out = <PIPE>;
...
Опять не въезжаю - вроде маны уже перечитал все

Ответить | Правка | Наверх | Cообщить модератору

6. "perl, backticks, exec etc" +/–

Сообщение от AMDmi3 (?), 04-Окт-06, 23:34

>>open(PIPE, "| openssl ... |");
>>print PIPE $dataToSign;
>>print while(<PIPE>);
>>close PIPE;
>Хм. Странно но он результат в консоль валит при таком подходе
Точно, так тоже нельзя :)
Правильный ответ - в perldoc perlipc, глава `Bidirectional Communication with Another Process'
#!/usr/bin/perl
use FileHandle;
use IPC::Open2;
$pid = open2(*OUT, *IN, "md5");
print IN "somedata";
close IN;
$result = <OUT>;
close OUT;
waitpid($pid, 0); # чтобы зомбей не плодить
print "Result: $result\n";

Ответить | Правка | Наверх | Cообщить модератору

7. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:41

>>>open(PIPE, "| openssl ... |");
>>>print PIPE $dataToSign;
>>>print while(<PIPE>);
>>>close PIPE;
>>Хм. Странно но он результат в консоль валит при таком подходе
>
>Точно, так тоже нельзя :)
>Правильный ответ - в perldoc perlipc, глава `Bidirectional Communication with Another Process'
>
>
>#!/usr/bin/perl
>
>use FileHandle;
>use IPC::Open2;
>
>$pid = open2(*OUT, *IN, "md5");
>
>print IN "somedata";
>close IN;
>$result = <OUT>;
>close OUT;
>
>waitpid($pid, 0); # чтобы зомбей не плодить
>
>print "Result: $result\n";
блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю нет. Надо проверить. В любом случае спасибо.

Ответить | Правка | Наверх | Cообщить модератору

8. "perl, backticks, exec etc" +/–

Сообщение от AMDmi3 (?), 04-Окт-06, 23:45

>блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю
>нет. Надо проверить. В любом случае спасибо.
А, по твоему, `` не запускают отдельный процесс?
Кстати, имеет смысл посмотреть готовые модули.
http://search.cpan.org/~oesi/OpenSSL-0.09/OpenSSL/Digest.pm

Ответить | Правка | Наверх | Cообщить модератору

9. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:47

>>блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю
>>нет. Надо проверить. В любом случае спасибо.
>А, по твоему, `` не запускают отдельный процесс?
>
>Кстати, имеет смысл посмотреть готовые модули.
>http://search.cpan.org/~oesi/OpenSSL-0.09/OpenSSL/Digest.pm
Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули то ставятся а вот libopenssl'я нет и не будет, странно, но такая фот площадка.

Ответить | Правка | Наверх | Cообщить модератору

10. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:49

К тому же я как-то не въехал как ему подсовывать ключ. Документацию посмотрел так краем глаза - там почти ничего нет в man'е, просто времени не было.

Ответить | Правка | Наверх | Cообщить модератору

12. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:57

>
>К тому же я как-то не въехал как ему подсовывать ключ. Документацию
>посмотрел так краем глаза - там почти ничего нет в man'е,
>просто времени не было.

да. static

Ответить | Правка | Наверх | Cообщить модератору

11. "perl, backticks, exec etc" +/–

Сообщение от AMDmi3 (?), 04-Окт-06, 23:51

>Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули
>то ставятся а вот libopenssl'я нет и не будет, странно, но
>такая фот площадка.
Хмм. Там openssl что-ли статически собран? У меня на FreeBSD /usr/bin/openssl слинкован с /usr/lib/libssl.so.4 и /lib/libcrypto.so.4. Ну, описанный способ с open2 вполне работоспособен, в случае чего.

Ответить | Правка | К родителю #9 | Наверх | Cообщить модератору

13. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 04-Окт-06, 23:58

>>Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули
>>то ставятся а вот libopenssl'я нет и не будет, странно, но
>>такая фот площадка.
>Хмм. Там openssl что-ли статически собран? У меня на FreeBSD /usr/bin/openssl слинкован
>с /usr/lib/libssl.so.4 и /lib/libcrypto.so.4. Ну, описанный способ с open2 вполне работоспособен,
>в случае чего.

да, static.
Хотя попробую может в $HOME собрать. Может удастся. А как его юзать, походу вопрос сразу. Как подгрузить ключ?

Ответить | Правка | Наверх | Cообщить модератору

14. "perl, backticks, exec etc" +/–

Сообщение от AMDmi3 (?), 05-Окт-06, 01:59

>да, static.
>Хотя попробую может в $HOME собрать. Может удастся. А как его юзать,
>походу вопрос сразу. Как подгрузить ключ?
Ты про модуль? Не знаю, не пользовал. Если про open2, там можно ключи указывать и даже несколько команд, а-ля open2(*A, *B, "openssl -key1 | cat -n | wc -l | md5")

Ответить | Правка | Наверх | Cообщить модератору

15. "perl, backticks, exec etc" +/–

Сообщение от alexey9 (??), 06-Окт-06, 05:31

>>да, static.
>>Хотя попробую может в $HOME собрать. Может удастся. А как его юзать,
>>походу вопрос сразу. Как подгрузить ключ?
>Ты про модуль? Не знаю, не пользовал. Если про open2, там можно
>ключи указывать и даже несколько команд, а-ля open2(*A, *B, "openssl -key1
>| cat -n | wc -l | md5")
Спасибо, Уважаемый, за помощь &mdash все отлично работает. :)

Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру


	5. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:07
	>open(PIPE, "\| openssl ... \|"); >print PIPE $dataToSign; >print while(<PIPE>); >close PIPE; Хм. Странно но он результат в консоль валит при таком подходе ... my $out; ... $out = <PIPE>; ... Опять не въезжаю - вроде маны уже перечитал все
	Ответить \| Правка \| Наверх \| Cообщить модератору


	6. "perl, backticks, exec etc"	+/–
	Сообщение от AMDmi3 (?), 04-Окт-06, 23:34
	>>open(PIPE, "\| openssl ... \|"); >>print PIPE $dataToSign; >>print while(<PIPE>); >>close PIPE; >Хм. Странно но он результат в консоль валит при таком подходе Точно, так тоже нельзя :) Правильный ответ - в perldoc perlipc, глава `Bidirectional Communication with Another Process' #!/usr/bin/perl use FileHandle; use IPC::Open2; $pid = open2(OUT, IN, "md5"); print IN "somedata"; close IN; $result = <OUT>; close OUT; waitpid($pid, 0); # чтобы зомбей не плодить print "Result: $result\n";
	Ответить \| Правка \| Наверх \| Cообщить модератору


	7. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:41
	>>>open(PIPE, "\| openssl ... \|"); >>>print PIPE $dataToSign; >>>print while(<PIPE>); >>>close PIPE; >>Хм. Странно но он результат в консоль валит при таком подходе > >Точно, так тоже нельзя :) >Правильный ответ - в perldoc perlipc, глава `Bidirectional Communication with Another Process' > > >#!/usr/bin/perl > >use FileHandle; >use IPC::Open2; > >$pid = open2(OUT, IN, "md5"); > >print IN "somedata"; >close IN; >$result = <OUT>; >close OUT; > >waitpid($pid, 0); # чтобы зомбей не плодить > >print "Result: $result\n"; блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю нет. Надо проверить. В любом случае спасибо.
	Ответить \| Правка \| Наверх \| Cообщить модератору


	8. "perl, backticks, exec etc"	+/–
	Сообщение от AMDmi3 (?), 04-Окт-06, 23:45
	>блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю >нет. Надо проверить. В любом случае спасибо. А, по твоему, `` не запускают отдельный процесс? Кстати, имеет смысл посмотреть готовые модули. http://search.cpan.org/~oesi/OpenSSL-0.09/OpenSSL/Digest.pm
	Ответить \| Правка \| Наверх \| Cообщить модератору


	9. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:47
	>>блин, интересно а на площадке (на хостинге) дадут процесс запустить отдельный. Думаю >>нет. Надо проверить. В любом случае спасибо. >А, по твоему, `` не запускают отдельный процесс? > >Кстати, имеет смысл посмотреть готовые модули. >http://search.cpan.org/~oesi/OpenSSL-0.09/OpenSSL/Digest.pm Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули то ставятся а вот libopenssl'я нет и не будет, странно, но такая фот площадка.
	Ответить \| Правка \| Наверх \| Cообщить модератору


	10. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:49
	К тому же я как-то не въехал как ему подсовывать ключ. Документацию посмотрел так краем глаза - там почти ничего нет в man'е, просто времени не было.
	Ответить \| Правка \| Наверх \| Cообщить модератору


	12. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:57
	> >К тому же я как-то не въехал как ему подсовывать ключ. Документацию >посмотрел так краем глаза - там почти ничего нет в man'е, >просто времени не было. да. static
	Ответить \| Правка \| Наверх \| Cообщить модератору


	11. "perl, backticks, exec etc"	+/–
	Сообщение от AMDmi3 (?), 04-Окт-06, 23:51
	>Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули >то ставятся а вот libopenssl'я нет и не будет, странно, но >такая фот площадка. Хмм. Там openssl что-ли статически собран? У меня на FreeBSD /usr/bin/openssl слинкован с /usr/lib/libssl.so.4 и /lib/libcrypto.so.4. Ну, описанный способ с open2 вполне работоспособен, в случае чего.
	Ответить \| Правка \| К родителю #9 \| Наверх \| Cообщить модератору


	13. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 04-Окт-06, 23:58
	>>Не, уже смотрел, я немогу их собственно установить на площадке. Т.е. модули >>то ставятся а вот libopenssl'я нет и не будет, странно, но >>такая фот площадка. >Хмм. Там openssl что-ли статически собран? У меня на FreeBSD /usr/bin/openssl слинкован >с /usr/lib/libssl.so.4 и /lib/libcrypto.so.4. Ну, описанный способ с open2 вполне работоспособен, >в случае чего. да, static. Хотя попробую может в $HOME собрать. Может удастся. А как его юзать, походу вопрос сразу. Как подгрузить ключ?
	Ответить \| Правка \| Наверх \| Cообщить модератору


	14. "perl, backticks, exec etc"	+/–
	Сообщение от AMDmi3 (?), 05-Окт-06, 01:59
	>да, static. >Хотя попробую может в $HOME собрать. Может удастся. А как его юзать, >походу вопрос сразу. Как подгрузить ключ? Ты про модуль? Не знаю, не пользовал. Если про open2, там можно ключи указывать и даже несколько команд, а-ля open2(A, B, "openssl -key1 \| cat -n \| wc -l \| md5")
	Ответить \| Правка \| Наверх \| Cообщить модератору


	15. "perl, backticks, exec etc"	+/–
	Сообщение от alexey9 (??), 06-Окт-06, 05:31
	>>да, static. >>Хотя попробую может в $HOME собрать. Может удастся. А как его юзать, >>походу вопрос сразу. Как подгрузить ключ? >Ты про модуль? Не знаю, не пользовал. Если про open2, там можно >ключи указывать и даже несколько команд, а-ля open2(A, B, "openssl -key1 >\| cat -n \| wc -l \| md5") Спасибо, Уважаемый, за помощь &mdash все отлично работает. :)
	Ответить \| Правка \| Наверх \| Cообщить модератору