Парсер email

[ruslanback]

Помогите найти прогу для извлечения всех имейлов из текстового файла. С меня база адресов линейщиков 200к+ штук.

[Zeratyl]

Месье, никак задумали, спам рассылать? Что хорошо у Шоу, то у вас - нехорошоу.

Прогу можно накатать на сишке, strstr творит чудеса.

[Romka]

Я когда таким занимался(в смысле выдирал инфу из тхтшника) Notepad++ обходился

[Arzamas]

в каком виде записи в файле?

[ruslanback]

INSERT INTO accounts VALUES ('njk96', '7pTPxgaWdKQ8EuooU5WckMHapzGrfV2Az5HmAHMHirKiQR9DX RgReycLUWa0galo+m+zga0ZKGO8eROjOVob5g==', '1304321111', '0', '213.138.88.204', '1', null, 'null@null', '1', '1.5', '1304804556', '0', '*', '604800', '1', '0', '54321', '12345', 'tkachenko.tolik@mail.ru');

leonid73@yandex.ru:vfyzif

ff21f515b070be079abae5128a20093c:9<Irr$`|q}Y20; r-5W7Nn|1;{1N]":andrei.callahan@yandex.ru

Pizda:::ncixe9@mail.ru:::1abc172a279384fa948acbe244e2939a:::,ii

[Effas]

Удали все таблицы кроме Емейла, затем конверт в тхт, в чем сложность?!

[FewG]

Могу написать, не даром, разумеется. Пиши в ПМ.

[BigSnake]

скрипт getmail.pl

PHP код:

while (<>) {
  chomp;
  if (/(([a-z0-9_\-]+\.)*[a-z0-9_\-]+@([a-z0-9][a-z0-9\-]*[a-z0-9]\.)+[a-z]{2,4})/i) {
     print "$1\n";
  }
} 


запуск

PHP код:

type input.txt  | perl getmail.pl  > result.txt 


нужен установленый перл

[Dеmon]

Можно поудалять лишние колонки через тот же Навикэт, а можно и через Excel.

[Arzamas]

PHP код:

<?php
$path = "./forum.sql"; //путь к файлу с мылами
$save_path = "./result.txt"; //файл результата
$pattern = '/\b[A-Z0-9._%+-]+@(?:[A-Z0-9-]+\.)+[A-Z]{2,6}\b/i';
$contents = file_get_contents($path);
preg_match_all($pattern,$contents,$matches);
foreach($matches[0] as $value){
    file_put_contents($save_path,"$value\r\n",FILE_APPEND);
}
?>

Скачать это безобразие => _http://rghost.ru/37152550

З.Ы. Скаченное распаковать, открыть email.php, вписать необходимые пути, запустить start.bat, радовацца...