get proxy จากเว็บ

###########################
#!/usr/bin/perl
#Modify By Angeling_
#www.openkore.in.th
###########################
use strict;
use warnings;
use LWP::UserAgent;

my $useragent = LWP::UserAgent->new();
$useragent->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");

for (my $i=1;$i<50;$i++) {

    my $respone = $useragent->get("http://www.hidemyass.com/proxy-list/search-226162/"."$i");

    my @list = split (/<td><span><style>/,$respone->content);

    foreach (@list) {
        if ($_ =~ /<html>/) {
            next;
        }
        my @flag=();
        $_ =~ s/\n//g;
        (my $gflag) = $_ =~ /^(.+)<\/style>/;
        my @aflag = split (/\./, $gflag);

        foreach my $fl (@aflag) {
            if ((my $result) = $fl =~ /(.?.?.?.)\{display:inline\}/) {
                push (@flag, $result);
            }
        }

        my @aspan = split (/span/, $_);

        foreach my $sspan (@aspan) {
            foreach my $fl (@flag) {
                if ((my $result) = $sspan =~ /class=\"$fl\">(\.[0-9]+\.|[0-9]+\.|\.[0-9]+|[0-9]+|\.)/) {
                    print $result;
            open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
                print OUTFILE $result;
                close OUTFILE;
                }
            }
            if ((my $result) = $sspan =~ /class=\"[0-9]+\">(\.[0-9]+\.|[0-9]+\.|\.[0-9]+|[0-9]+|\.)/) {
                print $result;
            open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
                print OUTFILE $result;
                close OUTFILE;
            }
            if ((my $result) = $sspan =~ /style=\"display: inline\">(\.[0-9]+\.|[0-9]+\.|\.[0-9]+|[0-9]+|\.)/) {
                print $result;
            open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
                print OUTFILE $result;
                close OUTFILE;
            }
            if ((my @result) = $sspan =~ /(<\/div>|^>)(\.[0-9]+\.|[0-9]+\.|\.[0-9]+|[0-9]+|\.)/) {
                print $result[1];
            open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
                print OUTFILE $result[1];
                close OUTFILE;
            }
            if ((my $result) = $sspan =~ /style>(\.[0-9]+\.|[0-9]+\.|\.[0-9]+|[0-9]+|\.)/) {
                print $result;
            open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
                print OUTFILE $result;
                close OUTFILE;
            }
        }
        (my $port) = $_ =~ /<td>([0-9]+?)<\/td>/;
        print ":$port\n";

        open OUTFILE, ">> proxy.txt" or die "Can't open proxy.txt: $!";
            print OUTFILE ":".$port."\n";
            close OUTFILE;
    }
}