Perl pro zelenáče

17.9.2011 20:28 | Přečteno: 3286× | | poslední úprava: 17.9.2011 20:28

Nedávno jsem si zakoupil knihu Perl pro zelenáře od Pavla Satrapy a dneska jsem se vrhnul do čtení a zkoumání tajů tohoto - někým milovaného, někým nenáviděného - jazyka. Začátky však nejsou nikterak slavné...

Jsem teprve na začátku knihy a řeknu vám, že jsem se teda pořádně zapotil při snaze pochopit tak prostou funkci jako je substr! No řekněte sami:

$str = "abc";
$out = substr($str, 0, 1, "");
print "str: $str\nout: $out\n";

Celou dobu jsem nedokázal pochopit, proč bude v proměnné $out znak "a". Pokud to dobře chápu, nejprve se provede $out = substr($str, 0, 1) a až poté se v proměnné $str nahradí první znak prázdným znakem? Člověk by řekl, že to bude prosté jako bulharská striptérka, ale mně to teda jasné není. A nebo už fakt přicházím o mozkové buňky.

Dneska bylo Perlu dost, mrknu na to zase zítra, teď se jdu rozčilovat pro změnu na Aukro.        

Komentáře

[robotics]

No docela masakr. Nejsem žádnej programátor, takže tohle vůbec nechápu. Ale chci začít s Pythonem. Ten by měl být jednodušší.

[Bystroushaak]

Python je super, můžu ti ho jen doporučit. Navíc má v čechách dobrou komunitu, kolem stránek py.cz, která mi nejednou pomohla.

[kyytaM]

do premennej out sa vlozi obsah premennej str, ale funckiou substr odseknuty od indexu 0 (prvy znak) o 1 znak. Cize z retazca "abc" vysekne prvy znak - do out sa priradi "a" ("bc" sa zahodi).

[Petr Maleček]

Přesně, je to stejné jako třeba v PHP

[manasekp]

k cemu tam je ten ctvrty parametr "" ?

[kyytaM]

substr EXPR,OFFSET,LENGTH,REPLACEMENT substr EXPR,OFFSET,LENGTH substr EXPR,OFFSET

Takze pri takomto pouziti ("") je tam zbytocny. Keby tam bolo "b", tak vysledok v out je "b".

[MMMMMMMMM]

Obávám se, že to funguje poněkud jinak. Bude-li tam prázdná závorka, proměnná $str bude zkrácena o první znak (pozice 0, délka 1). Bude-li tam cokoliv jiného, bude tímto první znak v proměnné $str nahrazen. V $out bude vždy "a". A to je to, co mi prostě nedávalo smysl. :)

[MMMMMMMMM]

místo prázdná závorka mělo být prázdné uvozovky

[manasekp]

to je nejake divne, pripada me ze u takove funkce replacement neni potreba

[Filip Jirsák]

replacement je volitelný čtvrtý parametr. Někdy potřebujete získat část řetězce podle indexů, někdy část řetězce podle indexů potřebujete nahradit – a Perl má funkci, která to podle způsobu použití umí obojí, případně i najednou. Řekl bych, že je to takové typicky perlovské řešení.

[John Hartigun]

Nemelo by to pak vratit "bc"? Podretezec 0..1 by se nahradil prazdnym retezcem.

[Filip Jirsák]

Ne. substr vrací podřetězec určený indexem a délkou (2. a 3. parametr). Čtvrtý parametr nijak neovlivňuje vracenou hodnotu, ale původní řetězec předaný jako 1. parametr.

V pseudokódu využívajícím trojparametrický substr() to dělá zhruba tohle:

$result = substr($string, $offset, $length);
$string = substr($string, 0, $offset) + $replacement + substr($string, $length+$offset, strlen($string)-$length-1);
return $result

Přičemž $string není zkopírovaná hodnota, ale je to pořád ten „původní“, tj. funkce změní jeho hodnotu i z pohledu kódu, který funkci vyvolal.

[John Hartigun]

Aha, uz chapu :)

[mirec]

Asi začínam chápať prečo niektorí tvrdia o perl-e, že je write-only. Aj tak sa ho pokúsim naučiť.

[CEST]

