rulinux.net. - Все о GNU/Linux и не только - Добавить комментарий

Imager-Screenshot-0.009

Обновился очередной модуль для снятия скриншотов с экрана. По display name и window id (see man 7 X) выбирает активное (или нет) приложение и делает его снимок. Ниже приведен небольшой perl-script, позволяющий с консоли по названию приложения, высвечивающегося как правило в левом верхнем углу любого графического приложения, сделать его скриншот.

\cut{Читать далее}

perl



#!/usr/bin/perl -w



use Imager::Screenshot 'screenshot';

use strict;

my $id_by_name;

&def_id_by_name();

my $img = screenshot(display => '0', id => $id_by_name ) || print Imager->errstr;

$img->write(file=>"screen.ppm") || print $img->errstr;



sub def_id_by_name{

  my @m = split /\n/ => qx[xwininfo -root -children -all];

  foreach(@m){

    do{

      my $t1 = qx[xwininfo -id $1];

      do{

        $id_by_name = hex($1) if $t1=~m/(\dx([\d\w]){4,})\s/;

      }if $t1=~m/$ARGV[0]/is;

    } if m/(\dx([\d\w]){4,})\s/;

  }

}

Запускать так:

[vilfred@localhost devel]$ perl x.pl bash
screen.ppm
[vilfred@localhost devel]$ ls screen.ppm
screen.ppm
[vilfred@localhost devel]$

и в файле screen.ppm находится скриншот окна, в заголовке которого XWindow написал bash

>>> Подробнее

vilfred(*)(2010-06-30 16:01:00)

anonymous@RULINUX.NET~#	Last login: 2025-04-08 03:51:03
Регистрация Вход	Новости \| Разметка \| Пользователи \| Галерея \| Форум \| Статьи \| Неподтвержденное \| Трекер \| Правила форума \| F.A.Q. \| Ссылки \| Поиск

Тема:
Ваш комментарий:
Выберите фильтр:	матерные выражения торсионщина нацпол спам флуд порно изображения модераторские/пользовательские фильтры
	Введите символы либо ответ (если на картинке задача):

	Пользователям браузеров без CSS: Поле для проверки, заполнять НЕ НАДО: