Сначала в рабочей директории создадим папку с конфигом:

$ mkdir config

Теперь в ней создадим файл конфига:

$ nano -w config/user.conf

Заполним его:

{
  'username' => 'Gmail username',
  'password' => 'Gmail password',
  'timeout' => '300', #количество секунд между запросами 
}

Добавим немного красивости. Создадим директорию для иконки и возможно еще чего-нибудь еще:

$ mkdir share
$ mkdir share/icons
$ cd share/icons
$ wget -c http://www.google.com/intl/ru/options/icons/gmail.gif
$ cd ../..

Теперь сам скрипт:

$ nano -w gmail

Пишем:

01. #!/usr/bin/perl
02. use strict;
03. my $path = `pwd`; $path =~ s/\n//i;
04. my $icon = $path.'/share/icons/gmail.gif';
05. my $config = require $path.'/config/user.conf';
06. getMail();
07. sub getMail() {
08.    my $recieve = `curl -u $config->{'username'}:$config->{'password'} --silent "https://mail.google.com/mail/feed/atom" | grep -c "<entry>"`;
09.    $recieve =~ s/\n//i;
10.    `notify-send -u low -t 7000 -i $icon "Получено $recieve новых писем"` if $recieve != 0;
11.    sleep($config->{'timeout'});
12.    getMail();
13. }

Сохраняем и запускаем:

$ ./gmail &

Как то вот так…

Screenshot

Пойду теперь работать…

1. Определяемся, где у нас лежит информация о батарее.

2. Пишем скрипт.

Первое что пришло на ум, это perl, хотя уверен, реализовать такое легко и на bash

1. #!/usr/bin/perl -w
2. my ($file1,$file2,@data,$damage,$current);
3. #читаем файл с информацией о батарее
4. open F1, '/proc/acpi/battery/BAT1/info'; while (<F1>) { $file1 .= $_; }; close F1;
5. open F2, '/proc/acpi/battery/BAT1/state'; while (<F2>) { $file2 .= $_; }; close F2;
6. #выбираем интересующие нас данные
7. return unless @data[0] = $file1 =~ /design\scapacity\:\s+(\d+)\s\w+/;
8. return unless @data[1] = $file1 =~ /last\sfull\scapacity\:\s+(\d+)\s\w+/;
9. return unless @data[2] = $file2 =~ /remaining\scapacity\:\s+(\d+)\s\w+/;
10. #считаем проценты
11. $damage = 100-(@data[1]/40);$damage = sprintf("%.1f",$damage);
12. $current = (@data[2]*100)/@data[1];$current = sprintf("%.1f",$current);
13. #вызываем внешнюю программу для отображения данных
14. `notify-send -u critical -t 7000 -i battery "
15. \tТекущий заряд батареи $current%
16. \n\tИзнос батареи $damage%
17. "`

Вот собственно и все, при вызове этой программки получаем нечто подобное:

При желании можно вызывать скрипт посредством bash скрипта, а если сделать симлинк на этот скрипт в /usr/local/bin, то можно, в добавок, повесить вызов уведомления на хоткей.

Сразу оговорюсь, то, о чем пойдет речь может пригодиться только тем, кто:

• часто использует в работе ssh и ftp
• имеет необходимость работать с несколькими серверами
• использует linux и xfce

Итак, собственно сабж. Используя вышеупомянутый модуль и bash-скрипт для автоматического ввода пароля ssh, я написал простенький perl скрипт, который назвал довольно тривиально – Perl Connection Manager. Скрипт генерирует xml файл, который представляет собой компонент меню для xfce. В итоге, подключив полученый файл с помощью xfce4-menueditor, получаем вложенную менюшку, элементами которой являются пусковички для консоли и файлового менеджера (на данный момент это Midnight Commander). Вся соль в том, что в консоли автоматически открывается ssh соединение, указанное в параметрах элемента меню, ну а в правой панели MC, соответственно, дерево каталогов на удаленном ftp сервере. Помимо этого решил не лениться, и снабдил скрипт какой-никакой, но документацией, а так же добавил иконки, которые теперь отображаются в меню.

Скрипт можно скачать тут. Вопросы и предложения приветствуются.

Конференция

2 ноября 2008 года в Ростове-на-Дону прошел 3-й Российский Perl Workshop, в числе участников которого мне посчастливилось оказаться. Мероприятие оказалось более чем интересным, к тому же, это было первое подобное мероприятие, на котором мне довелось побывать.

Первым выступил Андрей Шитов, организатор Perl-конференций в России, Украине и Беларуси, лидер Moscow.pm, автор perl6.ru. Он рассказал о perl-мероприятиях в целом и частностях, в дальнейшем он так же выступил с рядом докладов, в том числе с докладом о развитии Perl 6, который мне показался одним из самых интересных.

Алексей Капранов, руководитель отдела Rambler-почты, вдохновитель Lightning Talks в России, Moscow.pm, рассказал о том, как разрабатывалась почтовая система Rambler, и о интересных нюансах, с которыми столкнулись разработчики.

Анатолий Шарифулин, ведущий программист компании «Точка Кипения«, лидер RostovOnDon.pm рассказал о разработке интерактивных терминалов на базе Perl, XML и Firefox.

Интерактивный терминал: Perl, XML и Firefox from Dmitry Konstantinov on Vimeo.

Блиц-доклады

Фотоотчет

#!/usr/bin/perl
use strict;
use base::MyXML;
our $top = MyXML->GXM(«1.0″,»utf-8″)->{«header»};
our $tag = MyXML->GXD(
«content»,
join(»,
MyXML->GXDM(«elem»,['type=app','name="Console"'],)->{«result»},
MyXML->GXDM(«elem»,['type=app','name="Editor"'],)->{«result»},
MyXML->GXDM(«elem»,['type=app','name="Player"'],)->{«result»},
),
['name="Soft"'],
)->{«result»}
open(FH,»>data.xml»);
print (FH $top.»n»);
print (FH $tag.»n»);
close(FH);

в итоге получился такой вот документ:

<?xml version=»1.0″ encoding=»utf-8″?>
<content name=»Soft»>
<elem type=»app» name=»Console» id=»1.1″ />
<elem type=»app» name=»Editor» id=»1.2″ />
<elem type=»app» name=»Player» id=»1.3″ />
</content>

На последок все же пару слов о MyXML. В распоряжении разработчика предоставляются 3 метода (пока 3 , а именно GXM(формирующий заголовок документа), GXD(формирующий открывающий, закрывающий теги, атрибуты по необходимости, и собственно, то, что между тегами заключено) и GXDM(формирующий «пустой тег» с атрибутами по необходимости).