1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Command Line Proxy Grabber

Discussion in 'PHP & Perl' started by IZpk-A, Jan 5, 2017.

  1. IZpk-A

    IZpk-A Newbie

    Joined:
    Aug 28, 2016
    Messages:
    28
    Likes Received:
    1
    Gender:
    Male
    how to use?
    1.install perl
    2. copy this scripts
    3. Run

    Code:
    #!/usr/bin/perl
    use strict;
    use warnings;
    use WWW::Mechanize;
    my $Grab_It = WWW::Mechanize->new();
       $Grab_It->get('http://www.atomintersoft.com/proxy_list_port_80');
            my @ips= $Grab_It->text() =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\:\d{1,5})/g;
            foreach (@ips){
                my $proxy = $_;
                print "$proxy\n";
            }
       
    #Code By Orang Kampung 2017
    
     
    • Thanks Thanks x 1