abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
dnes 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
dnes 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
dnes 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
dnes 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
dnes 00:08 | Pozvánky

V sobotu 18. 2. se v Praze v prostorách VŠE uskuteční od 9:30 již 4. ročník největší české konference o open source redakčním systému WordPress (WP) - WordCamp Praha 2017.

… více »
smíťa | Komentářů: 0
včera 23:58 | Komunita

Kryptoměnová komunita zahájila nový rok spuštěním projektu Blockchain.cz, jehož cílem je kolektivně nalézt ideální překlad pro čím dál frekventovanější slovo „blockchain“. Přispět návrhem může kdokoli. Sběr bude trvat až do konce září 2017. Následně bude probíhat dvoutýdenní veřejné hlasování, které bude zakončeno výběrem toho nejlepšího návrhu.

xHire | Komentářů: 5
včera 15:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno je celkově 270 bezpečnostních chyb. V Oracle Java SE je například opraveno 17 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 16 z nich. V Oracle MySQL je opraveno 27 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 5 z nich.

Ladislav Hagara | Komentářů: 0
včera 02:48 | Nová verze

Po půl roce od vydání verze 9.0 (zprávička) byla vydána verze 10.0 zvukového serveru PulseAudio. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 28
včera 00:33 | Komunita Ladislav Hagara | Komentářů: 8
18.1. 17:30 | Zajímavý článek

Mozilla.cz informuje, že webový prohlížeč Firefox bude od verze 53 obsahovat integrovaný prohlížeč dat ve formátu JSON. Firefox kromě strukturovaného prohlížení nabídne také možnost filtrace a uložení na disk. Dle plánu by měl Firefox 53 vyjít 18. 4. 2017.

Ladislav Hagara | Komentářů: 1
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (11%)
Celkem 333 hlasů
 Komentářů: 24, poslední 17.1. 10:14
    Rozcestník
    Reklama

    Dotaz: Perl a uninitialized value

    David Watzke avatar 2.12.2006 13:39 David Watzke | skóre: 74 | blog: Blog... | Praha
    Perl a uninitialized value
    Přečteno: 95×
    Zdravím. Mám v Perlu takovou funkci:
    sub check_pkgname($) {
    	($_[0] =~ m/^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$/)
    	? $pkg = $_[0]
    	: die "Not a valid package name: $_[0]!";
    }
    a teď když spustím check_pkgname("něco"), tak to proběhne. Když to regexpu neodpovídá, tak vypíše:
    Not a valid package name: (whatever)! at ./test.pl line 7.
    Proč tam píše "at ./test.pl line 7"? To nechci.

    Ovšem horší je tohle: jakmile se pokusím o check_pkgname($_[0]), tak hodí:
    Use of uninitialized value in pattern match (m//) at ./test.pl line 7.
    Use of uninitialized value in concatenation (.) or string at ./test.pl line 7.
    Not a valid package name: ! at ./test.pl line 7.
    Napadlo mě zkusit ještě check_pkgname(int $_[0]), to hodí:
    Use of uninitialized value in int at ./test.pl line 12.
    Co dělám špatně?
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon

    Odpovědi

    David Watzke avatar 2.12.2006 13:53 David Watzke | skóre: 74 | blog: Blog... | Praha
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Když to regexpu neodpovídá, tak vypíše:
    Not a valid package name: (whatever)! at ./test.pl line 7.
    Proč tam píše "at ./test.pl line 7"? To nechci.
    Sorry, nevěděl jsem, že je to běžný chování funkce die(), jsem trouba :-D
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
    4.12.2006 09:13 mlz
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    V pripade, ze je u die "\n", tak at xxx.pl line N nevypise tedy die "Not a valid package name: (whatever)!\n";
    David Watzke avatar 4.12.2006 14:36 David Watzke | skóre: 74 | blog: Blog... | Praha
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Aha, díky.
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
    David Watzke avatar 2.12.2006 22:43 David Watzke | skóre: 74 | blog: Blog... | Praha
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Zjevně jsem dělal pěknou blbost. Ve funkci je asi nutný přiřadit si argumenty do proměnných pomocí shiftu, že?
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
    3.12.2006 00:15 amnesiac
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Prirazovani paramteru do promennych s tim nema nic spolecneho. Zrejme volas check_pkgname($_[0]), kdyz $_[0] obsahuje nedefinovanou hodnotu.

    Pokud volam $pkgname="nazev-1-2/balicku-xyz-321"; check_pkgname($pkgname);, tak mi to probehne korektne.

    Btw. moc jsem nepochopil proc je v tom regularnim vyrazu ^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$ to \w za (\-|\w)* ;-)

    David Watzke avatar 3.12.2006 00:18 David Watzke | skóre: 74 | blog: Blog... | Praha
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Btw. moc jsem nepochopil proc je v tom regularnim vyrazu ^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$ to \w za (\-|\w)* ;-)
    Protože chci aby to prošlo jen tehdy, když string bude končit na '\w' a ne '-'.
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
    4.12.2006 11:15 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    A nebylo by čitelnější
    /^\w(?:[-\w]*\w)?(?:\/\w(?:[-\w]*\w)?)?$/
    To (?:) místo () je jen kvůli rychlosti - neplní se $n registry. Pokud by ty slova nikdy nebyli méně než dvouznakové, tak by se dokonce dalo napsat
    /^\w[-\w]*\w(?:\/\w[-\w]*\w)?$/
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
    David Watzke avatar 4.12.2006 14:41 David Watzke | skóre: 74 | blog: Blog... | Praha
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Díky, určitě bylo. Co je $n registr?
    “Being honest may not get you a lot of friends but it’ll always get you the right ones” ―John Lennon
    4.12.2006 15:00 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
    Rozbalit Rozbalit vše Re: Perl a uninitialized value
    Viz perlvar
           $<digits>
                   Contains the subpattern from the corresponding set of capturing
                   parentheses from the last pattern match, not counting patterns
                   matched in nested blocks that have been exited already.
                   (Mnemonic: like \digits.)  These variables are all read-only
                   and dynamically scoped to the current BLOCK.
    
    Jinak \1..\9 by se mělo používat jen v m-regexpu nebo na levé straně (první parametr) s-regexpu.
    XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.