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 16:44 | Zajímavý software

Příspěvek na blogu Ubuntu představuje etrace, tj. víceúčelový nástroj pro profilování snap balíčků aneb nástroj pro vyhledávání míst v snap balíčcích, která jsou vhodná pro optimalizaci.

Ladislav Hagara | Komentářů: 3
včera 16:11 | IT novinky

Příspěvek na blogu Microsoftu informuje o novince ve WSL (Windows Subsystem pro Linux) ve Windows 10 Insider Preview Build 20246. Linuxové distribuce lze jednoduše instalovat příkazem "wsl --install -d distribuce". Bez "-d distribuce" je nainstalováno Ubuntu. Seznam podporovaných distribucí lze vypsat příkazem "wsl --list --online".

Ladislav Hagara | Komentářů: 18
včera 13:33 | Bezpečnostní upozornění

Samba, svobodná implementace síťového protokolu SMB/CIFS, byla vydána ve verzích 4.13.1, 4.12.9 a 4.11.15. Řešeny jsou 3 bezpečnostní chyby: CVE-2020-14318, CVE-2020-14323 a CVE-2020-14383.

Ladislav Hagara | Komentářů: 0
včera 09:00 | Nová verze

Byla vydána nová stabilní verze 3.4.0 analyzátoru síťového provozu Wireshark (Wikipedie). Přehled novinek v poznámkách k vydání. Zaujme možnost zobrazování paketů ve formátu známém z RFC a učebnic (Packet Diagram, ukázka mp4).

Ladislav Hagara | Komentářů: 1
včera 08:00 | Zajímavý článek

Drew DeVault v reakci na nedávný incident s odstraněním youtube-dl z GitHubu kvůli požadavku RIAA podle DMCA argumentuje, že e-mailové konference jsou vůči takovému postupu odolnější, jelikož každý účastník konference disponuje kopií.

Fluttershy, yay! | Komentářů: 13
včera 07:00 | Nová verze

Společnost Red Hat představila Red Hat Enterprise Linux 8.3. Vedle nových vlastností a oprav chyb přinese také aktualizaci ovladačů a předběžné ukázky budoucích technologií. Podrobnosti v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
29.10. 23:16 | Zajímavý projekt

Začal vycházet nový online magazín Branch, který se snaží přispět k diskusi o udržitelnosti IT technologií a využití Internetu k ochraně klimatu. Obsah je publikován pod licencí Creative Commons BY 4.0. V prvním čísle se lze dočíst například o udržitelném webdesignu, nebo vztahu mezi AI a udržitelností.

milosk | Komentářů: 12
29.10. 19:33 | Komunita

Pygame (Wikipedie), tj. multiplatformní sada modulů jazyka Python určená k tvorbě počítačových her, slaví 20 let. Při této příležitosti byla vydána verze 2.0.

Ladislav Hagara | Komentářů: 0
29.10. 18:44 | IT novinky

Společnost SiFive představila (YouTube) Mini-ITX desku s RISC-V procesorem SiFive Freedom U740 HiFive Unmatched. Její cena je 665 dolarů.

Ladislav Hagara | Komentářů: 1
29.10. 15:11 | Komunita

Dnes je druhý den konference eBPF Summit 2020. Přednášky lze od 17:00 sledovat na YouTube nebo Zoom. Na Youtube je ke zhlédnutí také záznam ze včerejšího dne.

Ladislav Hagara | Komentářů: 0
Které aspekty uživatelského rozhraní textového editoru považujete za důležité?
 (71%)
 (36%)
 (33%)
 (18%)
 (25%)
 (15%)
Celkem 243 hlasů
 Komentářů: 21, poslední 23.10. 17:33
Rozcestník

Dotaz: perl a open

3.8.2005 12:56 lojza
perl a open
Přečteno: 108×
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.