U svatyho Linuse! To jsem vsichni takovy lamy? Sakra, Linuxovej system ma snad na kazdej prd man stranky, perl ma dokonce tech stranek nekolik, podle kategorie:

   Overview
           perl                Perl overview (this section)
           perlintro           Perl introduction for beginners
           perltoc             Perl documentation table of contents

   Tutorials
           perlreftut          Perl references short introduction
           perldsc             Perl data structures intro
           perllol             Perl data structures: arrays of arrays

           perlrequick         Perl regular expressions quick start
           perlretut           Perl regular expressions tutorial

           perlboot            Perl OO tutorial for beginners
           perltoot            Perl OO tutorial, part 1
           perltooc            Perl OO tutorial, part 2
           perlbot             Perl OO tricks and examples

           perlperf            Perl Performance and Optimization Techniques

           perlstyle           Perl style guide

           perlcheat           Perl cheat sheet
           perltrap            Perl traps for the unwary
           perldebtut          Perl debugging tutorial

           perlfaq             Perl frequently asked questions
             perlfaq1          General Questions About Perl
             perlfaq2          Obtaining and Learning about Perl
             perlfaq3          Programming Tools
             perlfaq4          Data Manipulation
             perlfaq5          Files and Formats
             perlfaq6          Regexes
             perlfaq7          Perl Language Issues
             perlfaq8          System Interaction


   Reference Manual
           perlsyn             Perl syntax
           perldata            Perl data structures
           perlop              Perl operators and precedence
           perlsub             Perl subroutines
           perlfunc            Perl built-in functions
             perlopentut       Perl open() tutorial
             perlpacktut       Perl pack() and unpack() tutorial
           perlpod             Perl plain old documentation
           perlpodspec         Perl plain old documentation format specification
           perlrun             Perl execution and options
           perldiag            Perl diagnostic messages
           perllexwarn         Perl warnings and their control
           perldebug           Perl debugging
           perlvar             Perl predefined variables
           perlre              Perl regular expressions, the rest of the story
           perlrebackslash     Perl regular expression backslash sequences
           perlrecharclass     Perl regular expression character classes
           perlreref           Perl regular expressions quick reference
           perlref             Perl references, the rest of the story
           perlform            Perl formats
           perlobj             Perl objects
           perltie             Perl objects hidden behind simple variables
             perldbmfilter     Perl DBM filters

To je opravdu tak tezky zadat man perlfunc a najit si, co presne substr dela???

Jednak, perl substr lze pouzit i jako lvalue, cili substr($var,X,Y) = "neco";. A kdyz si popis substr poradne prectete, tak zjistite, ze:

An alternative to using substr() as an lvalue is to specify the replacement string as the 4th argument. This allows you to replace parts of the EXPR and return what was there before in one operation, just as you can with splice().

Pokud neovladate EN, urcite se daji tyhle man stranky najit i v CZ.

Pokud nechapete vyznam, nezacinejte programovat a jdete delat neco jineho.

[Filip Jirsák]

Od člověka, který si nevšiml, že význam byl správně v diskusi popsán už skoro před 4 hodinami, ty invektivy v příspěvku opravdu sedí.

[CEST]

1) blog zapis je ze 17.9. 20:28

2) blog zapis vytvoril MMMMMMMMM

takze

A) relativne uspokojive vysvetleni zjistil a zapsal MMMMMMMMM az v 7:09, cili 10:41 hodiny po zapsani zapisku, to je docela dlouho na man perlfunc, spravne vysvetleni jsi napsal az ty v 10:48, jenze to uz jsem mel zrejme rozepsanou svoji odpoved a pouze jsem ji az v 10:52 odeslal

B) to jeho vysvetleni mi pripada spis jako hadani, pricemz v manu je to presne definovany

C) kdyz uz teda zjistil, jak to presne funguje, mel by to zapsat do blog zapisku. Upravit zapisek jde, takze nic mu nebrani v tom, aby tam napsal "Update - uz jsem pochopil, co to dela, diky za vysvetleni / za odkaz v manu". To tam ale neni. Samozrejme, nekdo muze mit chut prochazet reakce typu

k cemu tam je ten ctvrty parametr

nebo

Takze pri takomto pouziti ("") je tam zbytocny

nebo

to je nejake divne, pripada me ze u takove funkce replacement neni potreba

.

Hledat v diskuzi spravnou odpoved by mel autor zapisku a pak opravit blog, aby to kazdy dalsi ctenar videl hned. Je blbost, aby kazdy ctenar pak prochazel diskuzi a hledal, jestli uz tam nekdo spravne reseni nenapsal. A kdyz jsem videl ty "vestecke" reakce (viz vyse), tak jsem nemel chut se tim dal hrabat, kdyz odpoved je primo v manu.

Misto tehle zbytecnych uvah si kolegove diskutujici a autor mohli behem 5 minut v manu najit, proc je tam ctvrty parametr a co presne dela.

Podobne nesnasim blogy stylu

Zjistil jsem, ze tohle nefunguje, dokud nezapnu tamten prepinac. Nevim proc, ale proste to tak je.

A pak nakonec dotycny zjisti, ze mel proste neco v systemu spatne a proto to nefungovalo a ten jiny prepinac byla jen souhra nahod.

Bohuzel, driv na Linuxu byli pouze odbornici, kteri se zajimalo, jak ta vec funguje. Dneska se do toho stoura kazdy, ale navody ctou jen nekteri.

[pavlix]

Nehledě na to, že mohl použít poradnu, kde se řešení dají označit.

[Ruža Becelin]

Co teda nechapu, proc je tenkhle blog oznaceny tucnakem (Kvalitni zapisek)

[CiV]

Reseni tady uz sice padlo, ale mohlo by se ti hodit
perldoc -f substr

[happy barney]

pozri sa na to ako na ekvivalent ++ operátora.

$a = 0; $b = ++$a; say "$a - $b"; # 1 - 1
$a = 0; $b = $a++; say "$a - $b"; # 1 - 0

$a = "abc"; $b = substr ($a, 0, 1) = "X"; say "$a - $b"; # Xbc - X
$a = "abc"; $b = substr ($a, 0, 1, "X"); say "$a - $b"; # Xbc - a

[MMMMMMMMM]

Děkuji všem za komentáře. V manuálu je to skutečně dobře (anglicky) podáno, budu rozhodně používat. Hledal jsem předtím i na webu, ale bohužel jsem narazil na ne příliš dobré stránky, které se funkcí substr() se 4 parametry příliš nezabývaly a vysvětlení chybělo, z toho plynula má frustrace. Teď je tedy chování funkce substr() v PERLu jasné. Uvidíme, na co zajímavého ještě v knize narazím.

[Xerces]

To je zlozvyk z Windows (kde jsou helpy jen aby se neřeklo), kterým trpím občas taky. Hledat nejdřív něco na netu než v oficiální nápovědě perlu a man

[CEST]

Presne tak. Vetsina Linux/GNU veci je dost dobre dokumentovanych, pokud je prece jenom nejasnost, da se jit i do zdrojaku. Perl je dost dobre dokumentovany, at uz jako man nebo jako perldoc.

[pavlix]

Já nemám problém hledat věci na netu, což je nadmnožina manuálových stránek.

[luky]

Misto hledani jehly v kupce sena radeji prohledate cely stoh?

[pavlix]

Misto hledani jehly v kupce sena radeji prohledate cely stoh?

Já při práci místo nesmyslných příměrů používám hlavu :).

[Bystroushaak]

Tuhle knihu jsem si před půl rokem koupil taky (v antikvariátu za asi 20kč, no neber to), ale zatím jsem se k ní nedostal, hlavně proto že jsem pythonýr.

Perl jsem potřeboval naposledy když jsem z nějakého serveru v číně vytáhl portscanner v perlu, jehož kódu jsem nerozuměl, jinak mi přijde v podstatě nepoužívaný (i v linuxu už tak moc toolů v perlu není).

[CEST]

No, zkus si odinstalovat perl u uvidis, kolik balicku se ti s tim odinstaluje, protoze bude perl zavislost. Mozna ti to ani nepujde, protoze perl bude systemova zavislost. Nebo zkus /usr/bin/perl a knihovny prejmenovat a pak zkus pracovat a uvidis, co vsechno nepojede:)

Trosku podobne jako s pythonem u gentoo:)

Jinak, perl mi prijde lepsi - zkus si v pythonu udelat perl -aF'/\s+/' -ne '$s{$F[0]}++;END{foreach $ip (keys(%s)) {print "$f $s{$f}\n";}' /var/log/apache/access.log. Moc dobre to nejde, vid?

[Bystroushaak]

Popiš mi to slovně a já ti takový script napíšu, tohle nemám šanci jako ne-perlista dekódovat.

[happy barney]

konkretne tento priklad oznami syntakticku chybu
(odhadovany) popis umyslu: vypis kluca a unikatnych riadkov zo vstupneho suboru, kluc je od zaciatku riadku po prvy \s znak. Priblizne ako:

cut -d' ' -f1 /var/log/access.log | uniq -c

[CEST]

Ano, presne, neco takoveho, akorat

1) nepotrebuje to pres pipe posilat spoustu radku

