Форум АНТИЧАТ - Показать сообщение отдельно

Возможно тебя заинтересует реализация этой же идеи грабера проксей под Никсы на перле.

PHP код:


		
			
#!/usr/bin/perl -w



# Declare modules

use LWP::Simple;

use HTML::TableExtract;



# Local Variables

my $url_file   = "url.list";

my $proxy_file = "proxy.list";





open URL,  "<$url_file";

while (<URL>) {

foreach ($_) {

print "[+] Downloading raw proxy list: $_";

@html_string = get("$_");

}

foreach $html_string (@html_string) {

&parse_data($html_string);

}

}

close URL;



sub parse_data {

open OUT,  ">>$proxy_file";

($html_string) = @_;

print "[+] Parsing data...\n";

$te = new HTML::TableExtract( headers => [qw(Name Port)] );

$te->parse($html_string);

foreach $row ($te->rows($table)) {

 my ($addr, $port) = @$row;

 $addr =~ s/\s+//g;

 $port =~ s/\s+//g;

 if ($port =~ /\d+/) {

 print OUT "$addr:$port\n";

 }

} close OUT;

#$table = "null";

}