Спам листы

Xakep, номер #022, стр. 022-044-3

while ($string=<MAIL>){ # Считываем строку

$find=0; # Ставим начальное значение 0

for ($i=0; $i<=$#base; $i++){ # Задаем цикл от 0 до кол-ва считанных mail'ов

if ($string eq $base[$i]) {$find=1;} # Если найден повторяющийся mail, то ставим флаг

}

if ($find==0) {push (@base, $string);} # Добавляем, если это неповторяющийся e-mail

}

close (MAIL); # Закрываем файл с базой

open (MAIL, ">".$data{base}.$data{filebase}); # Открываем файл с базой

print MAIL @base; # Перезаписываем базу

close (MAIL); # Закрываем файл с базой

print "База проиндексирована\n";

Теперь у тебя есть полноценный комплект для сбора своих спам листов. А что делать совсем ленивым? Специально для таких я сделал готовую программу MailCut. Она уже идет как exe файл, который не надо компилировать ;). Просто пускаешь файл, и все происходит само. Правда замечательно? =) Просто заходи на www.xakep.ru/articles/releases и там все найдешь.

Там и описание есть, и все что нужно...