Музычки

Залил себе в проигрыватель Rammstein образца 2009 года, альбом Liebe Ist Fur Alle Da.
Определённо доказывают чуваки, что и для звуковоспроизведения тяжёлой музыки нужен талант.

"Проброс" USB устройств в VMware Server 2 на Debian Lenny

Для того, что бы гостевая ОС в VMWARE Server 2 видела подключенные USB устройства хоста (Debian Lenny) в /etc/init.d/mountkernfs.sh поправить запись:

domount usbfs usbdevfs /proc/bus/usb usbfs -onodev,noexec,nosuid,devgid=1001,devmode=664

Отожгли.

Демотиватор, мля. В точку.

Хоть и не пятница, но опять офисное.

Офисно-планктонное

Python, Tkinter и развернутое на весь экран окно

Как сделать главное окно Tkinter развернутым на весь экран при запуске приложения (касательно Linux):
from Tkinter import *
root=Tk()
frame=Frame(height=root.winfo_screenheight(),width=root.winfo_screenwidth())
frame.pack()
root.mainloop()

Настройка aptitude для работы через proxy и список обхода

Возникала необходимость загрузки пакетов Debian с зеркала, которое находится в нете. Используется прокси сервер. Основное зеркало находится в локальной сети.
Для этого в /etc/apt/apt.conf надо дописать:
ACQUIRE {
http::Proxy "http://myproxy.mydmain.com:3128";
http::Proxy::localmirror.mydomain.com "DIRECT";
};
Т.е. на localmirror будет ходить напрямую. На все остальные через проксю.

Утечки памяти в perl

Хорошая статья по поводу утечек памяти в программах на Perl

Семь драконов, мешаюших жить в гармонии с миром

Алчность, высокомерие, нетерпеливость, упрямство, самоуничижение, склонность к мученичеству и саморазрушению - так зовут этих драконов, по мнению Хосе Стивенса.

Perl/Tk. Передача параметров по цепочке процедур.

У меня возникла необходимость в передаче объекта Perl/Tk в качестве параметра процедуры, для дальнейшего создания его дочерних объектов (элементов интерфейса) внутри этой процедуры.
Сначала напишем простой код:

#! /usr/bin/perl
use strict;
use Tk;
my $mw=new MainWindow;
print $mw;
После запуска видим следующий вывод:
MainWindow=HASH(0x9acfcc0)
Теперь создадим процедуру создания кнопки для дочернего окна:
sub create_button {
my $mw=shift; #Получаем переданный параметр
print $mw;
}
Если теперь вызвать эту процедуру из main::
...
create_button($mw); #mw - созданный MainWindow
...
То получим вывод:
REF(0x9da0340)

Т.е. получаем ссылку. Для того, что бы можно было создавать дочерние объекты с переданной в качестве аргумента ссылкой на родительский объект, ее нужно разыменовать.

$$mw->Button(-text=>'button')->pack();

Подробнее о ссылках и разыменовании ссылок perl.

2009 наступил, праздники прошли

Собственно, забросил на некоторое время блог.
Наступил 2009 год, пришел так называемый кризис.
Ко всему прочему я еще и приболел. Что ж, найду время и настроение проанализировать прошедший период, выделить ключевые (для меня) события, и начать строить планы на 2009.