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

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

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

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

    Joined:
    19 Nov 2007
    Messages:
    34
    Likes Received:
    5
    Reputations:
    0
    Неа, так тоже не прокатит, во первых надо ^ надо наверное заменить на ^|\n, а во вторых это тока для alphanumeric-символов, т.е. если к примеру встретится слово "++" то регулярка его пропустит (

    зы. Только что поигрался с тем что ты предложил, тока немного поправив $data =~ s/\n\w{1,2}\n//gm, всеравно пропускает слова длинною <=2 в случае если они идут друг за другом. Запутался я совсем чегото :confused:
     
  2. Xszz

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

    Joined:
    23 Apr 2007
    Messages:
    141
    Likes Received:
    42
    Reputations:
    9
    Как не то ? , регулярное выражение полностью соответствует критериям выше #739 .
    модификатор /m - Разрешает ^ и $ устанавливать соответствие рядом со встроенным \n .

    Вот если бы встретилось , слово "++" в посте #739 , тогда была б другая регулярка =)

    Экстрасенсов нету , задаём правильные вопросы - получаем правильные ответы
     
    1 person likes this.
  3. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    34
    Likes Received:
    5
    Reputations:
    0
    Спасибо, разобрался ) Не знал про модификатор /m. В итоге получил следующие $data=~s/^.{1,2}$//gm; , работает на ура :cool:
     
  4. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    34
    Likes Received:
    5
    Reputations:
    0
    А не подскажет кто нибудь пример скрипта для преобразования HTML -> PlainText, желательно с каментами
     
  5. bra1n

    bra1n New Member

    Joined:
    12 Jul 2008
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    если верно тебя понял то:
    htmlspecialchars('HTML текст который надо преобразовать');
     
  6. timlame

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

    Joined:
    19 Nov 2007
    Messages:
    34
    Likes Received:
    5
    Reputations:
    0
    не, это не то. а с преобразованием я кста разобрался, обошлось все одной регуляркой )
    $data=~s/<.*?>/ /g;
     
  7. coo1io

    coo1io New Member

    Joined:
    13 Apr 2008
    Messages:
    16
    Likes Received:
    3
    Reputations:
    0
    извеняюсь за тупой вопрос
    но как закриптовать .pl в .exe
    и какой прогой
     
  8. Jer1cho

    Jer1cho Member

    Joined:
    6 Jun 2008
    Messages:
    212
    Likes Received:
    65
    Reputations:
    10
    http://www.indigostar.com/perl2exe.htm
     
    1 person likes this.
  9. coo1io

    coo1io New Member

    Joined:
    13 Apr 2008
    Messages:
    16
    Likes Received:
    3
    Reputations:
    0
    Jer1cho большое спасибо
    только бы еще кто то обьяснил как юзать эту прогу..
     
  10. Xszz

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

    Joined:
    23 Apr 2007
    Messages:
    141
    Likes Received:
    42
    Reputations:
    9
    Code:
    perlcc
     
  11. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Подскажите как прочитать удалённый файл?
    например
    http://www.google.ru/intl/en_com/images/logo_plain.png

    или хотя бы скачать его
     
  12. biophreak

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

    Joined:
    3 Aug 2007
    Messages:
    348
    Likes Received:
    63
    Reputations:
    15
    perldoc LWP
     
  13. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    perldoc LWP - На самом деле работает )))))
     
  14. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    need your help))

    как приконектитса к popСерверу(например, mail.ru) с логином, и паролем, и достать количество писем, потом прочитать каждое письмо..
    а?))
     
  15. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Примерно так
    use Net::pOP3;
    $login = "vasya"; $pwd = "petya";
    $pop = Net::pOP3->new('pop.mail.ru', Timeout => 60);
    if ($pop->login($login, $pwd) > 0) {
    my $msgnums = $pop->list;
    foreach my $msgnum (keys %$msgnums) {
    my $msg = $pop->get($msgnum);
    print $msg;
    }
    $pop->quit;
    }
     
    _________________________
    1 person likes this.
  16. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    Kiami, СПАСИБО!!!
    подключается к pop, авторизуетса, а вот дальше что творит..))
    выводит что количество писем: HASH(0x1a8a2e0)
    и потом каждое письмо выводит вот так: ARRAY(0x1eac944)
    как преобразовать в нормальный формат?или сделать читабельным?))
     
  17. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    А если
    print @$msg;
    ?
     
    _________________________
  18. tor4)

    tor4) Elder - Старейшина

    Joined:
    27 May 2008
    Messages:
    45
    Likes Received:
    21
    Reputations:
    -6
    Модули где они хранятся и как их добавлять?

    Tk ???

    Perl -e "use Tk" а его нету)

    Откуда его слить, и как он станица?
     
  19. biophreak

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

    Joined:
    3 Aug 2007
    Messages:
    348
    Likes Received:
    63
    Reputations:
    15
    perl -MCPAN -e'install Tk' вот как-то вот так)))
     
  20. coo1io

    coo1io New Member

    Joined:
    13 Apr 2008
    Messages:
    16
    Likes Received:
    3
    Reputations:
    0
    можна *.pl код сделать так что бы исходник невозможно было изменить?
     
Thread Status:
Not open for further replies.