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

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

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

    Foxer007 Member

    Joined:
    9 Nov 2008
    Messages:
    0
    Likes Received:
    14
    Reputations:
    -5
    Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана.
    Вот сам скрипт:

    http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
     
  2. m0nzt3r

    m0nzt3r моня

    Joined:
    22 Jun 2004
    Messages:
    2,096
    Likes Received:
    673
    Reputations:
    591
    правильней:
    unpack('H*hex', 'text');
    :)
     
    4 people like this.
  3. $p01nt

    $p01nt Elder - Старейшина

    Joined:
    19 Feb 2008
    Messages:
    116
    Likes Received:
    20
    Reputations:
    1
    Ребят, можно ли работать с LWP через socks и если да то как?
    Если нет, через что можно?
     
  4. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Поставь модуль
    http://search.cpan.org/~scr/LWP-Protocol-socks-1.1/lib/LWP/Protocol/socks.pm
     
    _________________________
  5. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    101
    Likes Received:
    22
    Reputations:
    5
    нет. я его не запускал.
     
  6. GAVVVR

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

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    Помогите плиз
    $smth =~/title"\svalue\="(.*)">/
    У меня в переменной $smth много есть участков, которые удовлетворяют вышенаписанному условию.
    Но как сделать, чтобы перл присваивал переменной $1 значение из последнего совпавшего участка текста в переменной $smth?
     
  7. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    811
    Reputations:
    231
    Можно например так сделать:

    Code:
    $text = "value=1 value=2 value=3 value=4";
    $m = ( $text =~ /=(\d+)/g )[-1];
    print $m;
    
     
    _________________________
    2 people like this.
  8. Foxer007

    Foxer007 Member

    Joined:
    9 Nov 2008
    Messages:
    0
    Likes Received:
    14
    Reputations:
    -5
    Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана.
    Вот сам скрипт:

    http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
     
  9. GAVVVR

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

    Joined:
    8 Apr 2008
    Messages:
    60
    Likes Received:
    0
    Reputations:
    0
    Kaimi, спасибо.
    Вот хочу я, чтобы ко всем новостям сайта (двиг - ДЛЕ 7.3) были сделаны ключевые слова и описание. В ДЛЕ есть генератор этот находится в http://domain/engine/ajax/keywords.php
    Делаю туда пост запрос аналогично браузеру, а он мне возвращает только слова на английском(те, что латиницей). Очень странно. Когда я жму на кнопку "Сгенерировать ключевые слова" в одминке через браузер - генерирются, к примеру, слова
    А результат пост запроса, сделанный через LWP таков:
    Никак не могу понять в чем проблема. Какие у Вас возникают мыслишки по этому поводу? Мне что то не понять - почему такое происходит((?
     
  10. ph1l1ster

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

    Joined:
    11 Mar 2008
    Messages:
    396
    Likes Received:
    153
    Reputations:
    19
    Скрипт юзает прокси, как перейти к сделующей прокси в списке при опред. условии?
     
  11. eLWAux

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

    Joined:
    15 Jun 2008
    Messages:
    860
    Likes Received:
    616
    Reputations:
    211
    ph1l1ster, скрипт покажи
     
  12. ph1l1ster

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

    Joined:
    11 Mar 2008
    Messages:
    396
    Likes Received:
    153
    Reputations:
    19
    eLWAux, Что там показывать то?? обычный скрипт с LWP::UserAgent

    Code:
    $url="ссылко";
    $start=LWP::UserAgent->new or die;
    if($proxy)
    {			
    $start->proxy('http',"http://".$proxy."/");
    print "## Using proxy ".$proxy."\n";
    }
    $browse = $start->get($url) or die ;
    
    $cont = "контент";
    if (index($browse->content,$cont)>-1)
    {
    print "Next proxy!";
    }
    
    и вот когда нашёл $cont надо перейти на другую проксю и опять его искать.))
     
  13. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    101
    Likes Received:
    22
    Reputations:
    5
    ph1l1ster, вызови еще раз метод proxy(), только с другими параметрами! Только сам поиск надо в цикл запихнуть.
     
    1 person likes this.
  14. ph1l1ster

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

    Joined:
    11 Mar 2008
    Messages:
    396
    Likes Received:
    153
    Reputations:
    19
    есть скрипт:

    Code:
    open(PASS,"pass.txt")
    $pass=<PASS>
    
    $url="ссылка".$pass."ссылка";
    $br = LWP::UserAgent->new( ) or die;
    $a = $br->get($url);
    if (index($a->content,$index)>-1)
    {
    print $pass;
    }
    
    как реализовать многопоточность, чтобы в каждом новом потоке бралась новая строчка из $pass
     
    #934 ph1l1ster, 13 Feb 2009
    Last edited: 13 Feb 2009
  15. demond

    demond Member

    Joined:
    5 Nov 2008
    Messages:
    101
    Likes Received:
    22
    Reputations:
    5
    Можно заморочиться с POE и событийной машиной, но вот с thread-ми завязываться не советую. Я однажды реализовывал что-то подобное (чтение из файла и запись в файл) и проблема у меня была с тем, что в процессе чтения из файла происходило переключение контекста! Это приводило к тому что строка считывалась не полностью сразу двумя процессами. Блокировки на файл мне не помогли.
    Может я конечно что-то не так делал, но с тех пор решил с потоками не связываться.
     
  16. [dei]

    [dei] Active Member

    Joined:
    24 Nov 2008
    Messages:
    171
    Likes Received:
    112
    Reputations:
    5
    ph1l1ster

    пример.. дальше сам
    Code:
    #!/usr/bin/perl -w
    use LWP::UserAgent;
    use threads;
    
    ##############
    $threads = 5;
    ##############
    
    open(PASS,"pass.txt");
    @pass=<PASS>;
    
    sub brut( $ ) {
        my $c = $_[0];
        for(my $i=$c;$i<scalar(@pass);$i+=$threads) {
    
            my $url = "ссылка".$pass[$i]."ссылка";
            my $br = LWP::UserAgent->new( ) or die;
            my $a = $br->get($url);
            if (index($a->content,$index)>-1)
            {
                print $pass[$i];
            }
        }
    }
    
    my @threadz;
    
    for my $i (0..($threads-1)) {
    	push @threadz, threads->create(\&brut, $i);
    
    	sleep(1);
    }
    
    
    for(@threadz) {
    	$_->join();
    }
     
    1 person likes this.
  17. ankden

    ankden New Member

    Joined:
    28 Apr 2008
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    помогите пожалуйста написать скрипт на shell, извините что не в тему пишу другого места не нашел,

    Удаление всех файлов с указанным суффиксом, к которым не было обращений указанное число дней.

    с меня плюс и вечная благодарность :)
     
  18. Foxer007

    Foxer007 Member

    Joined:
    9 Nov 2008
    Messages:
    0
    Likes Received:
    14
    Reputations:
    -5
    Всем привет. Помогите в спамере по одноклассникам от Каими сделать что б он спамил по онлайн пользователям только с Украины, России и Казахстана.
    Вот сам скрипт:

    http://kaimi.ru/wp-content/uploads/2009/01/pack.rar
     
  19. $p01nt

    $p01nt Elder - Старейшина

    Joined:
    19 Feb 2008
    Messages:
    116
    Likes Received:
    20
    Reputations:
    1
    Ребят, привет всем!
    У меня такой вопрос, пытаюсь авторизироваться на сайте отправив методом POST логин и пароль, ничего не получается (хотя на некоторых других - все ОК!). Собсно ошибка:
    Как я понимаю проблема с SSL сертификатом. Без SSL авторизация не удается :(
    Собсно сам код:
     
  20. svesve

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

    Joined:
    15 Jun 2007
    Messages:
    574
    Likes Received:
    86
    Reputations:
    11
    Подскажите как можно оптимизировать данный скрипт?
    Скрипт открывает файл,далее выдирает значение после точки запятой и пихает в массив,далее необходимо удлаить повторяющиеся значения и посчиттаь кол-во уников...дело в том что размер файла около 4Гб

    PHP:
    #!/usr/bin/perl  
    my @res= (); 
    use 
    strict
    use 
    warnings;  
    open my $FILE'<''file.txt' or die "Open error: $!\n"
    my @= <$FILE>; 
    chomp @f
    close $FILE
    while (@
    f)     { 
    my ($a$b,$c,$d) = split(/;/, shift(@f));  
    push(@res$d); } 
    @
    resgrep{!$_{$_}++} 
    @
    res; print "Unique numbers is:".scalar(@res);
    З.ы. за кривость не бейте )
     
Thread Status:
Not open for further replies.