Mamy w pracy drukarkowy kombajn OKI MC-560. Drukuje czarnobiało i w kolorze, jedno- i dwustronnie, skanuje, faksuje, krawaty wiąże… Ma też swoje wady a najbardziej dotkliwą (oprócz częstego zakleszczania się papieru) jest problem z drukowaniem dłuższych dokumentów, zwłaszcza zawierających większe ilości ilustracji. Drukarka po otrzymaniu takiego pliku potrafi najzwyczajniej w świecie się zawiesić, potrafi też przerwać wydruk w przypadkowym miejscu.

Dostałem ostatnio trochę emaili, dla których chciałem zachować w książce adresowej nadawców lub odbiorców (maile grupowe). W webowym interfejsie GMaila jest to nieprzyjemnie pracochłonne – trzeba klikać każdy z adresów z osobna.

Rok temu zabawiałem się publikując dość nietypowy skrypcik perlowy. Tego typu żarty wypada z czasem wyjaśnić, dlatego dzisiaj pokrótce opiszę jak go uzyskałem i jak można w łatwy sposób wygenerować coś podobnego.

Chyba najczęstszy błąd, jaki zdarza mi się spotykać w kodzie perlowym, wygląda tak:

while( my ($key, $value) = each %CONFIG ) {
     process_cfg_item($key, $value);
}

albo tak: