Say Perl

Perlovyj module Lingua:: Translate umeet transliterirovatʹ nelatinskij množestvom sposobov text. Dlâ russkoj kirillicy takih sposobov - Pat:

#! / Usr / bin / perl

use Lingua:: Translit;

my $ sample = 'Hey, evil! Where tuz? Praca v ûnyh Šemšić Škafa. ';

my $ tr;

for ('ALA-LC RUS', 'ISO 9', 'DIN 1460 RUS', 'RUS GOST 7.79', 'RUS GOST 7.79 OLD') {

$ Tr = new Lingua:: Translit ($ _);

printf "% 17s% s \ n", $ _, $ tr -> translit ($ sample);

}

Vyvodit:

 ALA-LC RUS EI, zhlob! Where tuz? Priach 's iunykh "ëmshchits v shkaf.
            ISO 9 Hey, evil! Where tuz? Praca v ûnyh Šemšić Škafa.
     DIN 1460 RUS Hey, evil! Where tuz? Prjač 's junych "ëmščic v Škafa.
    GOST RUS 7.79 E `j, zhlob! Where tuz? Pryach yuny'x `s `` yomshhicz v shkaf.
GOST RUS 7.79 OLD E `j, zhlob! Where tuz? Pryach yuny'x `s `` yomshhicz v shkaf. 

 perl-Mdata:: Dumper-e '@ a = @ b = 0 .1; print Dumper [\ (@ a, @ b), \ (@ a), \ (@ b)]'
$ Var1 = [
          [
            0,
            1
          ]
          [
            0,
            1
          ]
          \ $ Var1-> [0] [0],
          \ $ Var1-> [0] [1]
          \ $ Var1-> [1] [0],
          \ $ Var1-> [1] [1]
        ]; 

YAPC:: Europe 2010th Pisa. 4 August

yapc.tv

RFC793 variables by their proper names.
This means you can read the code and the spec side by side (and laugh ...)

Map of Kraut-rock

K your services.