Command Line Proxy Grabber

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

  1. IZpk-A

    IZpk-A Registered Member

    Joined:
    Aug 28, 2016
    Messages:
    51
    Likes Received:
    8
    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