Это пример программы Hello world, которая выводит это знаменитое сообщение и завершается.

SECTION .data
msg db "Hello, world!",0xa ;
len equ $ – msg
SECTION .text
global main
main:
    mov eax,4
    mov ebx,1
    mov ecx,msg
    mov edx,len
    int 0x80
    mov eax,1
    mov ebx,0
    int 0x80

Ничего похожего не нашёл.

Листинг 0. Минимальное графическое приложение на Perl-Gtk2

#!/usr/bin/perl
use Gtk2 -init;
my $window = Gtk2::Window->new();
$window->show_all();
Gtk2->main();

Нарисует окно. При нажатии на “крестик” на окне, закроется только само окно, а программа не завершится… Поэтому “CTRL+C”.

Листинг 1. Чтение нажатий клавиатуры (аккордов)

#!/usr/bin/perl
use Gtk2 -init;
use Gtk2::Gdk::Keysyms;

$accel_group = Gtk2::AccelGroup->new;
$accel_group->connect ($Gtk2::Gdk::Keysyms{'A'}, 'control-mask', 'visible', \&action);

$window = Gtk2::Window->new;
$window->add_accel_group ($accel_group);

$window->signal_connect (delete_event => sub {Gtk2->main_quit});
$window->show_now;

Gtk2->main;

sub action {
    print "Key Pressed\n";
}

В примере читается нажатие аккорда “A + CTRL”

UPD 17.12.09

Все аккорды можно найти в файле site/lib/Gtk2/Gdk/Keysyms.pm

Если о таком не знали, наберите в консоли “ppm” – будет интересно.

Однако, и там не всё есть что нам надо… И тогда стоит заглянуть на CPAN.org. Уж там то вы найдёте пакет для любой задачи. Однако, некоторые из них нужно будет скомпилировать под вашу систему. Задача вполне выполнимая, но трудоёмкая.

Именно в такой ситуации я оказался, когда захотел поставить Perl-Gtk2 на свою Windows XP. И, если честно, несколько опешил, ведь под Ubuntu этот пакет ставился одним запросом apt-get… Собирать пакет мне не хотелось, поэтому я решил поискать другие варианты.

Таким вариантом оказался другой дистрибутив Perl’а “Camel Box”.

Чтобы его установить, нужно скачать exe’шник с code.google.com весом ~ 100кб, запустить его. Перед Вами появится окно:

Жмём “Next”, соглашаемся с лицензией (GPL, если кому интересно). Получаем окно выбора пактов, которые нам понадобятся (и которые нужно будет установщику вытянуть из интернета).

После нажатия кнопки “Install” он их успешно скачивает и устанавливает.

Ну и конец установки:

После чего мы можем найти свежеустановленный дистрибутив в папке C:/camelbox (ну или другой диск (какой у вас системный)).

Теперь, чтобы начать использовать его библиотеки,

их надо добавить в массив поиска библиотек. Делается это просто:

BEGIN{
    @INC = (@INC,'C:/camelbox/site/lib');
}

Именно там лежит файл Gtk2.pm. Напоминаю, что содержимое блока BEGIN выполняется до выполнения всего остального кода, поэтому во время вызова use Gtk2 -init; perl уже будет знать, где ему искать.

Ну и в конце – код, которым можно проверить, установился ли у вас Gtk2 или нет:

#!/usr/bin/perl

BEGIN{
    @INC = (@INC,'C:/camelbox/site/lib');
}

use strict;
use warnings;

use encoding 'cp1251';

use Gtk2 -init;

my $window = Gtk2::Window->new('toplevel');
$window->signal_connect( delete_event => sub { Gtk2->main_quit } );

my $button = Gtk2::Button->new('Прощай, Мир!');
$button->signal_connect( clicked => sub {Gtk2->main_quit});

$window->add($button);
$window->show_all();

Gtk2->main();

UPD

Чтобы каждый раз не добавлять в @INC новый путь, можно скопировать C:/camelbox/site/lib в C:/perl/site/lib . Всё равно она по умолчанию пустая стоит…

