forum.lissyara.su

Добавлено: **2009-06-08 15:38:55**

Пишу на PERL скриптик(ВЕБ морда), через который можно будет управлять некоторыми компонентами системы. Для вызова програм на машине с FreeBSD использую функцию

Код: Выделить всё

system("<список параметров для передачи системе>")

замечены некоторые особенности по работе этой функции(и не могу понять).
выполняю

Код: Выделить всё

system(" top ");

делает вывод на екран(все нормально)
выполняю

Код: Выделить всё

system(" ps ");

- Internal Server Error

аналогично некоторые команды работают echo, ifconfig, cp, rm...
а некоторые нет: ipfw, ps. Выполнение с ipfw проходит нормально(ошибок нет), но и результата тоже нет.(Хочу добавлять правила для фаера)

Эта функция так и должна работать или тут у меня что-то неправильно настроено? Для теста скрипта всем на все выдал права.

Код: Выделить всё

#pkg_info
perl-5.8.9_2
apache-1.3.41

Добавлено: **2009-06-08 15:43:15**

заголовок браузеры ты передал?

Добавлено: **2009-06-08 16:09:17**

юзай ``

Добавлено: **2009-06-08 21:11:33**

ProFTP писал(а):заголовок браузеры ты передал?

передал

Код: Выделить всё

print "Content-type: text/html";

выполняю в перловом скрипте

Код: Выделить всё

system('ipfw add deny icmp from any to any');

ошибок нет и результата тоже

Добавлено: **2009-06-09 11:12:56**

---nebo--- писал(а):Пишу на PERL скриптик(ВЕБ морда), через который можно будет управлять некоторыми компонентами системы. Для вызова програм на машине с FreeBSD использую функцию
выполняю
Код: Выделить всё
system(" ps "); 
- Internal Server Error

так нельзя делать или юзай по крайне мере фильтр col -b

Добавлено: **2009-06-09 13:29:26**

Код: Выделить всё

    open(PIPE,'prog |');
    while(<PIPE>){
    }

http://perldoc.perl.org/perlfaq8.html#H ... command%3f

Добавлено: **2009-07-08 2:24:37**

попробуй команду оформить в двойные кавычки а параметры в одинарные и раздели запятыми.. что типа так:

Код: Выделить всё

system ("stty", '-icanon', 'eol', "\001")

forum.lissyara.su

Непонятки с функцией system (PERL)

Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)

Re: Непонятки с функцией system (PERL)