Черновик парсера-граббера сайтов на Perl

Этот код выдирает и показывает текущую погоду с главной страницы яндекса и сохраняет результат в файл.

#!/usr/bin/perl -w
sleep (3);
use LWP::UserAgent;
use HTTP::Request;
$url = "http://www.yandex.ru";
$lwp = LWP::UserAgent->new;
$r = HTTP::Request->new(GET => "$url");
$response = $lwp->request($r);
if ($response->is_success)
 {
    $tmpout =  $response->content;
#    $tmpout =~  s/agava/zzzz/g;
  $_ = $tmpout;
    open ($FILE1, ">", "test.html");
    print $FILE1 "$1\n" while m/(<div>.*?<\/a><\/div><\/div>)/g; 
    close $FILE1;
 }
else
 {
  print $response->error_as_HTML;
 }
 sleep (3);

Полученный файл — кусок html кода, который в браузере будет выглядеть примерно так:

perlЧтоб допилить под конкретные задачи — можно добавить пару регулярных выражений, чтоб убрать или добавить теги, переписать сохранение файла, например под формат CSV для Excel, ну и добавить сборку ссылок для перебора в цикле, чтоб получился паучок. Можно выгребать например адреса, телефоны, цены и т.п., главное правильно шаблоны составить или в инете готовые найти. Может кому пригодится.

Dokan — программа для подключения сетевых дисков в Windows через SSH

Dokan — программа для подключения сетевых дисков в Windows через SSH

Раньше лежала по этому адресу:

http://dokan-dev.net/en/download/

Сейчас ссылка не работает, видимо домен истёк.

Установка: сначала установить library потом 0.2.0 затем 0.6.0

OpenNews: Представлены первые телефоны на базе Firefox OS

OpenNews: Представлены первые телефоны на базе Firefox OS.

Проект Mozilla представил две первые модели телефонов на базе мобильной платформы Firefox OS, подготовленные проектом Geeksphone совместно с компаний Telefonica. Устройства позиционируется как ознакомительные модели (Developer Preview), ориентированные на разработчиков мобильных приложений для платформы Firefox OS, предлагающей унифицированный Web API для разработки с использованием стандартных HTML5-технологий, CSS и JavaScript.