Архив метки: исходники

Черновик парсера-граббера сайтов на 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, ну и добавить сборку ссылок для перебора в цикле, чтоб получился паучок. Можно выгребать например адреса, телефоны, цены и т.п., главное правильно шаблоны составить или в инете готовые найти. Может кому пригодится.

Делаю самодельный видеоплеер для вебкамеры в QtCreator

Исходные данные

Имеется нетбук c Ubuntu 11.10 и отечественный автомобиль с вебкамерой, прицепленной на заднем стекле. При их скрещивании получается устройство

/dev/video0

Что нам надо

Буду писать програмку, которая будет для меня показывать картинку с вебкамеры. Всякие плееры вроде VLC конечно хорошо, но в своём творении можно и кнопочек полезных добавить, и картинки в интернет пулять, и ещё много чего полезного придумать. Для начала ограничимся минимумом — пусть у нас в окне будет виджет, который будет нам показывать картинку с камеры. Всё остальное можно будет нашлёпать сверху позже. Для всякой мультимедии в Qt используется модуль Phonon, будем использовать его.

Готовимся

Предварительно должен быть установлен QtCreator. Ещё устанавливал следующие пакеты:

$ sudo apt-get install phonon-backend-vlc
 $ sudo apt-get install libphonon-dev

Пока их не поставил — почему-то ничего не хотело работать. Может быть ещё что-то должно быть установлено, но у меня уже было, в коментах спросите если надо.

Поехали

Ну значит создаём проект как обычно. Названия классов не менял, проект обозвал MyCameras. Первым делом открываем MyCameras.pro и правим первую разумную строчку чтоб получилось

QT       += core gui phonon

Теперь берёмся за mainwindow.cpp (привожу сразу весь код, там немного):

#include "mainwindow.h"
#include "ui_mainwindow.h"
#include <Phonon/VideoPlayer>
MainWindow::MainWindow(QWidget *parent) :
 QMainWindow(parent),
 ui(new Ui::MainWindow)
 {
 ui->setupUi(this);
 qApp->setApplicationName("mycameras");
 Phonon::VideoPlayer *player = new Phonon::VideoPlayer(Phonon::VideoCategory, this);
 connect(player, SIGNAL(finished()), player, SLOT(deleteLater()));
 QString url = "v4l2://///dev/video0";
 player->resize(300,200);
 player->move(0,0);
 player->play(Phonon::MediaSource(url));
 }
MainWindow::~MainWindow()
 {
 delete ui;
 }
самодельный видеоплеер для вебкамеры в Qt

самодельный видеоплеер для вебкамеры в Qt