2) jako oddelovac to bere jakykoliv pocet (1 a vice) jakychkoliv whitespace znaku (mezera nebo tab)

Jinak, chtel jsem ten perl videt prepsanej v pythonu:)

[happy barney]

ad 1: pipe je v pamati (nevravim o windos), subor musis precitat cely tak ci tak, na multicore systemoch navyse rozdelis este aj tento oneliner na dve operacie ...

ad 2: pracujes len s prvym prvkom pola, t.j. je ti jedno, co je oddelovac, uz prvy whitespace ukonci vyhladavanie. Tvoj priklad teda navyse obsahuje aj nepotrebny kod

Nemozes od pythonistu ocakavat, ze porozumie perlu. treba mu to vysvetlit (napr ekvivalentom v shelli). V opacnom pripade si mohol pouzit nieco taketo

perl -F'/\s/' -apple '$s{$F[0]}++}for(keys%s){$_.=" $s{$_}"'

[Bystroushaak]

Jinak, chtel jsem ten perl videt prepsanej v pythonu:)

Nejsem si jistej jestli jsem dostatečně dobře pochopil co to dělá, ale:

python -c "print '\n'.join(set(map(lambda x: x.split()[0], open('/var/log/apache/access.log').readlines())))"

Log apache zrovna nemám po ruce, takže jsem to zkoušel na testovacím souboru..

[Bystroushaak]

Jinak teď jsem si všiml že jsi chtěl nejspíš i počet výskytů.

python -c "d = map(lambda x: x.split()[0], open('/var/log/apache/access.log').readlines()); print '\n'.join([str(y) + ' ' + x for x, y in dict([[x, d.count(x)] for x in d]).items()])"

Je to už ale hnusně nepřehledné, napsal bych si na to radši klasický script nebo použil << EOF.

[pavlix]

Dost možná bys došel úplně k jinému postupu a to, že bys to celé dělal v interaktivním pythonu, kde bysis seznam řádků postupně upravoval a vytáhl z něj naprosto libovolné výstupy.

Nedávno jsem se pustil do perlu a docela hodně se mi líbí, co se tam dá velmi stručným kódem udělat. Ale kdybych měl zpracovávat z ničeho nic větší množství dat, tak na 99% sáhnu po pythonu, protože data můžu zpracovávat interaktivně a bez ohledu na původ/formát, a stejně interaktivně je i převádět.

Ona i taková hloupá úloha jako dostat data z jabber rosteru do třeba XML adresáře nějakého programu, je mnohem jednodušeji řešitelná interaktivně než postupným vylepšováním skriptu (nehledě na to, že po interaktivní zkušenosti člověk už ten skript celkem hbitě napíše).

[Bystroushaak]

Dost možná bys došel úplně k jinému postupu a to, že bys to celé dělal v interaktivním pythonu, kde bysis seznam řádků postupně upravoval a vytáhl z něj naprosto libovolné výstupy.

Tenhle postup jsem musel pracně vymýšlet, protože chtěl vidět ekvivalent svého perlového příkazu. Kdybych to dělal v interaktivním režimu, vypadalo by úplně, ale úplně jinak.

[pavlix]

Tenhle postup jsem musel pracně vymýšlet, protože chtěl vidět ekvivalent svého perlového příkazu. Kdybych to dělal v interaktivním režimu, vypadalo by úplně, ale úplně jinak.

Jasně, tak jsem to myslel. Jen jsem nevěděl, jestli s tím máš už nějaké zkušenosti.

[Michal Vyskočil]

Nebo třeba takto - až na nezbytné importy je toto jediným výrazem a taky to zpracovává první argument, stejně jako příklad vyše. Je to drobet složitější, než by musel být, protože výsledek ještě seřadí.

python -c 'import sys, itertools; print "\n".join(("%s %s" % (k, c) for k, c in sorted(((len(list(g)), k) for k, g in itertools.groupby(sorted(l.split()[0] for l in open(sys.argv[1], "r")))), reverse=True)))' access.log

Zde je ještě indentovaná verze.

import sys, itertools

print "\n".join(
  ("%s %s" % (k, c) for k, c in
    sorted(
        ( (len(list(g)), k) for k, g in
           itertools.groupby(
             sorted(l.split()[0] for l in open(sys.argv[1], "r")))), reverse=True)))

[zxtlpn]

awk '$1 != prev {print $1; prev = $1;}' /var/log/access.log

[Bystroushaak]

