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í
×
    11.7. 16:44 | Komunita

    Dnes v 17:30 bude oficiálně vydána open source počítačová hra DOGWALK vytvořena v 3D softwaru Blender a herním enginu Godot. Release party proběhne na YouTube od 17:00.

    Ladislav Hagara | Komentářů: 3
    11.7. 14:55 | Humor

    McDonald's se spojil se společností Paradox a pracovníky nabírá také pomocí AI řešení s virtuální asistentkou Olivii běžící na webu McHire. Ian Carroll a Sam Curry se na toto AI řešení blíže podívali a opravdu je překvapilo, že se mohli přihlásit pomocí jména 123456 a hesla 123456 a získat přístup k údajům o 64 milionech uchazečů o práci.

    Ladislav Hagara | Komentářů: 9
    11.7. 00:11 | Nová verze

    Byla vydána (𝕏) červnová aktualizace aneb nová verze 1.102 editoru zdrojových kódů Visual Studio Code (Wikipedie). Přehled novinek i s náhledy a videi v poznámkách k vydání. Ve verzi 1.102 vyjde také VSCodium, tj. komunitní sestavení Visual Studia Code bez telemetrie a licenčních podmínek Microsoftu.

    Ladislav Hagara | Komentářů: 0
    10.7. 21:00 | Bezpečnostní upozornění

    Byla vydána nová verze 2.4.64 svobodného multiplatformního webového serveru Apache (httpd). Řešeno je mimo jiné 8 bezpečnostních chyb.

    Ladislav Hagara | Komentářů: 4
    10.7. 15:22 | Nová verze

    Společnost xAI na síti 𝕏 představila Grok 4, tj. novou verzi svého AI LLM modelu Grok.

    Ladislav Hagara | Komentářů: 12
    10.7. 12:55 | Bezpečnostní upozornění

    Ministerstvo vnitra odhalilo závažný kyberincident v IT systému resortu. Systém, do kterého se dostal útočník bez oprávnění, byl odpojen a nedošlo k odcizení dat [𝕏].

    Ladislav Hagara | Komentářů: 16
    10.7. 11:55 | Humor

    Před rokem byla streamovací služba HBO Max přejmenována na Max. Dle managementu slovo HBO v názvu nebylo důležité. Včera byl Max přejmenován zpět na HBO Max. Kolik milionů dolarů to stálo? 😂

    Ladislav Hagara | Komentářů: 14
    10.7. 02:11 | Nová verze

    Byla vydána nová major verze 8.0.0 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata (Wikipedie). Přehled novinek v oficiálním oznámení a v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 0
    10.7. 01:11 | Nová verze

    Mastodon (Wikipedie) - sociální síť, která není na prodej - byl vydán ve verzi 4.4. Přehled novinek s náhledy a videi v oznámení na blogu.

    Ladislav Hagara | Komentářů: 1
    10.7. 00:11 | IT novinky

    Instituce státní správy nebudou smět využívat produkty, aplikace, řešení, webové stránky a webové služby poskytované čínskou společností DeepSeek. Na doporučení Národního úřadu pro kybernetickou a informační bezpečnost rozhodla o jejich zákazu vláda Petra Fialy na jednání ve středu 9. července 2025.

    Ladislav Hagara | Komentářů: 8
    Jaký je váš oblíbený skriptovací jazyk?
     (59%)
     (27%)
     (7%)
     (3%)
     (1%)
     (1%)
     (4%)
    Celkem 389 hlasů
     Komentářů: 16, poslední 8.6. 21:05
    Rozcestník

    Dotaz: Perl/CGI, while cyklus

    20.1.2008 18:57 majky8
    Perl/CGI, while cyklus
    Přečteno: 399×
    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.