Perl a Titanik (doufam, ze naposled)

[Michael Mraka]

Panove,
 nechci vam rusit vase kruhy... (tahle debata sem _fakt_ nepatri):

% > # a = (1,2,3,(1,2,3,4,(1,2,3,4,("x","y","z")),5,6,7),4,5,6)
% > 
% > tohle je obycejny seznam zapsatelny normalne jen jako:
% > 
% > @a = (1,2,3,1,2,3,4,1,2,3,4,"x","y","z",5,6,7,4,5,6);
% 
% Tak to tedy neni. To neni seznam, ale seznam, ktery

Ale je :-)

% obsahuje jine seznamy, ktere obsahhuji jine seznamy.
% Takto jse z toho udelal neco ponekud jineho.
% 
% > # Tak a kdo zan perl muze mi poradit jak vypsat 
% > # prvek obsaujici "y". Pokud se nepletu
% > # tak a[3][5][5][2]. jsem zvedav kolik lidi
% :)
% 
% > # co si mysli, ze umi perl to zvladne na prvni pokus (nebo
% > # alespon na 3) :-)
% > 
% > $a[12]

$ perl -e '@a = (1,2,3,(1,2,3,4,(1,2,3,4,("x","y","z")),5,6,7),4,5,6);
print $a[3][5][5][2],"\n";'

$ perl -e '@a = (1,2,3,(1,2,3,4,(1,2,3,4,("x","y","z")),5,6,7),4,5,6);
print $a[12],"\n";'
y

Takze kdo umi ten perl lip? (Milan :-)

...
% ale muzeme to jeste o neco zeslozitit:
% 
% a = (0, 1, 2, 3, (0, 1, {'addr': '192.168.0.1', 'os': 'linux', 'name':
%      'internal.cz', 'users': ('karel', 'pavel', 'petr', 'alena')}))

Ale ne, tohle asi fakt neni nejlepsi misto na exhibice, nechcete si to
radeji vyridit soukromou postou?

Predem dekuji za vsechny, kteri to musi cist/mazat ze svych mailboxu.
(A sam si udeluji 5 trestnych bodu za prispevek mimo tema konference. :( )


--mm                                                            Michael Mráka
                                                        michael(at)fi.muni.cz