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 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
dnes 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
dnes 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
dnes 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
dnes 00:08 | Pozvánky

V sobotu 18. 2. se v Praze v prostorách VŠE uskuteční od 9:30 již 4. ročník největší české konference o open source redakčním systému WordPress (WP) - WordCamp Praha 2017.

… více »
smíťa | Komentářů: 0
včera 23:58 | Komunita

Kryptoměnová komunita zahájila nový rok spuštěním projektu Blockchain.cz, jehož cílem je kolektivně nalézt ideální překlad pro čím dál frekventovanější slovo „blockchain“. Přispět návrhem může kdokoli. Sběr bude trvat až do konce září 2017. Následně bude probíhat dvoutýdenní veřejné hlasování, které bude zakončeno výběrem toho nejlepšího návrhu.

xHire | Komentářů: 5
včera 15:55 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno je celkově 270 bezpečnostních chyb. V Oracle Java SE je například opraveno 17 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 16 z nich. V Oracle MySQL je opraveno 27 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 5 z nich.

Ladislav Hagara | Komentářů: 0
včera 02:48 | Nová verze

Po půl roce od vydání verze 9.0 (zprávička) byla vydána verze 10.0 zvukového serveru PulseAudio. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 27
včera 00:33 | Komunita Ladislav Hagara | Komentářů: 8
18.1. 17:30 | Zajímavý článek

Mozilla.cz informuje, že webový prohlížeč Firefox bude od verze 53 obsahovat integrovaný prohlížeč dat ve formátu JSON. Firefox kromě strukturovaného prohlížení nabídne také možnost filtrace a uložení na disk. Dle plánu by měl Firefox 53 vyjít 18. 4. 2017.

Ladislav Hagara | Komentářů: 1
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (11%)
Celkem 332 hlasů
 Komentářů: 24, poslední 17.1. 10:14
    Rozcestník
    Reklama

    Dotaz: Perl, printf(stderr vs. print.

    25.1.2013 10:53 saf | skóre: 3
    Perl, printf(stderr vs. print.
    Přečteno: 239×
    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: 37 | 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.