(perl) выполнение system() из браузера

И всё прочее, что касается HTML
Правила форума
Убедительная просьба юзать теги [code] при оформлении листингов.
Сообщения не оформленные должным образом имеют все шансы быть незамеченными.
HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

(perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-09 13:50:01

Добрый день.
cgi скрипт на perl из командной строки выполняется на ура...
Да и из браузера работает почти все, только упорно отказывается выполнять sh команду, и с помощью system() и с помощью кавычек ``.
В чем могут быть грабли?
Подскажите пожалуйста...
ЗЫ права на скрипты 777.

Хостинговая компания Host-Food.ru
Хостинг HostFood.ru
 

Услуги хостинговой компании Host-Food.ru

Хостинг 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/

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-09 13:59:38

пути

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-09 14:10:59

zg писал(а):пути
system('/var/www/stat/usertraf.sh $user');
полные...
из командной строки работает.

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-09 14:20:29

пути в /var/www/stat/usertraf.sh ;-)

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-09 14:38:28

zg писал(а):пути в /var/www/stat/usertraf.sh ;-)
я об этом тоже сразу же подумал :)
перенес скрипт в папку /data с правами 777 , ноль эмоций =\

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-09 14:45:40

Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение ProFTP » 2008-09-09 16:33:31

покажи тч оты выполняешь...!!
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-09 16:58:54

HRonik писал(а):Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)
значит выполнилась :cf:
HRonik писал(а):перенес скрипт в папку /data с правами 777 , ноль эмоций =\
))) ну дак пути никто ж не менял :roll: чего ты от него хочешь

давай, выкладывай свой секретный usertraf.sh, никто его ломать не будет :smile:

Аватара пользователя
ProFTP
подполковник
Сообщения: 3388
Зарегистрирован: 2008-04-13 1:50:04
Откуда: %&й
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение ProFTP » 2008-09-09 17:10:47

во-первых по-моиму надо так

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

system("/var/www/stat/usertraf.sh $user");
Pеrl FAQ
perl -e 'print join"",map $$_[rand@$_],([0..9,'a'..'z','A'..'Z'])x30'
ИзображениеИзображение

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zingel » 2008-09-09 19:51:52

да и 755 а не 777
Z301171463546 - можно пожертвовать мне денег

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-10 6:23:32

Всем спасибо за ответы, сейчас попробую разобрать их.
zg писал(а):
HRonik писал(а):Причем system() возвращает код 0, что означает успешное выполнение команды, однако команда то не выполнилась %)
значит выполнилась :cf:
HRonik писал(а):перенес скрипт в папку /data с правами 777 , ноль эмоций =\
))) ну дак пути никто ж не менял :roll: чего ты от него хочешь
давай, выкладывай свой секретный usertraf.sh, никто его ломать не будет :smile:
Пути я естественно поменял :)

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

system("/data/usertraf.sh", $user);
Скрипт usertraf.sh объяснять долго, хотя он и не большой, но он возвращает число (трафик за день) в файл с именем /tmp/stat/$user.tmp.
Потом этот файл открывается и считывается... такое извращение пришлось делать, потому что при выводе числа в STDOUT команда

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

$var=`/var/www/stat/usertraf $user`;
опять же из консоли работала правильно , а из браузера отказывалась выполняться.
Дак вот, файл /tmp/stat/$user.tmp просто не создается , хотя system() возвращает 0....
Если нужен полный код usaertraf.sh (строчек 7) могу привести.
ProFTP писал(а):во-первых по-моиму надо так

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

system("/var/www/stat/usertraf.sh $user");
Без разницы ему, из консоли выполняет , и так , и сяк...
zingel писал(а):да и 755 а не 777

поэтому может не пускать ? О_о
ну вам виднее сейчас попробую....

Аватара пользователя
zingel
beastie
Сообщения: 6204
Зарегистрирован: 2007-10-30 3:56:49
Откуда: Moscow
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zingel » 2008-09-10 6:28:49