Что это?

Из названия понятно, что это программирование, ориентированное на объекты.

Что есть объект?

Да хоть что! Все можно воспринимать как объект: стакан — объект, ложка в стакане — опять же объект, и даже ложка со стаканом так же может восприниматься как объект.

И чем же тогда нам может помочь понятие, включающее в себя всё? Ведь, говоря, что «всё — объект», мы лишаем уникальности любое подмножество этого «всего». Впринципе, так и есть: мы обезличиваем вещи, делаем их проще. Зачем? Да чтобы проще было с ними работать!

Чем же этот поход к программированию хорош?

Тем, что такой подход наибоее близок к человеческому пониманию. Представьте, что я бы сказал, что стакан — это множество значений, таких как «высота», «ширина», «длина» и «объём». Такого представления стакана нам хватит, чтобы написать программу, подбирающую упаковку для стакана (размеры упаковки) + мы могли бы сделать возможность выбора (для пользователя) «какого объёма ему нужна тара». Впринципе, для интернет-магазина этого уже может и хватает… Итого, нам потребовалось 4 сущности для описания такой вещи как стакан. Мы их удерживали в голове как отдельные вещи… Думаю, не стоит Вам объяснять, что держать в голове 4 вещи сложнее, чем одну (стакан), пусть даже и подразумевая, что у него есть какие-то параметры…

Что мы сделали, собрав воедино высоту, длину, ширину и объём? Мы абстрагировались от них на новый уровень абстракции(извините за тавтологию) – «стакан», мы инкапсулировали 4 сущности в одну! «Абстракция данных» и «инкапсуляция» являются одними из принципов ООП.

Хм… стакан — это, конечно, хорошо, но вот наш интернет-магазин набрал обороты, и наши покупатели не довольны, что у нас стаканы не различаются по цвету… Мы можем сказать «O’key, ща напишу новую абстракцию ‘цветной стакан’», но делать это «с нуля» глупо, лучше использовать наработки из «предыдущей серии». И вот мы берём наш старый тип абстракции «стакан» и, основываясь на нём, создаём новый, но с дополнительным пунктиком – «цвет». Но делаем это не банальным переписованием, а говорим «нам, пожалуйста, тип абстракции, основанный воооон на том, но с новым пунктом ‘цвет’». И у нас готов новый класс, как бы наследующий от предыдущего все качества. Этот принцип называется «наследование». Мы получили «ребёнка»(потомка) от родительского типа «стакан»(предок), который унаследовал все плохие и хорошие качества отца

Отлично! Теперь у нас есть механизм создания сложных иерархий(родов). Причём каждый следуйщий в роду наследует все качества предыдущего и добавляет некоторые свои… А вдруг унаследовалось что-то «плохое»(ненужное), или нам просто показалось, что в этом поколении какое-то свойство должно выполняться по-другому… Например, всё тот же тип «стакан», был у него метод(действие над ним) «запаковаться», где он брал свои габариты, выбирал коробку из какой-то базы и командовал «запаковать» вот в эту коробочку…

Но пришли новогодние праздники и вы создали «стакан новогодний подарочный», наследуясь от «цветного стакана» (ну, вы помните, абзацем ранее мы его создали), а «цветной стакан» унаследовал метод упаковки от обычного стакана. Но нам то нужен не обычный способ! Всё-таки праздники ! Мы, конечно, можем создать новый метод «упаковать празднично», а тот (предположим его звали «упаковать») оставить «на память» об эволюционном процессе (подобно копчику)… Но такой подход до добра не доведёт: ну ладно, 1 копчик… а представьте 10 Так что надо что-то делать! И тут нам ООП предлагает «полиморфизм» – это когда одному названию соответствует несколько вещей. В нашем случае — одному методу «упаковать» мы сопоставим 2 команды. То есть переопределим в нашем новогоднем типе этот метод по-своему (сбантиками и блёстками)… И никаких копчиков!

И что же мы в итоге получили: абстракцию данных, инкапсуляцию, наследование и полиморфизм. Вот четыре принципа ООП, которые облегчают нам задачу проектирования сложных конструкций. А программирование с учётом этих четырёх принципов — и есть ООП.

