$req = HTTP::Request->new (GET => $url . "?code=$name&month" .$pairs[0]); $req->content_type ('text/html'); $res = $ua->request ($req); die "Can't get url $url: " . $res->status_line . "\n" unless $res->is_success; $content = $res->content; open $OUT, '>','/var/www/res/'.$name. '.txt'; print $OUT decode('KOI8-R',$content); #print $OUT $content; close $OUT; вот кусок кода из скрипта,суть такова что скрипт выдергивает данные и пихает их в файл,соответственно чтоб файл нормально читался в Винде необходимо сделать конверт формата из никсов под вынь собственно делаю $content= ~s/\n/\r\n/; на выходе получаю пустой файл ( пробовал s и m и ~m Что не так? можно тупо в консоле прописать perl -pi -e 's/\n/\r\n/;' *.txt но это не удобно ХЭЛПППП!!!!!!!!!!
делай вывод ответа с сервака через print -- и анализируй что он тебе пишет - сначала авторизацию потом постинг и тд - все должно воркать-пока сам не разберешся ничего небуит-наберайся опыта
А как в Perl написать email адес, чтобы он его правильно понял. А то он мне что то парит типа. Что это значит?
Perl не понимает символ "@", как надо. Он же считает, что это к массиву относится. поэтому вместо "@" - "%40"!
странно я почемуто '@' писал всегда или "\@" - уже на крайняк по сравнению с "%40" - меньше на 1-2 символа =) пиф он нав имел ввиду в строке какойнить которую он обрамляет ""
задача такова... у нас стоит мэйловский сервак (линух) в другом городе, который достовляет письма на другой сервак в наше бюро. Можно ли при помощи перла вычеслить скока заняло время доставки? мне цикловский скрипт нужен...
ну у демона который отсылает письма логи ведудся же какието - или прога(скрипт) которая отправляет тоже логи должны быть -- в чем проблема пропарсить лог и сравнить с временем получения ? да и недумаю что там такие большие задержки - макс 10 минут наверное
не, у нас может до часа задерживаться, если спам атака идет. В один день получили около 3000 мыл за пару сек. на счёт логов посмотрю, пасиба.
Как написать скрипт который гетом берет страницу с переданными данными логин и пароль... И сравнивает с правильной, а при неправильной берёт след. пароль... Мучался долго, не получаеццо... поможите люди добрые кто чем может...
эмм...тема для новичков, я нихрена не понял))) Короче ладно, вопрос снимаю, по ходу ничего нужного не узнаю, пойду поищу где-нить не тут)
#! /usr/bin/perl -w use LWP::UserAgent; $login = 'Vasya; $pwd = 'Petya'; $ua = LWP::UserAgent->new(); $res = $ua->post( "http://www.free-lance.ru", {login => $login , passwd => $pwd, action => 'login', button => '%C2%F5%EE%E4'} )->as_string; if($res =~ /чо-нибудь символизирующее удачный заход/) { print $login.$pwd; }
А у меня такая ситуация. Нужно попасть в раздел сайта, который доступен только, если авторизовался. Как поступить в такой ситуации?
