- #на работаспасобность скрипт не проверила
- #переменные переименуй в свои
- if ($res->is_success)
- #если результат положительный
- {
- $page = $res->content;
- $page =~ s/<[^>]*>//g;
- #удаляем теги
- #и выводим только интересующий нас текст
- while($page =~ m/((.{4,})(\d{2,}))/ig) {
- print "$1 \n";
- open(LOG,">>log.txt"); #пишем в лог
- print(LOG "$1 \n");
- close(LOG);
- #насрал? Уберай за собой. Всегда закрывай файл после записи
- }
- }else{
- $res->status_line,"\n";
- }