|
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.
|