Показать сообщение отдельно
Старый 16.09.2005, 23:22     # 9
Andrey Zak
Junior Member
 
Аватар для Andrey Zak
 
Регистрация: 27.08.2005
Адрес: spb.ru
Сообщения: 100

Andrey Zak Путь к славе только начался
my $url = "http://www.sait.ru/cgi-bin/guestbook/guestbook.pl";
# это чтоб совсем красиво было. куда вставить задачка на выходные
# my $ref = "http://www.sait.ru/guestbook.html";

my $agent = new LWP::UserAgent;
$agent->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0");
# можно и через прокси, как настоящий кулхацкер
# $agent->proxy('http',"http://proxy.ru:3128");


$request = POST $url ,[ cwrite => 'none', Name => 'test12', E-Mail => 'test31@test.ru', Homepage => 'http://t13est.ru', Text => 'test13311' ];
$response = $agent->request( $request );
# ответ на запрос это то, что ты можешь видеть после сабмита
print $content = $response->content();

Надеюсь это то, что ты просил. Почисти гостевую.
__________________
Сейчас кто-то получит яндексом по рамблеру и отлетит гугол.

Последний раз редактировалось Andrey Zak; 16.09.2005 в 23:48.
Andrey Zak вне форума