[Perl] Новичкам: задаем вопросы

Discussion in 'PHP' started by _Great_, 26 May 2007.

Thread Status:
Not open for further replies.
  1. svesve

    svesve Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    614
    Likes Received:
    87
    Reputations:
    11
    $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 но это не удобно

    ХЭЛПППП!!!!!!!!!!
     
  2. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    768
    Likes Received:
    417
    Reputations:
    288
    делай вывод ответа с сервака через print -- и анализируй что он тебе пишет - сначала авторизацию потом постинг и тд - все должно воркать-пока сам не разберешся ничего небуит-наберайся опыта
     
  3. GAVVVR

    GAVVVR Elder - Старейшина

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    А как в Perl написать email адес, чтобы он его правильно понял. А то он мне что то парит типа.
    Что это значит?
     
  4. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,296
    Likes Received:
    585
    Reputations:
    31
    строку 38 покажи
     
  5. GAVVVR

    GAVVVR Elder - Старейшина

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    Всё. сорри. Он же не понимает правильно "@" - ему надо "%40"
     
  6. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,296
    Likes Received:
    585
    Reputations:
    31
    кто? все телепаты уже спят
     
  7. GAVVVR

    GAVVVR Elder - Старейшина

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    Perl не понимает символ "@", как надо. Он же считает, что это к массиву относится. поэтому вместо "@" - "%40"!
     
  8. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,296
    Likes Received:
    585
    Reputations:
    31
    или выложи код, или тут не о чем говорить имхо
     
  9. GAVVVR

    GAVVVR Elder - Старейшина

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    Да я разобрался уже :)
     
  10. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    768
    Likes Received:
    417
    Reputations:
    288
    странно я почемуто '@' писал всегда или "\@" - уже на крайняк
    по сравнению с "%40" - меньше на 1-2 символа =)

    пиф он нав имел ввиду в строке какойнить которую он обрамляет ""
     
    1 person likes this.
  11. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,296
    Likes Received:
    585
    Reputations:
    31
    genom-- если он про регулярку, то да, с бэкслешем. а может и про кавычки. хз в общем.
     
  12. Tw!m4

    Tw!m4 Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    187
    Likes Received:
    19
    Reputations:
    0
    задача такова...

    у нас стоит мэйловский сервак (линух) в другом городе, который достовляет письма на другой сервак в наше бюро. Можно ли при помощи перла вычеслить скока заняло время доставки? мне цикловский скрипт нужен...
     
  13. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    768
    Likes Received:
    417
    Reputations:
    288
    ну у демона который отсылает письма логи ведудся же какието - или прога(скрипт) которая отправляет тоже логи должны быть -- в чем проблема пропарсить лог и сравнить с временем получения ?

    да и недумаю что там такие большие задержки - макс 10 минут наверное
     
  14. Tw!m4

    Tw!m4 Elder - Старейшина

    Joined:
    15 Jun 2007
    Messages:
    187
    Likes Received:
    19
    Reputations:
    0
    не, у нас может до часа задерживаться, если спам атака идет. В один день получили около 3000 мыл за пару сек.

    на счёт логов посмотрю, пасиба.
     
  15. zlo12

    zlo12 Elder - Старейшина

    Joined:
    28 Dec 2007
    Messages:
    560
    Likes Received:
    133
    Reputations:
    34
    Как написать скрипт который гетом берет страницу с переданными данными логин и пароль... И сравнивает с правильной, а при неправильной берёт след. пароль...
    Мучался долго, не получаеццо... поможите люди добрые кто чем может...
     
  16. biophreak

    biophreak Elder - Старейшина

    Joined:
    3 Aug 2007
    Messages:
    351
    Likes Received:
    63
    Reputations:
    15
    perldoc LWP::UserAgent, искать по слову get =)
     
  17. zlo12

    zlo12 Elder - Старейшина

    Joined:
    28 Dec 2007
    Messages:
    560
    Likes Received:
    133
    Reputations:
    34
    эмм...тема для новичков, я нихрена не понял)))
    Короче ладно, вопрос снимаю, по ходу ничего нужного не узнаю, пойду поищу где-нить не тут) ;)
     
    #697 zlo12, 7 Aug 2008
    Last edited: 7 Aug 2008
  18. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,937
    Likes Received:
    805
    Reputations:
    224
    #! /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;
    }
     
  19. biophreak

    biophreak Elder - Старейшина

    Joined:
    3 Aug 2007
    Messages:
    351
    Likes Received:
    63
    Reputations:
    15
    Хм... 2 zlo12: Глянь на досуге что такое perldoc, потом сильно поможет...
     
  20. GAVVVR

    GAVVVR Elder - Старейшина

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    А у меня такая ситуация. Нужно попасть в раздел сайта, который доступен только, если авторизовался.
    Как поступить в такой ситуации?
     
Loading...
Thread Status:
Not open for further replies.