Ничего похожего не нашёл.

import _mysql

db = _mysql.connect("localhost","user","password","dbname");

db.query("""SELECT * FROM table""")

(('поле 1', 'поле 2', … ,'поле n'),)

Ничего похожего не нашёл.

Программа получает на вход параметры SERVER USER PASSWORD TIME. Последнее – время, через которое повторяются проверки. Программа работает по принципу “пока не остановишь”.

При написании использовалась утилита zenity(отрисовка графического окна), о которой уже писалось ранее. Соединение с серврером идёт по протоколу POP 3, с которым можно ознакомится здесь.

При запуске программа говорит нам, что у нас новое письмо… Это баг. Мне лень его править. Возникает он из-за того, что по-началу $count – наш счётчик писем нулевой.

Ещё один момент: адрес сервера, на котором находится сервер вашей почты, может(и скорее всего) не совпадать с адресом POP 3 сервера. К примеру, для mail.ru следует запрашивать pop3.mail.ru, для yandex.ru – pop.yandex.ru, у нашего местного “мегасайта” e1.ru , так вообще mail.e1.ru. Как узнать? – Спрашивайте на своих серверах. А вообще, это обычно на них публикуется…

Код подкрашен утилитой code2html

#!/usr/bin/perl
#
# Made by Helios aka h15 from UseUnix.RU
#
# параметры: Server User Pass Time

use strict; # Эта прагма не даст вам писать "неправильно", т.е. следит за
            # объявлением переменных и прочими делами.

use IO::Socket; # Для работы с сокетами высокого уровня.

my($count, $sock); # Глобальные переменные. Count - кол-во сообщений (именно
# так мы проверяем наличие нового), sock - сокет, который у нас один на всё.

while(1){ # Запускаем "вечный" цикл
    pop3_conn(@ARGV[0..2])? # коннектимся к серверу (+авторизация)
        print "[+] Permissoin allowed!\n": # Получилось!
        die "[-] Permission denied\n";     # Не получилось.

    check_for_new_mail(@ARGV[0..2]); # Непосредственно проверялка.

    &quit; # Выходим (по протоколу POP 3)

    sleep $ARGV[3]; # ReUse timer
# P.S. В @ARGV лежат параметры, передаваемые программе, начиная с нуля.
}

########################### Подпрограммы ###########################

# Подпрограмма выдаёт вход на консоль и в информационное окно (создавая его)
#
sub alert {
    my $msg = shift;
    print "[!] $msg\n";
# текст, заключённый в `` будет исполнен в командной строке.
    `zenity --info --title="Сообщение" --text="$msg"`;
# Информацию по утилите zenity можно найти здесь:
# http://useunix.ru/zenity-sozdanie-gtk-interfejsov-pryamo-iz-konsoli/
}

sub quit {
    print $sock "QUIT\n"; # Выходим
    my $answ = <$sock>;
    print "[i] Quit\n";
}

# Подпрограмма проверяет положительность ответа сервера
# На вход идёт ответ сервера
# На выходе - 0, если ответ положительный, 1 - в противном случае.
#
sub Chk {
    my $is = substr shift, 0, 1; # Берём 1ый символ
    return $is eq '+' ? 0 : 1;   # Если это "+" - возвращаем 0, иначе - 1
}

