Парсер адресов с Mail-ответов.

Написал небольшой парсер E-mail адресов с проекта Ответы.mail.ru. Надеюсь кому-то пригодиться.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use LWP::Simple;
$page = 5; #Глубина парсинга
@dirs = qw(auto business countries magic relax food animals_plants love culture it health_beauty science education society travel job family sport lifestyle goods_services philosophy foto_video law humor mailru other newcomers); #Категории вопросов
for(@dirs) {
 for ($i=1; $i<=$page; $i++){
  $pars = get("http://otvet.mail.ru/".$_."/open/?pg=".$i);
  my @data = ($pars) =~ m#url\?to=(.+)\" onclick=#g;
  open(MAIL, '>> mail.txt');
  print MAIL join("\n", @data)."\n";
  close(MAIL);
 }
}
Рубрика: Программирование | Метки: , , , , , | комментария 3
  • Lex

    Когда подобным страдал, парсил моймир. Техника проста до невозможности — смотрим главную, ползем по друзьям, и так можно делать до бесконечности. Учитывая то что акк создается там автоматически базу можно собрать огого.

  • MERRON

    Сейчас сделали регу в моем мире по подтверждению телефона

  • парсинг рабочий?