No, zkus si odinstalovat perl u uvidis, kolik balicku se ti s tim odinstaluje, protoze bude perl zavislost. Mozna ti to ani nepujde, protoze perl bude systemova zavislost.

Tak jsem to zkusil a dost by to bolelo :D 570 balíků by to vzalo s sebou a dalším ~200 by se nelíbyla nevyřešená závislost :S

[pavlix]

U Pythonu je to dneska stejné (nejen v Gentoo)

[pavlix]

Jinak, perl mi prijde lepsi - zkus si v pythonu udelat perl -aF'/\s+/' -ne '$s{$F[0]}++;END{foreach $ip (keys(%s)) {print "$f $s{$f}\n";}' /var/log/apache/access.log. Moc dobre to nejde, vid?

Erm… na tohle svůj názor psát radši nebudu :D.

P.S.: Používám perl, awk i python.

[kolcon]

jakozto perlista bych za takovyto kod strilel

[Ruža Becelin]

Moc dobre to nejde, vid?

Aspon to napis bez chyb

[CEST]

He, tak jeste jednou - prosim o zapis nejakyho python skriptu/filtru do jedne radky, tak aby to delalo neco vic, nez pouze "print". To jsem mel na mysli - v perlu muzu napsat na jeden radek nejaky filtrovaci skript. V pythonu (diky blokum z whitespace) MUSIM psat vice radku.

[pavlix]

Jasně... a zkus perl používat interaktivně.

Kdybych byl blb, tak bych na základě interkativity pythonu prohlásil, že python je (za všech okolností) jednoznačně lepší než perl, protože v perlu to moc nejde.

Ono je někdy lepší nezamýšlet se jen nad tím, kdo je perlista a kdo pythonista, jako spíš kdo umí nástroje posoudit a použít podle účelu a kdo umí napsat do diskuze, že jedna věc je vždy lepší než druhá.

[Ruža Becelin]

Jaky je problem s interaktivnim perlem?

[pavlix]

Ukaž mi jak se dá používat perl podobně jako interaktivní mód pythonu :). Sám chceš po jiných ukázky, a ty nic?

[Ruža Becelin]

No, ze ses to ty

while ( $uinp = <> )    {
        $tinp = chomp($uinp);
        exit 1 if ( $uinp eq "quit" );

        eval($uinp);
}

[pavlix]

ROFL, předčil jsi má očekávání...

[pavlix@traveller ~]$ python3
Python 3.2 (r32:88445, Feb 21 2011, 21:11:06) 
[GCC 4.6.0 20110212 (Red Hat 4.6.0-0.7)] on linux2
Type "help", "copyright", "credits" or "license" for more information.
>>> 3 + 4
7
>>> from fractions import Fraction
>>> Fraction(3) / Fraction(4)
Fraction(3, 4)
>>> _ + Fraction(1, 2)
Fraction(5, 4)
>>> quit
Use quit() or Ctrl-D (i.e. EOF) to exit
>>> quit()
[pavlix@traveller ~]$ 

To jen abys věděl, o co se jedná. Další flame na toto téma je zbytečný.

[Ruža Becelin]

Hele clovece, jak ty muzes vest kurzy, tobe teda asertivita nic nerika

Ja VIM, jak funguje interaktivni shell v Python, v Perl holt nemas holt interaktivni shell primo, ale pomuzes si evalem. Nepredpokladam, zes ten eval vubec zkousel, jinak bys vedel, ze tam muzes delat to same, cos predvedl s Pythonem, nacitat moduly, psat subrutiny....

Jestli hledas kamose na flejm, tak si vybral spatne

[pavlix]

Hele clovece, jak ty muzes vest kurzy, tobe teda asertivita nic nerika

Až mi budeš platit, budu se k tobě chovat pozitivně i když budeš mlít kraviny :). Za daných okolností mi připadají moje reakce dostatečně asertivní.

Btw, jdu změnit patičku, aby tě tam neprovokoval ten Python :). Chápu, že tě to může rušit :).

Ja VIM, jak funguje interaktivni shell v Python, v Perl holt nemas holt interaktivni shell primo, ale pomuzes si evalem. Nepredpokladam, zes ten eval vubec zkousel, jinak bys vedel, ze tam muzes delat to same, cos predvedl s Pythonem, nacitat moduly, psat subrutiny....

„To samé“ to je asi tak jako když řekneš, že v assembleru jde dělat to samé jako v perlu. Technicky budeš mít samozřejmě pravdu v obou případech, ale použitelnost je značně odlišná.

Jestli hledas kamose na flejm, tak si vybral spatne

To sis vybral špatně .

[Ruža Becelin]

Až mi budeš platit, budu se k tobě chovat pozitivně i když budeš mlít kraviny :)

Takze kdyz ti nekdo plati, tam mu lezes do pr...? Jinak ale musim nabidku odmitnout - ne ze bych mel nejake vyhrady vuci tvym znalostem, ale mit v tymu nekoho, kdo takhle seka zobakem, to radsi ne... :-P

Btw, jdu změnit patičku, aby tě tam neprovokoval ten Python :). Chápu, že tě to může rušit :).

Z ceho tak usuzujes? Ja proti Pythonu celkem nic nemam, sice mi nesedi, ale respektuji, pokud se ho nekdo rozhodne pouzivat...

To sis vybral špatně .

Hele, ty mas problem poznat odlehcenejsi ton diskuze? trochu mi prijde, ze beres vsechno strasne vazne, za kazdou vetou hledas narazku ci osobni utok... Ber to trochu s nadsazkou, ne kazdy, kdo prijde do diskuze, se chce hadat... I kdyz co tak v posledni dobe sleduju, tak se prevazna cast diskuzi zvrhne v hadku o nejakou blbost :(

[pavlix]

Takze kdyz ti nekdo plati, tam mu lezes do pr...?

Mezi lezením do prdele a korektním jednáním s blbcem je určitý rozdíl... ale musím říct, že ve své pracovní praxi s blbcem spolupracuju velmi zřídkakdy. Většinou se z toho dá nějak vyvlíknout nebo včas odmítnout.

Jinak ale musim nabidku odmitnout - ne ze bych mel nejake vyhrady vuci tvym znalostem, ale mit v tymu nekoho, kdo takhle seka zobakem, to radsi ne... :-P

Pokud jsi to pochopil jako nabídku, měl bys uvažovat o lepším parseru na sarkasmus či alespoň nadsázku :). Jinak mám drobné podezření, že v tvém týmu z principu bude minimálně jeden člověk, který bude mít nutkání vytvářet v týmu problém. Osobně bych se toho dost nerad účastnil :).

Hele, ty mas problem poznat odlehcenejsi ton diskuze?

Myslel jsem, že ho máš ty :).

[Ruža Becelin]

Ja nemam problem poznat odlehcenejsi ton. Ale ty by ses mel zamyslet na tim, ze neustale reagovat kousavymi komentari, urazkami a napadanim ti dobrou povest nezajisti. Jak jsem si vsiml v jinych dizkuzich, neni tohle zdaleka vyjimka...

[pavlix]

Ja nemam problem poznat odlehcenejsi ton. Ale ty by ses mel zamyslet na tim, ze neustale reagovat kousavymi komentari, urazkami a napadanim ti dobrou povest nezajisti. Jak jsem si vsiml v jinych dizkuzich, neni tohle zdaleka vyjimka...

Nápodobně.

[luky]

Bud si nainstalujte shell z CPANu, nebo pouzijte dubugger: perl -debile_cti_man ]>

[pavlix]

Mě přišlo, že píšu docela srozumitelně.

[luky]

Mě přišlo, že píšu docela srozumitelně.

Prave ze vubec, co se vam v debugeru nelibilo?

luky@ntb:~$ perl -debile_cti_man

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(-e:1):   bile_cti_man
  DB<1> p 7 + 3
10
  DB<2> use Number::Fraction

  DB<3> $a = new Number::Fraction(3) / new Number::Fraction(4)

  DB<4> p $a
3/4
  DB<5> $a += 5

  DB<6> p $a
23/4

[pavlix]

Prave ze vubec

Tvůj názor respektuju, i když s ním nesouhlasím :).

[Tomáš]

Dej si do kalendáře upomínku, že za rok si to máš po sobě přečíst a pochopit význam. Tipoval bych, že to moc nepůjde.

[kolcon]

nj, a proto jsou v perlu k dispozici treba takove nastroje, jako je perlcritic

[Ladicek]

Ta knížka je výborná. Přečetl jsem ji, několikrát se u ní zasmál a dobře pobavil, a pak se rozhodl nikdy v Perlu nenapsat ani řádku.

[VM]

Moc jsem nepochopil co nechápeš - funkce substr() ve verzi se čtyřmi parametry dělá přesně tohle, vyřízne podřetězec, vrátí ho jako návratovou hodnotu, a v původním řetězci ho nahradí čtvrtým parametrem. Je to popsané v manuálu. A pochybuji, že Python to bude mít nějak jednodušší..