Небольшой скрипт, помогающий сгенерировать кусок файла конфигурации squidGuard
на основе архива блэклистов с сайта urlblacklist.com:

   #!/usr/bin/perl

   #var
   my $db_dir="/var/db/squidGuard";
   my @db_dir;
   my $c=0;
   my $i=0;
   my @dd;

   #main
   chdir "$db_dir";
   opendir (DIR,".") or die "Не могу открыть директорию $!\n";
   @db_dir= readdir(DIR);
   close (DIR);

   foreach my $d (@db_dir) {
        next if ($d eq ".");
        next if ($d eq "..");
        if (-d $d) {
                kat($d);
                @dd[$i]="!$d";
                $i++;
        }
   }
   print "@dd\n";

   sub kat {
        my ($d)=@_;
        print "dest $d {\n";
        if (-f "$d/urls") {
                print "\t urllist $d/urls\n";
        }
        if (-f "$d/domains") {
                print "\t domainlist $d/domains\n";
        }
        print "}\n";
   }


В директорию /var/db/squidGuard разворачиваем архив блеклистов (например, с
сайта http://urlblacklist.com/?sec=download) при помощи скрипта генерируем
готовые куски файла конфигурациии.