Perl a Titanik (doufam, ze naposled)

[Petr Snajdr]

On Thu, 19 Aug 1999, Michael Mraka wrote:

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

Jako prave misto vypada konference perl na muni.cz, budiz vse jiz 
nadale  smerovano tam. 
 
> % > # 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 :-)

Pak by me ovsem zajimalo
jak ziskam toto: ("x","y","z")

> % 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";'

Vypada to logicky, ale nefunguje to. To je mimo jine i ono zminovane
svadeni k chybam.
 
> $ 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

Tohle zase funguje, ale kdyz to clovek nevi tak mu to moc logicke
neprijde a ani to moc logicke neni.

> % 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')}))
> 

S napetim ocekavam tu konstrukci, ktera z toho dostane jmeno 'petr'
tj. neco jako: a[4][3]['users'][2] :-)

--

S pozdravem
   Petr Snajdr

Seznam Ceskeho Internetu: http://www.seznam.cz/
Magazin pro kazdeho: http://www.novinky.cz/
Seznam Dnes: http://dnes.seznam.cz/
Navody, recenze, technika: 
http://www.novinky.cz/Index/TechDesk/ 
------------------------------------------------------
Zacit se dnes ucit Perl je jako koupit si listek na Titanic