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ářů: 15
    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ářů: 15
    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, printf(stderr vs. print.

    25.1.2013 10:53 saf | skóre: 3
    Perl, printf(stderr vs. print.
    Přečteno: 307×
    Zdravím, řeším takový problém. Jak udělat aby fungoval normální print v tomto programu mi to nějak nejde:

    ### definice serioveho rozhrani

    $port = "/dev/ttyUSB0"; # je COM1

    ### sada s stty nastavení portů

    system "stty 57600 -F /dev/ttyUSB0 < $port";

    ### Otevřít COM port jako

    open(COM, "+>$port") or die "nelze otevřít $port";

    select(COM); # COM jako standardní I/O Nastavení

    $| = 1; # Tabulka jediná záležitost není bufferu =

    ### Odešle Q1 na UPS pro váš stav

    printf("t"); # UPS nemá rád normální konec řádku

    #sleep(1) # 2400 BPS je pomalý ...

    sysread(COM, my ($line), 50);

    close(COM);

    printf(stderr "Z venku balkon pokoj set.pok K\n");#OK

    printf(stderr $line); # OK

    print "$line\n"; #nefunguje

    Děkuji Saf.

    Řešení dotazu:


    Odpovědi

    25.1.2013 11:22 graviton
    Rozbalit Rozbalit vše Re: Perl, printf(stderr vs. print.
    Kterak správně problémy hlásiti:
    • co jste udělali (ok)
    • co se stalo (chybí)
    • co jste očekávali, že se stane místo toho (chybí)
    Jinak moje křišťálová koule hlásí, že sekvence
    select(COM)
    close(COM)
    print
    asi bude tisknout někam do prázdna (=zavřeného deskriptoru).
    25.1.2013 11:48 saf | skóre: 3
    Rozbalit Rozbalit vše Re: Perl, printf(stderr vs. print.
    OK, blbě jsem to napsal. Tohle je original:

    #!/opt/bin/perl

    ### Serielle Schnittstelle definieren

    $port = "/dev/ttyUSB0"; # entspricht COM1

    ### mit stty die Port-Einstellungen setzen

    system "stty 57600 -F /dev/ttyUSB0 < $port";

    ### Port als COM öffnen

    open(COM, "+>$port") or die "can't open $port";

    select(COM); # COM als standard E/A festlegen

    $| = 1; # Character einzeln ausgeben = nicht puffern

    ### Sendet Q1 an die USV zur Statusabfrage

    printf("t"); # die USV mag kein normales Zeilenende

    #sleep(1) # 2400 BPS sind recht langsam ...

    sysread(COM, my ($line), 50);

    printf(stderr "Z venku balkon pokoj set.pok K\n");

    printf(stderr $line); # Ausgabe auf Console

    close(COM);

    To funguje, program načte z RS232 do $line a pak proběhne tisk na obrazovku, to je OK. Ale když budu pokračovat dále v programu a dám print "test vystup na obrazovku\n"; tak se nic neděje.
    Řešení 1× (saf (tazatel))
    wamba avatar 25.1.2013 12:21 wamba | skóre: 38 | blog: wamba
    Rozbalit Rozbalit vše Re: Perl, printf(stderr vs. print.
    nechybí za close něco jako select(STDOUT);

    hm.. select jeden s příkazů, který jsem v perl-u ještě nikdy nepoužil :)
    This would have been so hard to fix when you don't know that there is in fact an easy fix.
    25.1.2013 12:27 saf | skóre: 3
    Rozbalit Rozbalit vše Re: Perl, printf(stderr vs. print.
    Dík, to je ono.
    25.1.2013 12:25 graviton
    Rozbalit Rozbalit vše Re: Perl, printf(stderr vs. print.
    Viz výše, select přesměruje print do COM, close ho zavře, pak už jdou všechny normální printy do nikam. Nepomohlo by select(COM) nahradit $oldfh = select(COM); a na konec dát zas select($oldfh); ?

    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.