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

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

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

    anubis666 New Member

    Joined:
    17 Aug 2009
    Messages:
    31
    Likes Received:
    0
    Reputations:
    0
    а есть другие варианты? просто этот у меня не компилится..
     
  2. gkristall

    gkristall New Member

    Joined:
    11 Dec 2009
    Messages:
    3
    Likes Received:
    0
    Reputations:
    0
    как прикрутить curl 0_O
     
  3. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    budden
    Code:
    perldoc LWP::UserAgent
    perldoc HTTP::Request::Common
    
    и так далее
     
  4. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    defined ?
     
  5. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    хз, под винду я пользовался UltraEdit
     
  6. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Ошибка тут
    Code:
    sub f_parser {
       our @link;
       my($tag, %links) = @_;
       if ($tag eq 'a') { push(@link, $links{'href'}) [color=red][b]}[/b][/color];
    }
    
     
  7. zeppe1in

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

    Joined:
    12 Jul 2006
    Messages:
    343
    Likes Received:
    66
    Reputations:
    18
    пишет же что скобочку где то не закрыл.

    if ($tag eq 'a') { push(@link, $links{'href'}) ;
     
  8. Fepsis

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

    Joined:
    17 Sep 2008
    Messages:
    791
    Likes Received:
    391
    Reputations:
    72
    Здравствуйте..!!!

    Перл не так давно начал юзать, поэтому коли что не так не обессудьте... :rolleyes:

    Решил переписать несколько своих ПХП-шных скриптов под АктивПерл... Вот вопрос:
    Нужно на сайт с кодировкой UTF-8, закинуть русскоязычное сообщение... И в общем то всё работает, сообщение уходит, но... Проблемы с кодировкой... В ПХП скрипте решалось это так:

    $mess = iconv('Windows-1251', 'UTF-8', $mess);

    но в АктивПерл нет встроенной iconv, хотя говорят, что можно поставить, но это в крайнем случае... Мне бы хотелось обойтись без установки доп модулей (если возможно, конечно)

    Как пытался решить проблему:

    1)
    use utf8;
    .....
    utf8::encode($mes);


    2)
    use Encode;
    .............
    $mes = encode('utf8', $mes);

    Ни один из способов не проканал.. (

    Есть ли какие варианты решения данной траблы..?! Желательно без установки доп модулей на Актив Перл...
     
  9. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Юзайте функцию from_to модуля Encode. И почитайте тут - http://www.nestor.minsk.by/sr/2008/09/sr80902.html
     
    1 person likes this.
  10. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    Только что на винде специально проверил - работает:

    use Encode;
    open( FILE, ">>" . "123.txt" );
    $mes = "Привет";
    Encode::from_to($mes, 'windows-1251', 'utf-8');
    print FILE $mes . "\n";
    close(FILE);
     
    1 person likes this.
  11. MiruMir

    MiruMir New Member

    Joined:
    13 Dec 2009
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Ребята у меня такой вопрос - Брут на дэдике - регулярно выскакивает табличка "Удалённый рабочий стол отключен" как её вырубить чтоб она не появлялась , а то на автомат не как не поставить , приходится постоянно кликать ОК , что бы брутить дальше иначе весь процесс тормазиться !
     
  12. restart_05

    restart_05 Member

    Joined:
    5 May 2009
    Messages:
    164
    Likes Received:
    6
    Reputations:
    0
    как можно закодировать $text = "Текст";
     
  13. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Обфусцировать
     
  14. w_2k

    w_2k New Member

    Joined:
    23 Jul 2008
    Messages:
    29
    Likes Received:
    1
    Reputations:
    0
    Доброго времени суток!) Вот пишу скрипт, обрабатывающий определенным образом инет страницу(указываем урл). Суть проблемы в том, что я не знаю какой модуль использовать для парсинга страниц? И что делать, например, с сылками вида www.site.ru/page1/ , где не указан конкрентный файл?
     
  15. phpdreamer

    phpdreamer Member

    Joined:
    26 Jul 2009
    Messages:
    522
    Likes Received:
    86
    Reputations:
    19
    не экстрасенсы мы....
     
  16. Osip

    Osip New Member

    Joined:
    20 Jan 2008
    Messages:
    14
    Likes Received:
    4
    Reputations:
    0
    fgets? preg_match? LoL
     
  17. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    w_2k, http://www.citforum.ru/internet/perl/regexp/

    Osip, ты наркоман челе?
     
  18. w_2k

    w_2k New Member

    Joined:
    23 Jul 2008
    Messages:
    29
    Likes Received:
    1
    Reputations:
    0
    Как выбрать нужную мне инфу я понял, я имел ввиду как подключится к странице, что бы ее можно было обрабатывать... Максимум что я использовал это open FILE "file.htm"...
     
  19. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    perldoc LWP::UserAgent
     
  20. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    LWP::Simple хотя бы
     
Thread Status:
Not open for further replies.