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

    Co přesně se děje, když se pomocí curlu připojujeme ke google.com? Proč to psát do terminálu, když si to můžeme pustit jako videoklip curl -v https://google.com na YouTube. 😂

    Ladislav Hagara | Komentářů: 0
    včera 22:33 | Nová verze

    Open source platforma Home Assistant (Demo, GitHub, Wikipedie) pro monitorování a řízení inteligentní domácnosti byla vydána ve verzi 2024.11.

    Ladislav Hagara | Komentářů: 0
    včera 22:11 | Nová verze

    Oficiálně byla vydána (Mastodon, 𝕏) první RC verze GIMPu 3.0. Přehled novinek v oznámení o vydání. Podrobně v souboru NEWS na GitLabu.

    Ladislav Hagara | Komentářů: 0
    včera 17:22 | IT novinky

    Hodnota Bitcoinu, decentralizované kryptoměny překonala 75 000 dolarů (1 770 157 korun).

    Ladislav Hagara | Komentářů: 2
    včera 17:11 | Nová verze

    Byla vydána nová verze 8.11.0 řádkového nástroje a knihovny pro přenos dat po různých protokolech curl. S oficiální podporou WebSocket. Opravena byla bezpečnostní chyba CVE-2024-9681.

    Ladislav Hagara | Komentářů: 0
    včera 13:11 | Pozvánky

    Baví vás elektronika, informační technologie, bastlení nebo obecně technika? Pak i tento měsíc je tady pro Vás Virtuální Bastlírna - online setkání hospodského typu všech nadšenců do techniky, organizované projektem MacGyver strahovského studentského klubu SiliconHill.

    Pokud by se diskuze náhodou zadrhla, mají Strahováci nachystaná i výplňová témata. Například co se stalo za katastrofy poslední měsíc? Voyager 1 musel kvůli poruše … více »
    bkralik | Komentářů: 0
    včera 05:11 | IT novinky

    Bylo publikováno RFC 9669 - BPF Instruction Set Architecture (ISA) specifikující instrukční sadu jaderného subsystému eBPF (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    5.11. 22:44 | Komunita

    Ondsel, tj. vylepšený FreeCAD, po dvou letech skončil. Cílem Ondselu bylo vylepšit UX/UI FreeCADu a nabízet jej komerčně. Od začátku věděli, že konkurovat komerčním CADům bude těžké. Bylo to ale těžší, než si mysleli. Proprietární CADy se vyučují na školách a jsou hluboce zakořeněny v průmyslu. Většina vylepšení od Ondselu se dostane do FreeCADu.

    Ladislav Hagara | Komentářů: 4
    5.11. 11:55 | Nová verze

    Desktopové prostředí LXQt (Lightweight Qt Desktop Environment, Wikipedie) vzniklé sloučením projektů Razor-qt a LXDE bylo vydáno ve verzi 2.1.0. Přehled novinek v poznámkách k vydání.

    Ladislav Hagara | Komentářů: 0
    5.11. 10:33 | Zajímavý software

    Aplikace LocalSend, tj. multiplatformní open source alternativa k AirDropu, tj. bezpečné sdílení souborů a zpráv s okolními zařízeními přes lokální síť, bez potřeby připojení k internetu, byla vydána ve verzi 1.16, aktuálně 1.16.1. Instalovat lze také z Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 5
    Rozcestník

    Dotaz: Perl/CGI, while cyklus

    20.1.2008 18:57 majky8
    Perl/CGI, while cyklus
    Přečteno: 392×
    Dobry den, predem se omlouvam za titulek ale nevim jak to vhodne pojmenovat :)

    K problemu, nedavno jsem http://www.abclinuxu.cz/forum/show/202896 tady resil neco podobneho ale reseni se k tomuhle nehodi... Mam kod stranky psane v perlu a potreboval bych, aby aby mi while cyklus vytvarel kus kodu do bunky. Vypada to takhle:
    sub articles {
    	while ( $odpoved = $dotaz->fetchrow_hashref() ) {
    	   $cgi->h2(
    		$cgi->a({-href=>"$host/articles.pl?page=$odpoved->{'id'}"},
    		"$odpoved->{'title'}",
    	           ),
    		),
    		$cgi->h3(
    	        "$odpoved->{'hlavicka'}",
    			),
    	    $cgi->a({-href=>"$host/articles.pl?page=$odpoved->{'id'}"},
    		"Pokracovat>>",
    	           ),
    	}
    
    }
    (pripojeni a dotaz je jeste pred podprogramem, vcetne execute(); ) Problem je v tom, ze tahle konstrukce nevraci nic, ani chybovou hlasku. Pokud to vlozim primo do tela zpravy bez podprogramu, tak mi to zahlasi syntax error u while. Kdyz to podobne napisu do normalniho scriptu a ne CGI, spustim, tak jde vsechno v poradku. Googlil jsem celkem dlouho ale nic co by mi nejak pomohlo to vyresit. Ikdyz vim, ze jsem v tomhle docela lamka, tak i presto, nasla by se nejaka dobra duse co mi pomuze? :)

    Odpovědi

    21.1.2008 20:29 mlz
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    Řekl bych, že chybí na začátku print. A tiše předpokládám, že nechybí $cgi=new CGI :-)

    Jo a předpokládám, že FETCH vrací nějaká data (ten cykl není prázdný)

    Mýlím-li se, ten skript by měl se dát spouštět pomocí pouze perlu, argumenty ve tvaru PARAM=VALUE a zajímal by mne jeho výstup
    21.1.2008 20:47 majky8
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    $cgi=new CGI; ani print nechybi, na zacatku toho scriptu vsechno je, fetch vraci data z databaze, kdyz je posilam do souboru, tak to funguje, nefunguje ale vystup do kodu a nevim jak to zprovoznit... Kdyz to je jako podprogram, tak to nevyda vubec nic, stranka se sice zobrazi ale td nic neobsahuje, volani podprogramu:
    ...
    $cgi->td({-valign=>"top",-width=>717,-height=>819,-align=>"left"},
    	&articles,    
    ), 
    ...
    kdyz misto &articles, vlozim while cyklus, tak to da SYNTAX ERROR na radku kde je while
    21.1.2008 21:05 maleprase | skóre: 28
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    podle mne je problem v tom ze tam kam davas &articles by melo byt pole takze sub articles() by mel vracet pole.

    tvoje nic nevraci takze se vyhodnoti jako td({...}, []}

    ps: comp.perl.beginners je na tyhle dotazy urcite lepsi ...
    22.1.2008 16:23 majky8
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    jestli to dobre chapu tak jsem podle toho zkusil cely vystup co provadi while ulozit do pole a to vracet, jenomze to zase vraci jako normalni text a ne jako kus kodu stranky
    22.1.2008 16:36 happy barney | skóre: 34 | blog: dont_worry_be_happy
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    a)
    sub ... {
      my @retval;
    
      while (...) {
        push @retval, $cgi->h2 (), $cgi->h3, ...;
      }
    
      return @retval;
    }
    
    b) použi HTML::Template / Template::Toolkit ; popr Catalyst na všetko dohromady
    22.1.2008 16:50 majky8
    Rozbalit Rozbalit vše Re: Perl/CGI, while cyklus
    varianta a) mi pomohla, dekuji za snahu ;)

    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.