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í
×
    včera 12:55 | IT novinky

    EU chce (pořád) skenovat soukromé zprávy a fotografie. Návrh "Chat Control" by nařídil skenování všech soukromých digitálních komunikací, včetně šifrovaných zpráv a fotografií.

    Ladislav Hagara | Komentářů: 29
    včera 12:11 | Nová verze

    Byly publikovány fotografie a všechny videozáznamy z Python konference PyCon US 2025 proběhlé v květnu.

    Ladislav Hagara | Komentářů: 0
    včera 11:55 | IT novinky

    Společnost xAI a sociální síť X amerického miliardáře Elona Muska zažalovaly firmy Apple a OpenAI. Viní je z nezákonné konspirace s cílem potlačit konkurenci v oblasti umělé inteligence (AI).

    Ladislav Hagara | Komentářů: 2
    včera 05:44 | Nová verze

    Byla vydána nová verze 9.16 z Debianu vycházející linuxové distribuce DietPi pro (nejenom) jednodeskové počítače. Přehled novinek v poznámkách k vydání.

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

    Americká vláda se po převzetí zhruba desetiprocentního podílu ve výrobci čipů Intel chystá na další investice do vybraných firem. Na sociální síti Truth Social to napsal prezident Donald Trump. Jeho ekonomický poradce Kevin Hassett v rozhovoru v televizi CNBC řekl, že nemusí jít pouze o firmy z technologického sektoru, ale i z jiných odvětví.

    Ladislav Hagara | Komentářů: 15
    25.8. 13:55 | Komunita

    V Amsterdamu probíhá Open Source Summit Europe. Organizace Linux Foundation představuje novinky. Pod svá křídla převzala open source dokumentovou databázi DocumentDB.

    Ladislav Hagara | Komentářů: 0
    25.8. 02:22 | Komunita

    Přesně před 34 lety, 25. srpna 1991, oznámil Linus Benedict Torvalds v diskusní skupině comp.os.minix, že vyvíjí (svobodný) operační systém (jako koníček, nebude tak velký a profesionální jako GNU) pro klony 386 (486), že začal v dubnu a během několika měsíců by mohl mít něco použitelného.

    Ladislav Hagara | Komentářů: 26
    25.8. 01:55 | Nová verze

    86Box, tj. emulátor retro počítačů založených na x86, byl vydán ve verzi 5.0. S integrovaným správcem VM. Na GitHubu jsou vedle zdrojových kódů ke stažení také připravené balíčky ve formátu AppImage.

    Ladislav Hagara | Komentářů: 1
    23.8. 17:44 | IT novinky

    Vláda Spojených států získala desetiprocentní podíl v americkém výrobci čipů Intel. Oznámili to podle agentur americký prezident Donald Trump a ministr obchodu Howard Lutnick. Společnost Intel uvedla, že výměnou za desetiprocentní podíl obdrží státní dotace v hodnotě 8,9 miliardy dolarů (zhruba 186 miliard Kč). Částka podle Intelu zahrnuje dříve přislíbené subvence 5,7 miliardy dolarů z programu CHIPS na podporu výroby čipů v USA,

    … více »
    Ladislav Hagara | Komentářů: 50
    23.8. 17:33 | Nová verze

    Organizace Apache Software Foundation (ASF) vydala verzi 27 integrovaného vývojového prostředí a vývojové platformy napsané v Javě NetBeans (Wikipedie). Přehled novinek na GitHubu. Instalovat lze také ze Snapcraftu a Flathubu.

    Ladislav Hagara | Komentářů: 0
    Pro otevření více webových stránek ve webovém prohlížečí používám
     (77%)
     (8%)
     (3%)
     (5%)
     (6%)
     (1%)
    Celkem 87 hlasů
     Komentářů: 8, poslední včera 08:38
    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: 308×
    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.