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

[---nebo---]

Пишу на 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

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

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

[zingel]

юзай ``

[---nebo---]

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

передал

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

print "Content-type: text/html";

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

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

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

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

[zg]

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

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

system(" ps "); 

- Internal Server Error

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

[ProFTP]

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

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

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

[guest_0001]

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

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

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