Какие еще 24 часа? Такое только шарлатаны могут написать. Я тебе дал ссылку - там есть нормальная книга в 1150 страниц.
Есть такая книга, я думал ты знаешь...
Эта ссылка не работает, но всё же нашел книгу скачал.
Изучать буду...со своими то способностями ! думаю долго буду... но пока я буду писать этот скрипт на основе других похожих, т.к он нужен сейчас.
Добавлено через 1 час, 14 минут и 41 секунду:#!/usr/bin/perl
use LWP::UserAgent;
my $u = new LWP::UserAgent;
open (FILE, '<', 'urls.txt') or die $!;
while(<FILE>)
{
chomp;
my $page = $u->get($_)->content;
}
close FILE;
open FILE, '<', 'good.txt';
if ($u =~ /[\.\-_A-Za-z0-9]+?@[\.\-A-Za-z0-9]+?[\.A-Za-z0-9]{2,}/) {
print FILE ;
close(FILE);
}
в общем сел вроде как обдумал, собрал свои куски постов в единый, но почему то записи мейлов good так и нет..доведите до ума, а то столько возиться уже смешно (=