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í
×
eParkomat, startup z ČR, postoupil mezi finalisty evropského akcelerátoru ChallengeUp!
Robot na pivo mu otevřel dveře k opravdovému byznysu
Internet věcí: Propojený svět? Už se to blíží...
dnes 06:00 | Zajímavý software

OMG! Ubuntu! představuje emulátor terminálu Hyper (GitHub) postavený na webových technologiích (HTML, CSS a JavaScript). V diskusi k článku je zmíněn podobný emulátor terminálu Black Screen. Hyper i Black Screen používají framework Electron, stejně jako editor Atom nebo vývojové prostředí Visual Studio Code.

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

I letos vychází řada ajťáckých adventních kalendářů. QEMU Advent Calendar 2016 přináší každý den nový obraz disku pro QEMU. Programátoři se mohou potrápit při řešení úloh z kalendáře Advent of Code 2016. Kalendáře Perl Advent Calendar 2016 a Perl 6 Advent Calendar přinášejí každý den zajímavé informace o programovacím jazyce Perl. Stranou nezůstává ani programovací jazyk Go.

Ladislav Hagara | Komentářů: 4
3.12. 16:24 | Nová verze

Byla vydána Mageia 5.1. Jedná se o první opravné vydání verze 5, jež vyšla v červnu loňského roku (zprávička). Uživatelům verze 5 nepřináší opravné vydání nic nového, samozřejmě pokud pravidelně aktualizují. Vydání obsahuje všechny aktualizace za posledního téměř půldruhého roku. Mageia 5.1 obsahuje LibreOffice 4.4.7, Linux 4.4.32, KDE4 4.14.5 nebo GNOME 3.14.3.

Ladislav Hagara | Komentářů: 11
3.12. 13:42 | Pozvánky

V Praze probíhá konference Internet a Technologie 16.2, volné pokračování jarní konference sdružení CZ.NIC. Konferenci lze sledovat online na YouTube. K dispozici je také archiv předchozích konferencí.

Ladislav Hagara | Komentářů: 0
2.12. 22:44 | Komunita

Joinup informuje, že Mnichov používá open source groupware Kolab. V srpnu byl dokončen dvouletý přechod na toto řešení. V provozu je asi 60 000 poštovních schránek. Nejenom Kolabu se věnoval Georg Greve ve své přednášce Open Source: the future for the European institutions (SlideShare) na konferenci DIGITEC 2016, jež proběhla v úterý 29. listopadu v Bruselu. Videozáznam přednášek z hlavního sálu je ke zhlédnutí na Livestreamu.

Ladislav Hagara | Komentářů: 25
2.12. 15:30 | Zajímavý projekt

Společnost Jolla oznámila v příspěvku Case study: Sailfish Watch na svém blogu, že naportovala Sailfish OS na chytré hodinky. Využila a inspirovala se otevřeným operačním systémem pro chytré hodinky AsteroidOS. Použita je knihovna libhybris. Ukázka ovládání hodinek na YouTube.

Ladislav Hagara | Komentářů: 10
2.12. 14:15 | Nová verze

Byla vydána verze 7.1.0 skriptovacího jazyka PHP používaného zejména k vývoji dynamických webových stránek. Jedná se o první stabilní verzi nejnovější větvě 7.1. Přehled novinek v dokumentaci. Podrobnosti v ChangeLogu. K dispozici je také příručka pro přechod z PHP 7.0.x na PHP 7.1.x.

Ladislav Hagara | Komentářů: 4
2.12. 12:55 | Nová verze

Google Chrome 55 byl prohlášen za stabilní. Nejnovější stabilní verze 55.0.2883.75 tohoto webového prohlížeče přináší řadu oprav a vylepšení (YouTube). Opraveno bylo také 36 bezpečnostních chyb. Mariusz Mlynski si například vydělal 22 500 dolarů za 3 nahlášené chyby (Universal XSS in Blink).

Ladislav Hagara | Komentářů: 4
2.12. 11:55 | Pozvánky

Máte rádi svobodný software a hardware nebo se o nich chcete něco dozvědět? Přijďte na 135. sraz spolku OpenAlt, který se bude konat ve čtvrtek 8. prosince od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Sraz bude tentokrát tématický. Bude retro! K vidění budou přístroje jako Psion 5mx nebo Palm Z22. Ze svobodného hardwaru pak Openmoko nebo čtečka WikiReader. Přijďte se i vy pochlubit svými legendami, nebo alespoň na pivo. Moderní hardware má vstup samozřejmě také povolen.

xkucf03 | Komentářů: 1
2.12. 00:10 | Nová verze

Byla vydána verze 3.2 svobodného systému pro detekci a prevenci průniků a monitorování bezpečnosti počítačových sítí Suricata. Z novinek lze zmínit například podporu protokolů DNP3 a CIP/ENIP, vylepšenou podporu TLS a samozřejmě také aktualizovanou dokumentaci.

Ladislav Hagara | Komentářů: 0
Kolik máte dat ve svém domovském adresáři na svém primárním osobním počítači?
 (32%)
 (24%)
 (29%)
 (7%)
 (5%)
 (3%)
Celkem 773 hlasů
 Komentářů: 50, poslední 29.11. 15:50
Rozcestník
Reklama

Dotaz: STDOUT -> PIPE -> PERL

2.12.2010 14:52 xsustek | skóre: 6
STDOUT -> PIPE -> PERL
Přečteno: 370×
Ahojte,

potrebujem v v perlovskom skripte citat data hned ako mi ich externy program vypise na stdout. Problem je v tom, ze program ich vypisuje (ak ho spustim samostatne), ale skript nespracovava. Zostavaju asi niekde nabufrovane a neviem ako to vypnut. Toto je kod
#!/usr/bin/perl
open (IN,'monbro -N out.txt |' ) or die "Error";
while ($line = {IN}) {
  print $line;
}
close IN;
pokial sa jedna o vypnutie buffrovania v perle $|++; tak to som skusal a nic.

Řešení dotazu:


Odpovědi

Řešení 1× (maleprase)
Tarmaq avatar 2.12.2010 16:06 Tarmaq | skóre: 39
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
cus, v Perlu moc neumim, ale zkousel jsem si to schvalne napsat, tak treba ti to problem vyresi:
#!/usr/bin/perl
open ($in,'ls |' ) or die "Error";
while (<$in>}) {
  print $_;
}
close $in;
Don't panic!
2.12.2010 18:38 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Toto ti funguje preto, lebo do pipe sa nacita cely vstup z ls. Moj problem je v tom, ze vystup mojho program v podstate nekonci, a ja potrebujem nacitat kazdy riadok v okamihu ked je vygenerovany.
Řešení 1× (maleprase)
2.12.2010 20:11 maleprase | skóre: 28
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
while ($line = {IN}) nema to byt <IN> ?

tohle rozhodne funguje:
open IN, 'bash -c "while true; do date; sleep 5; done" |'; 
while ($line = <IN>) { 
  print $line; 
}
2.12.2010 20:22 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Ano toto funguje preto, pretoze ten date ti zakazdim skonci a do pipe vleze EOF. Skus tam dat nejkay program ktoreho vystup nekocni. Napr. tail -f nejakylog.txt
2.12.2010 21:10 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL

Ale blbost. Žádný opakovaný EOF tam není, protože jednou zavřený deskriptor by se už zázračně neotevřel.

Problém je s bufferováním mezi znaky nový řádek. To se dá vypnout přes autoflush(IN, 1). Jenže to se vztahuje na zápisovou rouru. My potřebujem vypnout bufferování ze čtecí roury, aby <> nečekal na nový řádek nebo EOF.

2.12.2010 21:15 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Asi mas pravdu. Mas nejaky napad ako to vypnut? Nieje tento buffer este v bash/?
2.12.2010 21:25 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL

Problém je v <&g;, což je převlečený IO::Handle->getline, který čeká na nový řádek.

Tohle funguje:

#!/usr/bin/perl
use strict;
use warnings;
use IO::Handle;

open (DATA, 'sh -c "printf 1; sleep 1; printf 2;" |') or die $!;
STDOUT->autoflush;

while (my $char = DATA->getc) {
    print $char;
}

