Запуск PHP скрипта из Perl

[NeoNox]

по поводу возврата смотри документацию
perldoc -f exec
perldoc -f system

[Integra]

ravshaniy:
я конечно могу ошибаться, но exec ни в перле ни в пхп не возвращает результат своего выполнения в скрипт который его вызывает. комманда exec создает паралельный процесс, у которого свой собственный вывод. единственное что вы вернете таким методом это 1 в случае безуспешного выполнение exec("php result.php &",$ret); кажется так, но опять же могу ошибаться я новичег

Попробуйте, так работает. Это таинственный шОманизм интерпертатора php, видимо

[NeoNox]

Integra:
Не будем вдаваться в политику партии и мораль сей басни

Ну, то есть вы понимаете, что это потенциально очень тщательно разложенные грабли которые могут больно стукнуть по лбу? Я так понимаю, вам нужно использовать system вместо exec, это и будет ответом скорее всего.

[ravshaniy]

Integra:
Попробуйте, так работает. Это таинственный шОманизм интерпертатора php, видимо

даже пытаться не буду, вы ошибаетесь

[Integra]

NeoNox:
# php index.phpX-Powered-By: PHP/5.1.1Content-type: text/html

# perl 12================X-Powered-By: PHP/5.1.1Content-type: text/html

================# cat 12#!/usr/bin/perl

print "================\\n";

$test = `php ./index.php &`;print $test;print "================\\n";

Переделано так:
#!/usr/bin/perl
print "Content-type: text/html";

print "================\\n";
$test = `php ./index.php &`;
print $test;
print "================\\n";
// запускаемый
#!/usr/bin/php
Content-type: text/html
echo "11111";

Apache выдает матюги:
Security Alert! The PHP CGI cannot be accessed directly.

Как бишь опция в перле называется, которая в php --enable-force-cgi-redirect?


Пробовали ``, system, exec, passthru, и конечно pipes, дабы подождать окончания запускаемого скрипта. Не видит!!!!!


то есть в php через пайп передаем данные в perl скрипт, а в перл-скрипте пишем print ;. Ни-че-го!

[Integra]

ravshaniy:
даже пытаться не буду, вы ошибаетесь

Apache/1.3.33 Server php 4

[NeoNox]

У меня выдает

Content-type: text/html================
X-Powered-By: PHP/5.1.1
Content-type: text/html

Content-type: text/html
echo "11111";================

Копайте пхп, к сожалению в настройках пхп я не силен, подсказать вам не смогу.

Integra:
Как бишь опция в перле называется, которая в php --enable-force-cgi-redirect?

Что она дает?

Integra:
то есть в php через пайп передаем данные в perl скрипт, а в перл-скрипте пишем print ;. Ни-че-го!

Пример покажите.

[Integra]

NeoNox:
Content-type: text/html================ X-Powered-By: PHP/5.1.1 Content-type: text/html

Content-type: text/html echo "11111";================

 это я лоханулась, там нада в php писать еcho "Content-type: text/html"

У вас запускается, это уже радует!!!У вас какой Апач и ос? Может, у вас там гдето опция установлена, аналогичная --enable-force-cgi-redirect, это разрешение запуска скрипта из скрипта

[Integra]

NeoNox:
Пример покажите.

Пример с трубой
// php
#!/usr/bin/php

//exec("perl ./test.pl",$q);
//print_r($q);

echo "1";

$handle = popen(\'perl -e t.pl\', \'w\');
fwrite($handle,"test");
fclose($handle);
echo "2";
?>
// запускаемый
#!/usr/bin/perl
print "Content-Type: text/html\\n\\n";
print ;
print "2121";


В док php написано - popen кидает все на стандратный поток ввода

[NeoNox]

cat /etc/redhat-release
Red Hat Linux release 7.2 (Enigma)

Апачей у меня в системе штук 20. Я даже не думал что пхп установленно, как и с какими опциями он установлен, сами понимаете, я не ведаю.

Integra:
$handle = popen(\'perl -e t.pl\', \'w\');

Зачем ключ -е?

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

[Integra]

NeoNox:
Перлового скрипта я тоже не понял, что он должен делать? Вы его с консоли запускали?

Не сильна в опциях интерпретатора perl. Но мы и без ключа запускали, эффект тот же...Ничего не происходит.


Теперь о перловом скрипте: он должен генерировать страницу с выведенным стандартным потоком ввода.


Интересен эффект: если мы передаем через трубу данные
$handle = popen(\'usr/sbin/sendmai -t -i\', \'w\');
fwrite($handle,"From: me");
fclose($handle);


То утилита sendmail считывает все, что нада и работает как нада.

А на вашей апаче такая штука идет? Которая с каналами?

[Integra]

NeoNox:
 Вы его с консоли запускали?

Мы его на каравановском сервере запускали :-) Выводит, собака, цифры 2121, а на STDIN - ни-че-го

[AnnA]

Integra,
попробуйте этот вариант:

Код: [Выделить]

// php
#!/usr/bin/php

//exec("perl ./test.pl",$q);
//print_r($q);

echo "1";

$handle = popen(\'perl -e t.pl\', \'w\');
fwrite($handle,"test"."\\n");
fclose($handle);
echo "2";
?>
// запускаемый


#!/usr/bin/perl
my $in = ;
print "Content-Type: text/html\\n\\n";
print , $in;

[Integra]

AnnA:
попробуйте этот вариант:

низачот к сожалению :-(
http://www.edunews.ru/sprav/test.php - пресловутые цифры 12 вместо 1test2

Не работает на линуксах и на виндах.

[AnnA]

мой php тоже оставляет желать лучшего, но всё же - по аналогии - правильно было бы напечатать, то что получили:

Код: [Выделить]


// php
#!/usr/bin/php
//exec("perl ./test.pl",$q);
//print_r($q);
echo "1";
$handle = popen(\'perl -e t.pl\', \'w\');
fwrite($handle,"test"."\\n");
fclose($handle);
echo "$handle 2";
?>