# Подпрограмма создаёт соединение с сервером, авторизуется
# Вход - Сервер, Юзер, Пароль
# Выход - 1, в случае успеха, 0 - в противном.
#
sub pop3_conn {
    my($srv, $user, $pass) = @_;
# Коннектимся к серверу $srv по TCP на порт 110 (порт протокола POP3). Т.е.
# создаём сокет(пару IP,ПОРТ).
#
# PeerPort можно было поставить "POP3" или "110", а можно и так, как сделали мы.
    $sock = IO::Socket::INET->new( # Сделали $sock глобальной.
        PeerAddr => $srv,
        Proto    => "tcp",
        PeerPort => "POP3 (110)"
    )   and print "[+] Connected!\n"
        or  die "[-] Can't connect to $srv\n";
# Ну, и, как обычно, если не смогли соединиться (вернули 0), умираем.

# Авторизуемся (по протоколу POP3)
    my $answ = <$sock>;        # Получаем приглашение авторизации
    return if Chk $answ;    # Проверяем положительный ли ответ пришёл

    print $sock "USER $user\n"; # Шлём на сервер user'а
    $answ = <$sock>;
    return if Chk $answ;

    print $sock "PASS $pass\n"; # Шлём пароль
    $answ = <$sock>;
    return if Chk $answ;

    1 # Возвращаем TRUE. Во всех предыдущих return летел FALSE.
}

sub get_mail_num {
    my($srv, $user, $pass, $err_cnt) = @_; # $err_cnt остаётся неинициированным
STAT:
# Если 10 раз не вышло переподключиться - ломаемся.
    alert("Smth broke... Sorry, $user.") and die("[-] Smth broke... Sorry.\n") if ++$err_cnt > 10;
    print $sock "STAT\n"; # Шлём на сервер запрос кол-ва сообщений и их размера.
    my $answ = <$sock>;
    pop3_conn(@_) and redo STAT if Chk $answ; # При ошибке, переустанавливаем соединение

    $answ =~ /^\s*\+\w+\s+(\d+)\s+/; # Достаем и ответа число писем

    $1 # Результат поиска лежит здесь, его возвращаем
}

# Подпрограмма проверяет наличие новых сообщений по кол-ву писем.
# Вход: Server, User, Password
# Выхода нет...
#
sub check_for_new_mail {
    my($srv, $user, $pass) = @_;
    my $mails = get_mail_num @_;
    if ($mails > $count){
        alert("New mail for $user");
        $count = $mails;
    }

    print "[i] Mail counter = $count\n";
}

Введение

Обзор wxWidgets

Обзор wxPerl

The previous wxPerl wiki was not only spammed, but someone managed to entirely erase everything on disk that had to do with the kwiki-wiki. It’s now reinstalled and recovered as far as possible.

So…

please feel free to, create an account and start adding information!

Cheers.

Установка в Linux

Установка в Windows

Минимальное приложение на wxPerl

wx-minimal.pl:

#!/usr/bin/perl

#
# Александр Симаков, <xdr (тчк) box на Google Mail>
# http://alexander-simakov.blogspot.com/
#
# Простейшая программа использующая wxPerl
#

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin";

use Wx;
use MinimalApp;

sub main() {
    # Создаём экземпляр приложения и ...
    my $minimal_app = MinimalApp->new();
    # ... запускаем цикл обработки событий.
    $minimal_app->MainLoop();
}

main();

MinimalApp.pm:

package MinimalApp;

#
# Александр Симаков, <xdr (тчк) box на Google Mail>
# http://alexander-simakov.blogspot.com/
#
# Минимальный класс приложения WxPerl
#

use strict;
use warnings;

use utf8;
use encoding 'utf8';

use Wx;
use base qw{ Wx::App };

sub OnInit {
    # Создаём окно
    my $frame = Wx::Frame->new(
        undef,                              # Родительское окно
        -1,                                 # ID окна (-1 значит сгенерировать автоматически)
        'Минимальное приложение на wxPerl', # Заголовок окна
        [ -1, -1 ],                         # Позиция окна (значение по умолчанию)
        [ 450, 100 ],                       # Размер окна
    );

    # Отображаем его на экране
    $frame->Show( 1 );
}

1;

Вид в Linux

Вид в Windows

Wx::Demo

Вид в Linux

Вид в Windows

Вид в Linux

Вид в Windows

Вид в Linux

Вид в Windows

Выводы

Ссылки

• Подборка tutorial-ов по wxPerl
• Статья: wxPerl: Another GUI for Perl
• Статья: Создание GUIs средствами WxPerl
• Статья: Создание кросс-платформенных GUI-приложений с использованием wxWidgets
• Perl и GUI. Сравнение тулкитов
• wxPerl mailing list
  