так уж повелось, что если не 755, то premature end of sript headers
Z301171463546 - можно пожертвовать мне денег

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 6:32:20

HRonik писал(а):Скрипт usertraf.sh объяснять долго, хотя он и не большой
чего его объяснять, просто выложи и всё
HRonik писал(а):Если нужен полный код usaertraf.sh (строчек 7) могу привести.
давно пора :smile:

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-10 6:44:48

Вот я лох та:)
zg писал(а): HRonik писал(а):Скрипт usertraf.sh объяснять долго, хотя он и не большой
ты был невероятно прав))
дело оказалось пустяком, просто я вчера видимо до конца отупел, а с утра на свежий ум все решилось :)
Скрипт вызывал скрипт, который обращался к маленькому файлу, который (собака) лежал в недоступной директории.
Всем спасибо.

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение Alex Keda » 2008-09-10 8:04:40

вот за это - перл в топку.
неумение внятно ругаться на ошибки - это дебилизм...
Убей их всех! Бог потом рассортирует...

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 8:12:51

всё он умеет, просто его неправильно используют.

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение Alex Keda » 2008-09-10 8:14:39

ну так покажи чтобы ругался так же внятно как php
Убей их всех! Бог потом рассортирует...

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 8:18:17

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

zg# cat 1.sh
#!/usr/bin/perl -w

system('asdasda');
system('echo hello');

zg# ./1.sh
Can't exec "asdasda": No such file or directory at ./1.sh line 3.
hello

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение Alex Keda » 2008-09-10 8:19:51

ага.
а теперь чёнить посложней на пару килобайт?
Желательно с ошибками типа забытая скобка, точка с запятой и прочие часто распространённые.
Убей их всех! Бог потом рассортирует...

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 8:24:47

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

zg# cat 1.sh
#!/usr/bin/perl -w
asdasdasd
asdasdasd
asdasd
system('asdasda');
system('echo hello');

zg# ./1.sh
Unquoted string "asdasd" may clash with future reserved word at ./1.sh line 5.
syntax error at ./1.sh line 5, near "asdasd
system"
Execution of ./1.sh aborted due to compilation errors.
zg#

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение Alex Keda » 2008-09-10 8:56:26

хм... перл чтоли стал умнее....
а аналог var_dump() там появился? чтоб массив могло красиво показать?
Убей их всех! Бог потом рассортирует...

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 9:28:45

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

zg# cat 1.sh 
#!/usr/bin/perl -w
use Data::Dumper;
my @array = ({gander => 'goose', fox => 'vixen'}, 48,
[ 39, 'steps', 'movie' ]);
print Dumper(\@array);

zg# ./1.sh 
$VAR1 = [
          {
            'fox' => 'vixen',
            'gander' => 'goose'
          },
          48,
          [
            39,
            'steps',
            'movie'
          ]
        ];
zg# 

HRonik
мл. сержант
Сообщения: 130
Зарегистрирован: 2007-11-07 15:33:29

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение HRonik » 2008-09-10 9:36:55

А если perl скрипт из браузера запускать, как сделать чтоб он ошибки на странице показывал?

Аватара пользователя
Alex Keda
стреляли...
Сообщения: 35462
Зарегистрирован: 2004-10-18 14:25:19
Откуда: Made in USSR
Контактная информация:

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение Alex Keda » 2008-09-10 9:46:18

мда.
походу я действительно его готовить не умею =)
Убей их всех! Бог потом рассортирует...

zg
полковник
Сообщения: 5845
Зарегистрирован: 2007-12-07 13:51:33
Откуда: Верх-Нейвинск

Re: (perl) выполнение system() из браузера

Непрочитанное сообщение zg » 2008-09-10 11:20:51

HRonik писал(а):А если perl скрипт из браузера запускать, как сделать чтоб он ошибки на странице показывал?
http://forum.lissyara.su/viewtopic.php?p=94740#p94740
lissyara писал(а):мда.
походу я действительно его готовить не умею =)
:smile: