>Погоди, чё-то не сходится. Как ты мог писать от фагота, когда ты себя забанил по ип?
Может быть так?
#!/usr/bin/perl
use strict;
use warnings;
use LWP;
our $browser = LWP::UserAgent->new();
parse('index');
for(my $i = 2; $i <= 20; $i++){
sleep(6);
parse(sprintf('proxy-%02d', $i));
}
sub parse {
my $html = $browser->get('http://www.samair.ru/proxy/' . shift() . '.htm')->content();
while($html =~ m{(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})}){
print("$1\n");
$html = $';
}
}
#!/usr/bin/perl
use strict;
use warnings;
use LWP;
our $browser = LWP::UserAgent->new();
parse(0);
for(my $i = 1; $i <= 16; $i++){
sleep(1);
parse($i);
}
sub parse {
my $html = $browser->get('http://www.nntime.com/index.php?start=' . (shift() * 50 + 1))->content();
while($html =~ m{(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})}){
print("$1\n");
$html = $';
}
}
#!/usr/bin/perl
use strict;
use warnings;
use LWP;
my $browser = LWP::UserAgent->new();
$browser->timeout(1);
while(my $proxy = <>){
check($proxy);
}
sub check {
my $proxy = shift();
chomp($proxy);
$browser->proxy('http', "http://$proxy/");
print("$proxy\n") if $browser->get('http://www.samair.ru/proxy/proxychecker/results.htm')->cont
ent() =~ m{hight};
}
Ну раз такая пьянка, тоже скажу честно что я думаю:
1) Виста рулит! Даже в виде беты под которой я сижу!
2) Линух ацтой, только LinuxXP еще ничё так...
чтож, время перемен пришло.
принял решение гнать поганой метлой FreeBSD со своего ноутбука.
да и с серваков тоже..(ближе к вечеру напьюсь и возьмусь за дело)
посоветуйте какой-нибудь классический rpm-based линух в духе RedHat
пока склоняюсь к Fedora, но говорят там все пакеты собраны с отладочной информацией(?).
либо к одному из клонов RHEL.
решил начать процесс изгнания демонов с машины под хостинг. только не решил чем заменить bsd-jail(там десяток виртуальных хостов крутиться).. пока склоняюсь user mode linux.
pps только что ознакомился с возможностями iproute2 и решил заменить корневой роутер(26-я кошка) на линух-роутер.
Помню, в начале 90-х в новостях сказали что наша славная милиция задержала инопланетянина и посадили его в кутузку. Поднялась волна народного гнева; мы с друганом на полном серьёзе планировали акцию освобождения несчастного...
молод был и глуп, про то что это была первоапрельская шутка - дошло только через день :)