Perl提取网页的内容

提取里面的ip和端口号

# cat getproxy.pl

use LWP::Simple;
use strict;

my $page = get "";

for ( split/\n/,$page) {
    next unless /(\d+\.\d+\.\d+\.\d+).*\(":"\+(q\+d)\)/ or /(\d+\.\d+\.\d+\.\d+).*\(":"\+(z\+b\+k\+q)\)/;

    my $ip = $1;
    my @p = split/\+/,$2;
    my $port = @p > 2 ? 3128 : 80;

    print "$ip:$port\n";
}


# perl getproxy.pl

72.246.25.33:80
203.178.133.3:3128
122.252.60.10:80
174.142.104.57:3128
72.246.103.42:80
72.246.220.10:80
77.87.124.102:80
62.233.138.180:3128
148.233.239.23:3128
72.246.25.18:80
64.212.198.38:80
209.8.115.120:80
202.144.79.6:80
72.246.25.9:80
12.24.45.100:80
64.73.37.166:80
72.247.24.10:80
209.8.115.127:80