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 15:33 | Komunita

    Ve Firefoxu bude lepší správa profilů (oddělené nastavení domovské stránky, nastavení lišt, instalace rozšíření, uložení hesla, přidání záložky atd.). Nový grafický správce profilů bude postupně zaváděn od 14.října.

    Ladislav Hagara | Komentářů: 0
    dnes 12:44 | Nová verze

    Canonical vydal (email) Ubuntu 25.10 Questing Quokka. Přehled novinek v poznámkách k vydání. Jedná se o průběžné vydání s podporou 9 měsíců, tj. do července 2026.

    Ladislav Hagara | Komentářů: 0
    dnes 12:22 | Nová verze

    ClamAV (Wikipedie), tj. multiplatformní antivirový engine s otevřeným zdrojovým kódem pro detekci trojských koní, virů, malwaru a dalších škodlivých hrozeb, byl vydán ve verzi 1.5.0.

    Ladislav Hagara | Komentářů: 0
    dnes 01:22 | Nová verze

    Byla vydána nová verze 1.12.0 dynamického programovacího jazyka Julia (Wikipedie) určeného zejména pro vědecké výpočty. Přehled novinek v příspěvku na blogu a v poznámkách k vydání. Aktualizována byla také dokumentace.

    Ladislav Hagara | Komentářů: 0
    včera 15:11 | Bezpečnostní upozornění

    V Redisu byla nalezena a v upstreamu již opravena kritická zranitelnost CVE-2025-49844 s CVSS 10.0 (RCE, vzdálené spouštění kódu).

    Ladislav Hagara | Komentářů: 5
    včera 14:00 | IT novinky

    Ministr a vicepremiér pro digitalizaci Marian Jurečka dnes oznámil, že přijme rezignaci ředitele Digitální a informační agentury Martina Mesršmída, a to k 23. říjnu 2025. Mesršmíd nabídl svou funkci během minulého víkendu, kdy se DIA potýkala s problémy eDokladů, které některým občanům znepříjemnily využití možnosti prokázat se digitální občankou u volebních komisí při volbách do Poslanecké sněmovny.

    Ladislav Hagara | Komentářů: 16
    včera 12:33 | Zajímavý software

    Společnost Meta představila OpenZL. Jedná se o open source framework pro kompresi dat s ohledem na jejich formát. Zdrojové kódy jsou k dispozici na GitHubu.

    Ladislav Hagara | Komentářů: 0
    včera 03:33 | IT novinky

    Google postupně zpřístupňuje českým uživatelům Režim AI (AI Mode), tj. nový režim vyhledávání založený na umělé inteligenci. Režim AI nabízí pokročilé uvažování, multimodalitu a možnost prozkoumat jakékoliv téma do hloubky pomocí dodatečných dotazů a užitečných odkazů na weby.

    Ladislav Hagara | Komentářů: 0
    7.10. 18:11 | Nová verze

    Programovací jazyk Python byl vydán v nové major verzi 3.14.0. Podrobný přehled novinek v aktualizované dokumentaci.

    Ladislav Hagara | Komentářů: 2
    7.10. 16:33 | IT novinky

    Bylo oznámeno, že Qualcomm kupuje Arduino. Současně byla představena nová deska Arduino UNO Q se dvěma čipy: MPU Qualcomm Dragonwing QRB2210, na kterém může běžet Linux, a MCU STM32U585 a vývojové prostředí Arduino App Lab.

    Ladislav Hagara | Komentářů: 4
    Jaké řešení používáte k vývoji / práci?
     (39%)
     (46%)
     (15%)
     (17%)
     (21%)
     (15%)
     (17%)
     (15%)
     (15%)
    Celkem 201 hlasů
     Komentářů: 13, poslední včera 07:41
    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: 318×
    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.