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

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

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

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    FaceLess
    Code:
    #!/usr/bin/perl
    
    use strict;
    use warnings;
    
    my @myarray = qw/A B C 1 2 3 4 5 6 7/;
    my $randomnum;
    $randomnum .= $myarray[int rand 10] for 0 .. $#myarray;
    print $randomnum, "\n";
    <STDIN>
    
     
  2. SHiNiGaMi

    SHiNiGaMi Banned

    Joined:
    3 Jan 2010
    Messages:
    382
    Likes Received:
    55
    Reputations:
    15
    Добрый день. Проблема с потоками. всегда, когда пишу многопоточный скрипт, работяющий с LWP, потоки после старта через некоторое время начинают "затухать". Пример кода привести не знаю какой, т.к. во всех скриптах так. Кто-нибудь сталкивался?
     
  3. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    А ты увеличивай скорость работы не за счет потоков, а за счет асинхронности и все будет ок.
     
    _________________________
    1 person likes this.
  4. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    установил все модули какие нужны,просмотрел дирры где должны быть эти файлы всё есть,но всё равно пишет туже ошибку устанавливал сначало через cpan,ppm
    и бестолку
    вот ошибка
    Code:
    C:\>C:\ver1.1\witchxtool.pl
    Can't locate loadable object for module Net::RawIP in @INC (@INC contains: C:/pe
    rl/site/lib C:/perl/lib .) at C:\ver1.1\witchxtool.pl line 19
    Compilation failed in require at C:\ver1.1\witchxtool.pl line 19.
    BEGIN failed--compilation aborted at C:\ver1.1\witchxtool.pl line 19.
    
     
  5. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Код покажите
     
  6. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    http://pastebin.com/gGXwTwms
    залил на пастебин,здесь не поместился!
     
  7. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Ошибка в строке
    Code:
    use Net::RawIP;
    
    Не установлен модуль либо перл его не видит
     
  8. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    модуль установлен,выше же отписал!
    а как быть тогда?
    удалил эту строку всё работает!
    но на будующее как быть?
     
  9. [none]

    [none] Banned

    Joined:
    22 Nov 2009
    Messages:
    83
    Likes Received:
    26
    Reputations:
    -6
    Криво установлен, поэтому ошибки, у меня он тоже не поставился нормально, мб из-за винды))

    Если ты удалил use Net::RawIP; это значит он не будет выполнять нужные функции, т.е скрипт будет работать не как задумывалось.
     
  10. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    да не вроде работает скрипт норм)))
    всё может быть что из-за винды!
    сейчас на ноуте на BT попробую!
     
  11. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    А перл с вами не согласен.
    На будущее: слово "будущее" пишется без буквы "ю".
     
  12. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    я что то не пойму,тут диктант?
     
  13. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Если работает нормально, значит модуль не используется в коде.

    Тут общество высоких культурных ценностей и предвзятого отношения к людям, которые совершают совсем уж очевидные ошибки в частоиспользуемых словах русского языка.
     
    _________________________
  14. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    если модуль не используется,то для чего он тогдп был прописан?
     
  15. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Если Вы купили вещь, но через какое-то время перестали её использовать, то для чего Вы её покупали?
    К автору скрипта с такими вопросами обращаться надо, а не гадать.
    Вероятно использовался модуль, а потом автор решил от него отказаться.
     
    _________________________
  16. Faaax

    Faaax Banned

    Joined:
    30 Aug 2010
    Messages:
    329
    Likes Received:
    46
    Reputations:
    11
    не покупал!
    дело в том,что это обычный чекер на наличие LFI,RFI
     
    #1956 Faaax, 28 Jan 2012
    Last edited: 28 Jan 2012
  17. mazaxaka

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

    Joined:
    15 Feb 2008
    Messages:
    268
    Likes Received:
    35
    Reputations:
    0
    чтот начал тупить в коде. в общем
    sud send
    {
    код . бац каптча
    my ($cap) = $resp =~ /src="http:\/\/сайт\/capcha\/(.*)" alt/; спарсил сыль до каптчи
    }
    sub captcha
    {
    my $resp = $ua->get("http://сайт/capcha/$cap")->content; но нехрена не видит каптчу $cap не передается.
    }

    пробывал сразу после use прописать my $cap; . не помогает. омогите как заставить $cap передаватьтся в суб каптчи ?
     
  18. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Ты же сам ограничиваешь область видимости переменной.
    Хочется передать - делай соотв. вызов типа captcha($cap) и обрабатывай в captcha переданную переменную.
     
    _________________________
  19. mazaxaka

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

    Joined:
    15 Feb 2008
    Messages:
    268
    Likes Received:
    35
    Reputations:
    0
    можно ли через перл слать мейлы с подменой адреса?
    на подобии как пхп скрипты "анонимная отправка почты"
    лазил в гугле нечего толкового не нашел
     
  20. SHiNiGaMi

    SHiNiGaMi Banned

    Joined:
    3 Jan 2010
    Messages:
    382
    Likes Received:
    55
    Reputations:
    15
    попробуй Net::SMTP
    либо описание SMTP почитай и на сокетах напиши
     
Thread Status:
Not open for further replies.