VPF::command1;command2 - разделение результатов по пере

DiverD

Дата 28.3.2006, 03:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: 1
Всего: 2

вот кусок кода

Код


#!/usr/bin/perl
# проверка прав записи
use LWP::UserAgent;
use LWP::Simple;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => "http://127.0.0.1/test_exec_sh.php"); 
# выполнение комманд sh -------------------^^^^^^^^^^^^^^^^^^^^
$req->content_type('application/x-www-form-urlencoded');
$req->content('p=tty;ps -U www');
# комманды ----^^^^^^^--- передающиеся POST запросом на sh через test_exec_sh.php
my $res = $ua->request($req);
print $res->content;

требуется разделить результаты 2х комманд, те каждый резулт присвоить своей переменной.

$tty =
@ps =

ps: как нибудь хотелосьбы обайтись без создания 2го конекта., те без каопирования кода.

Это сообщение отредактировал(а) diverd - 28.3.2006, 03:58

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

korob2001

Дата 28.3.2006, 06:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Не понял вопроса, поясни подробнее, какой контент ты получаешь?

ЗЫ: Может стоит подумать над тем, что бы это test_exec_sh.php, переписать на Perl? smile

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

DiverD

Дата 28.3.2006, 06:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: 1
Всего: 2

вот резулт обоих комманд:
tty;ps -U www;
# commands ^
/dev/ttyp4
# result tty
PID TT STAT TIME COMMAND
865 ?? S 0:00,00 httpd
866 ?? S 0:00,00 httpd
867 ?? S 0:00,00 httpd
868 ?? S 0:00,00 httpd
869 ?? S 0:00,00 httpd
# result ps -U www

ЗЫ: Может стоит подумать над тем, что бы это test_exec_sh.php, переписать на Perl?

а смысла нет, можна и на пл но проста я не знаю как зделать пост через CGI.pm (не смотрел поэтому юзаю php сценарий,да мне без разницы главное чтоб доступ к sh был)

Код


#!/usr/bin/perl
use CGI qw(:standard);
print "Content-type: text/html\n\n";
$p=param("p");
system($p);

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

korob2001

Дата 28.3.2006, 07:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Я так понимаю, /dev/ttyp4 нужно сохранить в переменную $tty, а это:

Код


865 ?? S 0:00,00 httpd
866 ?? S 0:00,00 httpd
867 ?? S 0:00,00 httpd
868 ?? S 0:00,00 httpd
869 ?? S 0:00,00 httpd

в массив @ps?

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

DiverD

Дата 28.3.2006, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: 1
Всего: 2

korob2001

да да,так и должно.
как зделать?

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

korob2001

Дата 28.3.2006, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 6
Всего: 61

Воспользуйся регулярными выражениями, а так же split. smile

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »