Proxy cheker на Perl

Discussion in 'Анонимность' started by vegetativniy, 13 Feb 2014.

  1. vegetativniy

    vegetativniy Banned

    Joined:
    23 Dec 2013
    Messages:
    31
    Likes Received:
    10
    Reputations:
    5
    лол
     
    #1 vegetativniy, 13 Feb 2014
    Last edited: 8 Dec 2015
    1 person likes this.
  2. 4upakabr0

    4upakabr0 Member

    Joined:
    14 May 2008
    Messages:
    124
    Likes Received:
    23
    Reputations:
    0
    еще не видел таких же функциональных, говоришь? :)

    тут немного о многопоточности в пёрле и заодно реализован чекер с парсером, подобный твоему. работает из коробки.

    upd: а ссылочку то я и забыл. тыц
     
    #2 4upakabr0, 13 Feb 2014
    Last edited: 13 Feb 2014
  3. m1lq

    m1lq New Member

    Joined:
    19 Jan 2014
    Messages:
    0
    Likes Received:
    1
    Reputations:
    0
    Зачем заставлять людей вводить свой ип вручную? ;(
    Вы же сами писали "мини" регесп ниже в скрипте..., почему бы не сделать так:
    PHP:
    my $ip_my='http://www.myip.ru/get_ip.php?loc=';
    my $ua LWP::UserAgent->new;
    $ua->agent("Mozilla/5.0");
    my $res=$ua->get($ip_my);
    exit if (!
    $res->is_success);
    my $s=$res->decoded_content;
    $s=~m/(\d+\.\d+\.\d+\.\d+)/s;
    my $ip=$1;
    и на кой черт каждый раз удалять rezults и proxy? хотите переписать то '<' ставите, дописать '<<'
     
    1 person likes this.