urxvt рулить нереально ( Read more... )

my $relay_agent = join (':', map {if (length == 1) {'0' . $_} else {$_}} @agent_id);
Це прекрасно, я вважаю.

Тут, нещодавно, aceler писав про DBus, qdbus і всяке таке...
Я вирішив викласти свій скрипт now-playing для irssi. На Perl я ніколи нічого не писав, не сильно сваріть :)

use Irssi;
use Net::DBus;
use strict;

use vars qw($VERSION %IRSSI);

$VERSION = "2.00";
%IRSSI = (

authors => 'madf',
name => 'Amarok status',
description => ' ( Read more... )