выложу скриптик (копирайт mizzy :))разбирает в удобоваримый список украинских сетей:#!/usr/bin/perl
use Net::Netmask;
$in = "/usr/local/bin/wget -O - http://colocall.net/ua/?list";
$out = "/usr/local/etc/uaprefixes";
$squid = "/usr/local/sbin/squid";
open(UA, "$in |") || die("Can't open $in!");
while (<UA>) {
next if !(/^\d+\.\d+\.\d+.\d+/);
chomp;
/(.*)\/\d+/;
$uanet = new Net::Netmask("$_");
$subnet = 0;
foreach $net (@uanets) {
if ($net->match("$1")) {
$subnet = 1;
last;
}
}
push(@uanets, $uanet) if ($subnet == 0);
}
close(UA);
open(UAS, ">$out") || die("Can't open $out!");
foreach $net (@uanets) {
print UAS $net->desc() . "\n";
}
close(UAS);
system("$squid -k reconfigure");
так как списки меняються, то в кроне выполнение каждые минут 20 :)