VPF::нажатие кнопки - Форум программистов

chaos

Дата 7.6.2005, 10:53 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Здрасте!!!!
Вот возникла проблема: необходимо написать скриптик каторый будет нажимать кнопки на сайте и всала проблема как их нажимать
Вот подумал может кто сталкивался с этим и что нить может подсказать, а то чето не охото изобретаь велик

Заранее благодарен!!!

korob2001

Дата 7.6.2005, 11:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

chaos - поясни подробнее, не понятно, что за кнопки и что значит нажимать?

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

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

chaos

Дата 7.6.2005, 11:11 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Цитата(korob2001 @ 7.6.2005, 11:01)

chaos - поясни подробнее, не понятно, что за кнопки и что значит нажимать?

ну вот на сайте есть форм(action="POST") и кнопочка(submit) мне необходимо скриптом "нажать" ее)) и получить результат
вот вроде так

korob2001

Дата 7.6.2005, 12:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

А зачем тогда вообще делать кнопку SUBMIT, если тебе нужно отправлять форму программно? Думаю ответ кроется не в Perl, а в JavaScript. Просто напиши функию которая будет по определённому событию отправлять твою форму.
А может я опять чего не допонял???

ЗЫ:

Цитата

форм(action="POST")

думаю ты хотел написать method="POST"

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

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

chaos

Дата 8.6.2005, 07:54 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

привет, korob2001!
все я уже разобрался, покапавшись на cpan'е нашел то что мне нужно:

Код


#!/usr/bin/perl -w
use strict;

use URI::URL;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common;
use HTTP::Request::Form;
use HTML::TreeBuilder;
use LWP::UserAgent;

#DECLARE VARIABLE
my($ua, $url, $request, $response, $tree, @forms, $f);

$ua = LWP::UserAgent->new; 
$url = 'http://localhost/'; 

$request = HTTP::Request->new(GET => $url); 

$response = $ua->request($request); 
if (!$response->is_success) { 
    print STDERR $response->status_line, "\n";
    exit(0);
}

#print $response->content; 

$tree = HTML::TreeBuilder->new; 
$tree->parse($response->content); 
$tree->eof(); 

@forms = $tree->find_by_tag_name('FORM'); 
die "What, no forms in $url?" unless @forms; 

$f = HTTP::Request::Form->new($forms[0], $url);
$f->field("field1","blablabla");
$f->field("field2","blablabla");
$f->field("hide","test hide");

$tree->delete(); 
$response = $ua->request($f->press('button'));#'button')); 

if (!$response->is_success) 
{
    print STDERR $response->status_line, "\n";
    exit(0);
}
print $response->content; 
print "\n", $response->base, "\n";

вот это я хотел))

PS Только вот может плохо объяснял)

Anarki

Дата 8.6.2005, 21:30 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: нет
Всего: 11

Можно использовать модуль WWW::Mechanize

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

Мой блог

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