perl

  1. R

    Парсер прокси на Perl

    #!/usr/bin/perl -w use LWP::UserAgent; use threads; use threads::shared; my @sites : shared; my $threads = 1; my $proxy = 'proxy.txt'; open (F, ">>$proxy") || die("Could not open ".$proxy." file!!!"); @sites = qw(http://fineproxy.ru/ http://hideme.ru/proxy-list/http/...