PHP и Perl

[webmaster_Chris]

PHP и Perl

Задачка такая... Есть программа, которая в себе использует перл скрипт вида:

print "Делаю такое то действие";
return "ipfw -a list";

как написать PHP скрипт, или что поправить в perl'овом, чтобы он отдавал значение как return (может exit "значение", и перл забирал, а может как можно в перл скрипте забирать ухус в переменную?

 

[Rezec]

В РНР это будет выглядеть так:

function my_shell($command){
 ob_start();
 passthru($command);
 $out_msg = ob_get_contents();
 ob_end_clean();
 return $out_msg;
}
echo my_shell('ipfw -a list');

 

[webmaster_Chris]

В PHP можно так было реализовать:

exec("IPFW -a list",$var);

далее прото эту переменную в return... проблема как передать скрипту Perl... Чтобы тот в return смог записать...

 

[AlexVN]

Опиши детали - зачем тебе это надо и почему не устраивает exec?

 

[webmaster_Chris]

exec в перд не записывает output в переменную... вообщем решение я нашел, я сполняю script.php > output
далее output открываю как файл в перле и отдаю

 

[R`oo`T]

passthru() ?