• Официальный блог wxWidgets

• wxPython
• wx.NET
• wxEuphoria
• wxLua
• wxBasic

Статья опубликована на портале CITForum

zenity [OPTION...]

Для начала вызов help’а:

 -?, --help                      Показать параметры справки
 --help-all                      Показать все параметры справки
 --help-general                  Показывать общие параметры
 --help-calendar                 Показывать параметры календаря
 --help-entry                    Показывать параметры ввода текста
 --help-error                    Показывать параметры диалога вывода ошибки
 --help-info                     Показывать параметры диалога вывода информации
 --help-file-selection           Показывать параметры диалога выбора файлов
 --help-list                     Показывать параметры списка
 --help-notification             Показывать параметры значка уведомления
 --help-progress                 Показывать параметры хода процесса
 --help-question                 Показывать параметры запроса
 --help-warning                  Показывать параметры диалога для вывода предупреждения
 --help-scale                    Показывать параметры масштаба
 --help-text-info                Показывать параметры текстовой информации
 --help-misc                     Показывать прочие параметры
 --help-gtk                      Показать параметры GTK+

Ну и непосредственно параметры для отрисовки GTK окна

 --calendar                      Отобразить диалог для выбора даты
 --entry                         Отобразить диалог для ввода текста
 --error                         Отобразить диалог для вывода ошибки
 --info                          Отобразить диалог для вывода информации
 --file-selection                Отобразить диалог для выбора файла
 --list                          Отобразить диалог со списком
 --notification                  Отобразить диалог уведомления
 --progress                      Отобразить диалог хода процесса
 --question                      Отобразить диалог с вопросом
 --warning                       Отобразить диалог с предупреждением
 --scale                         Отобразить диалог масштаба
 --text-info                     Отобразить диалог с текстовой информацией
 --display=DISPLAY               X display to use

Примеры:
zenity --info --title="Пример" --text="Это текст для примера"

ls `zenity --entry --title="Пример ввода" --text="Напишите, например '/media':"`
(zenity выводит в консоль содержимое поля, как на примере – если ввести путь, то zenity передаст его команде “ls”)

Ничего похожего не нашёл.

Введение

Библиотека GTK+

Установка в Linux/BSD

Установка в Windows

Минимальное приложение

#!/usr/bin/perl

#
# Александр Симаков, <xdr (тчк) box на Google Mail>
# http://alexander-simakov.blogspot.com/
#
# Простейшая программа использующая Gtk2-Perl
#

use strict;
use warnings;

# Включаем поддержку Unicode
use utf8;
use encoding 'utf8';

# Загрузка и инициализация библиотеки Gkt2. Инициализация
# библиотеки (параметр -init) должна выполняться ровно
# один раз.
use Gtk2 -init;

sub main() {
    # Создаем главное окно
    my $window = Gtk2::Window->new('toplevel');

    # Устанавливаем обработчик сигнала закрытия окна
    $window->signal_connect( delete_event => sub { Gtk2->main_quit } );

    # Создаем кнопку
    my $button = Gtk2::Button->new('Тест');

    # Устанавливаем обработчик на кнопку
    $button->signal_connect( clicked => sub {
        print("Тест Gtk2-Perl\n");
    });

    # Помещаем кнопку на окно
    $window->add($button);

    # Делаем окно, а также все дочерние виджеты видимыми
    $window->show_all();

    # Запускаем цикл обработки событий
    Gtk2->main();
}

main();

Вид приложения в OpenBSD:

Вид приложения в Windows:

Выводы

Ссылки

• Домашняя страница проекта GTK+
• Домашняя страница проекта Gtk2-perl
• ActivePerl от ActiveState
• Домашняя страница Camelbox
• Gtk2-perl FAQ
• Gtk2-perl tutorial by Dirk van der Walt
• Gtk2-perl tutorial by Dov Grobgeld
• Gtk2-perl tutorial by Emmanuele Bassi
• Статья: Subclassing Widgets In Perl

Статья опубликована на портале CITForum