Vlákno názorů k článku Perl nebo Python? od podlesh - Tak jsem jednou dělal po čase něco v...
-
podlesh (neregistrovaný)Tak jsem jednou dělal po čase něco v perlu a potřeboval jsem zjistit délku pole.
V dokumentaci je starý trik (byl tam vždy, co pamatuji): $#pole+1
Samozřejmě script nefungoval, ale nakonec jsem to uplácal do funkční podoby (v některých jazycích se píše a ladí, v perlu holt umím jenom hníst a plácat).
Zkušený perlista mi pak odhalil v čem je chyba: takto se délka pole nezjišťuje, zjišťuje se přetypováním na číslo. Trik s $#pole dokonce nefunguje, protože $#pole je u prázdného pole 0 a nikoliv -1. Skutečně, zkusil jsem to a bylo tomu tak.
Před chvílí jsem to zkoušel zde na perlu v5.8.4, a $#pole na prázdném poli je -1. Tak nevím, že bych už měl schizofrenní bludy? -
anonymníkorektny sposob zapisu je: $#pole + 1 - $[;
man perlvar
$[
The index of the first element in an array, and of the first character in a substring. Default is 0, but you could set it to 1 to make Perl behave more like awk (or Fortran) when subscripting and when evaluating the index() and substr() functions. (Mnemonic: [ begins subscripts.)
As of Perl 5, assignment to ``$['' is treated as a compiler directive, and cannot influence the behavior of any other file. Its use is discouraged. -
podlesh (neregistrovaný)Dobrý tip, ale není tomu tak. Tímhle by se posunuly veškeré indexy, a tak tomu nebylo. Normálně všechno fungovalo, pro jednoprvkové pole bylo $#pole = 0, ale pro prázdné také!
Prostě správné řešení je (jak zde již padlo) scalar(@pole), $#pole někde nedokáže rozlišit mezi polem prázdným a jednoprvkovým. Že to normálně funguje je sice hezké, ale spolehnout se na to nedá. -
To je to, co me odradilo od Perlu, kdyz jsem se rozhodoval jestli Perl, nebo Python. Proste ten krypticky zapis, ktery se objevuje v ruznych snippets na webu.
U Pythonu mi to prijde mnohem citelnejsi:
>>> pole=[20,10,30]
>>> len(pole)
3
Jinak to, co mi chybi u Pythona je takova podpora v online manualu, jako ma PHP. -
anonymníMyslim, ze hodnotne jsou oba jazyky a to z ruznych duvodu.
Priklad rozdilu:
python:
Mnohem jednodussi syntaxe. Z toho vyplyva treba jednodussi implementace interpretru/kompilatoru. Mene chyb apod. Je to samozrejme dano striktnim objektovym pristupem.
perl:
Pokud oznacuji promenne jako skalar '$', pole '@', asociativni pole '%', tak hned vidim, co je to za promennou.
ten Vas priklad:
pocitac: {1} perl -d -e 42 Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 42 DB<1> x @array = (1,2); 0 1 1 2 DB<2> x $#array 0 1Jasne jde videt, ze array je pole. Podle '@'.
Pocet prvku pole je '$#' a je to skalar, takze '$'.
Ja treba pouzivam $# misto scalar, je to mnohem rychlejsi psat.
Kdyz volam treba posledni prvek pole: $array[$#array].
Cele je to prvek pole, tudiz skalar.
Chtel jsem tim jenom rict, ze to ma logiku.
V perl6 je/bude tohle zmenene. Misto $array[1] bude @array[1].
Bude zaveden alternativni objektovy pristup pro ziskani posledniho prvku pole, pro delku pole apod. -
mj (neregistrovaný)@pole, $#pole urcite funguje
Horsi je tenhle sek:
perl -e "$ra_pole = [1,2,3]; $elems = scalar($ra_pole); print 'posledni: ' . ($elems-1);"
vypise: 23219983
Problem je ze scalar reference na pole vraci adresu v pameti. Pro delku je tedy nutne pouzit: scalar( @$ra_pole ); Ale pote co tuhle chybu naleznete, si to zapamatujete.
V Perlu 6 je/bude:
pugs -e "my @ra=(1,2,3,4); say join ' ', @ra.end, @ra.elems, @ra
.perl"
coz vypise: 3 4 [1, 2, 3, 4]
Pro s{\@ra}{\$ra} to bude totez.
