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 17:00 | Nová verze

Po pěti měsících vývoje od vydání verze 250 byla vydána nová verze 251 správce systému a služeb systemd (GitHub, NEWS).

Ladislav Hagara | Komentářů: 1
dnes 15:44 | IT novinky

HP ve spolupráci se System76 představil 14" notebook HP Dev One s procesorem AMD Ryzen 7 PRO a předinstalovaným Pop!_OS Linuxem.

Ladislav Hagara | Komentářů: 3
dnes 15:00 | Nová verze

Byla vydána verze 1.61.0 programovacího jazyka Rust (Wikipedie). Podrobnosti v poznámkách k vydání. Vyzkoušet Rust lze například na stránce Rust by Example.

Ladislav Hagara | Komentářů: 0
19.5. 00:33 | Zajímavý článek

Správce nástroje curl Daniel Stenberg na GitHubu průběžně vytváří svou novou knihu Uncurled, v níž shrnuje své dlouhodobé zkušenosti s údržbou open-source projektu: od odpozorovaných pouček po vtipné a ne až tak vtipné příklady e-mailů od uživatelů.

Fluttershy, yay! | Komentářů: 19
19.5. 00:22 | Nová verze

Byla vydána nová major verze 25.0 programovacího jazyka Erlang (Wikipedie) a související platformy OTP (Open Telecom Platform, Wikipedie). Přehled novinek v příspěvku na blogu.

Ladislav Hagara | Komentářů: 3
19.5. 00:11 | Nová verze

Deno (Wikipedie), běhové prostředí (runtime) pro JavaScript a TypeScript, bylo vydáno ve verzi 1.22. Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
18.5. 18:22 | Nová verze

Společnost Red Hat oznámila vydání Red Hat Enterprise Linuxu (RHEL) 9.0. Vedle nových vlastností a oprav chyb přináší také aktualizaci ovladačů a předběžné ukázky budoucích technologií. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 8
18.5. 14:00 | Komunita

Lars Knoll oznámil, že po 25 letech v ekosystému Qt, z toho 22 let pracující pro různé společnosti vlastnící Qt, odchází ze společnosti The Qt Company do malého norského startupu.

Ladislav Hagara | Komentářů: 7
18.5. 13:22 | Zajímavý projekt

Na Kickstarteru běží kampaň na podporu mini ITX desky Turing Pi 2 Cluster Computer. Vložením 4 výpočetních modulů, podporovány jsou Raspberry Pi 4, Turing RK1 a Nvidia Jetson, lze získat 4uzlový cluster. Cena desky je 219 dolarů.

Ladislav Hagara | Komentářů: 2
18.5. 10:00 | Pozvánky

Spolek OpenAlt zve příznivce otevřených řešení a přístupu na 198. brněnský sraz, který proběhne v pátek 20. května tradičně od 18 hodin v Pivovarské restauraci Moravia.

Ladislav Hagara | Komentářů: 2
Na sociálních sítích nebo jiných webových diskuzích vystupuji pod
 (62%)
 (15%)
 (23%)
Celkem 310 hlasů
 Komentářů: 26, poslední včera 15:03
Rozcestník


Dotaz: perl a open

3.8.2005 12:56 lojza
perl a open
Přečteno: 115×
ahoj, prosim vas nevit od ktere verze lze pouzit v perlu konstrukci: #!/usr/bin/perl -w

open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=<>){ print $radka; }

u while je samo v <> OVL, ale nejde to vlozit do diskuse

diky

Odpovědi

3.8.2005 14:02 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: perl a open
nejméně od 5.6.0 ale asi ještě starší. Jinak do <> jde napsat cokoli. Stačí napsat
<pre>open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=&lt;OVL&gt;){ print $radka; }</pre>
a dostaneš
open(OVL,"ps efh | cut -d ' ' -f 1 |"); while($radka=<OVL>){ print $radka; }
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.
3.8.2005 16:29 Perlik :-D
Rozbalit Rozbalit vše Re: perl a open
#!/usr/bin/perl -w

open(OVL,"ps aux|awk '\$1 ~ /bscsp/ && \$12 ~ /event_demon/ {print \$1\" \"\$12}'|"); while(<>){ print; }

potreboval sem neco jako toto :-)
3.8.2005 17:41 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: perl a open
 #!/usr/bin/perl -w

open(OVL,"ps aux|");
while(<OVL>) {
  @a = split / +/;
  $a[0] =~ /bscsp/ and $a[11] =~ /event_demon/ and print "@a[0,11]"
}
Abych pravdu řek, nevím jistě co ta awk část má dělat, ale přijde mi přinejmenším zbytečné tvořit ještě jeden proces navíc. Malý hint pro příště, pokud se chceš zbavit problémů s apostrofy v perlu tak je tu bezva vychytávka q a qq.
#!/usr/bin/perl -w
open(OVL,q(ps aux|awk '$1 ~ /bscsp/ && $12 ~ /event_demon/ {print $1" "$12}'|));
while(<OVL>){ print; }
nebo
#!/usr/bin/perl -w
open(OVL,qq(ps aux|awk '\$1 ~ /bscsp/ && \$12 ~ /event_demon/ {print \$1" "\$12}'|));
while(<OVL>){ print; }
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.

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.