close(DATA);
2.12.2010 21:30 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Samozřejmě čtení po znaku není efektivní. Vyšího výkonu lze dosáhnout přes funkci IO::Handle->read(BUFFER, LENGTH). Jen třeba si dobře zvolit velikost bufferu.
2.12.2010 23:14 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Nerozumiem preco ale nejde mi to: toto moj kod #!/usr/bin/perl use warnings; use IO::Handle;

open (IN, 'monbro -N chgen_test |' ) or die "Error"; STDOUT -> autoflush(1); while ($line = <IN>) { print $line; } close IN;

mohol by si mi este poradit ako nastavit veliskot toho buffera? Niekde som nasiel ze setbuff sa nepouziva od verzie 5.8.0. A neviem ako pracovat s io handlerom, ked vlastne neotvaram subor ale pipe.
3.12.2010 08:36 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL

Protože opět čtete po celých řádcích a ne po menších kusech (getc, ne <>). Ale jak už vám vysvětlili níže, chybu máte i na straně monbra.

Velikost bufferu je argument funkce read. Souhrn je v manuálu k IO::Handle, podrobnější popis, tipuji, v perlfunc.

2.12.2010 17:15 tyctor
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
daj si $| = 1;

na zaciatok skriptu...
2.12.2010 18:39 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Toto som skusal, nefunguje.
2.12.2010 20:39 Marek
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
V clanku na linuxsoftu se pise cosi o IO::Handle a nastaveni autoflush. to by moh byt ten zadrhel
2.12.2010 23:55 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Problém není u vás ale v té aplikaci (monbro). Pokud se ta aplikace rozhodne, že pošle data až za hodinu, tak s tím na straně příjemce dat neuděláte nic. $| funguje jen na data co produkujete vy.

Naštěstí je ale tenhle problém ve většině případů jednoduše řešitelný. Defaultní buffering je 4k textu pro neinteraktivní komunikaci (pipe) a 1 řádek pro interaktivní (terminál). Některé programy umí vynutit bufferování 1 řádek i pro pipe (např. sed -u). Pokud to monbro neumí tak mu potřebujete vnutit představu že se baví s terminálem. To se dělá pomocí pseudo terminálu, např. modulem IPC::Run.
In Ada the typical infinite loop would normally be terminated by detonation.
3.12.2010 00:16 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Ten skrip robim na stroji, ktory nema modul IPC::Run nainstalovany. Neviem ci by sa mi podarilo adminov presvedcit o update len kvoli tomuto skriptu. Nedalo by sa tomu monbro vnutit tuto predstavu nejako inak. napr. nejaky inym externym programom?
3.12.2010 07:53 pht | skóre: 48 | blog: pht
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
možností je spousta
  1. nainstalovat si to do svého adresáře
  2. překopírovat (ten podstatný) kód do svého skriptu
  3. použít libovolnou jinou metodu jak otevřít pseudo terminál (na google se něco najde, je to jen o otevření /dev/ptmx a pár operací navíc)
In Ada the typical infinite loop would normally be terminated by detonation.
6.12.2010 01:41 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Mohli by ste mi prosim blizsie popisat tie moznosti?

1. Nainstalovat modul IPC:Run? 2. Aky kod? Ten z toho modulu? 3. Neviete nahodou ako sa vytvara pseudo terminal nejaky prikazom v bash?
3.12.2010 08:42 petr_p | skóre: 59 | blog: pb
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Zkuste jej spustit přes nástroj stdbuf z balíku coreutils, ale výsledek není zaručen. Lepší by bylo upravit kód toho monbra.
6.12.2010 01:43 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Ja ten kod toho monbra nemozem upravit, lebo to je binarka. Je to sucast planovaca Autosys Job management. Skusal som aj to citanie po znaku, ale ako ste hovorili, tak buffruje to ten monbro.
3.12.2010 00:21 xsustek | skóre: 6
Rozbalit Rozbalit vše Re: STDOUT -> PIPE -> PERL
Len chcem potvrdit, ze je to naozaj tak. Ked dam monbro -N mon_definition | cat. Tak zacne vypisovat az pri plnom buffery (4k). Takze v tom skripte to nieje.

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.