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:28 | Bezpečnostní upozornění

Byly zveřejněny informace o bezpečnostní chybě CVE-2017-6074 v Linuxu zneužitelné k lokální eskalaci práv. Jde o chybu v podpoře DCCP (Datagram Congestion Control Protocol). Do linuxového jádra se dostala v říjnu 2005. V upstreamu byla opravena 17. února (commit). Bezpečnostní chyba byla nalezena pomocí nástroje syzkaller [Hacker News].

Ladislav Hagara | Komentářů: 2
dnes 15:00 | Zajímavý software

Společnost Valve vydala novou beta verzi SteamVR. Z novinek lze zdůraznit oficiální podporu Linuxu. Další informace o podpoře této platformy pro vývoj virtuální reality v Linuxu v diskusním fóru. Hlášení chyb na GitHubu.

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

Po necelém roce od vydání verze 0.67 byla vydána verze 0.68 populárního telnet a ssh klienta PuTTY. Podrobnosti v přehledu změn. Řešeny jsou také bezpečnostní chyby.

Ladislav Hagara | Komentářů: 0
včera 21:32 | Nasazení Linuxu

Canonical představuje nejnovější verzi chytré helmy DAQRI s Ubuntu pro rozšířenou realitu. K vidění bude příští týden v Barceloně na veletrhu Mobile World Congress 2017.

Ladislav Hagara | Komentářů: 0
včera 21:31 | Pozvánky

Pro zájemce o hlubší znalosti fungování operačních systémů připravila MFF UK nový předmět Pokročilé operační systémy, v rámci něhož se vystřídají přednášející nejen z řad pracovníků fakulty, ale dorazí také odborníci ze společností AVAST, Oracle, Red Hat a SUSE. Tento předmět volně navazuje na kurz Operační systémy ze zimního semestru, ale pokud máte praktické zkušenosti odjinud (například z přispívání do jádra Linuxu) a chcete si

… více »
Martin Děcký | Komentářů: 6
včera 21:30 | Pozvánky

Czech JBoss User Group Vás srdečně zve na setkání JBUG v Brně, které se koná ve středu 1. března 2017 v prostorách Fakulty Informatiky Masarykovy Univerzity v místnosti A318 od 18:00. Přednáší Tomáš Remeš a Matěj Novotný na téma CDI 2.0 - New and Noteworthy. Více informací na Facebooku a na Twitteru #jbugcz.

mjedlick | Komentářů: 0
20.2. 23:45 | Zajímavý software

Na blogu Qt bylo představeno Qt 3D Studio. Jedná se o produkt dosud známý pod názvem NVIDIA DRIVE™ Design Studio. NVIDIA jej věnovala Qt. Jedná se o několik set tisíc řádků zdrojového kódu. Qt 3D Studio bude stejně jako Qt k dispozici jak pod open source, tak pod komerční licencí. Ukázka práce s Qt 3D Studiem na YouTube.

Ladislav Hagara | Komentářů: 10
20.2. 17:50 | Komunita

Nadace The Document Foundation (TDF) zastřešující vývoj svobodného kancelářského balíku LibreOffice slaví 5 let od svého oficiálního vzniku. Nadace byla představena 28. září 2010. Formálně byla založena ale až 17. února 2012.

Ladislav Hagara | Komentářů: 0
20.2. 12:50 | Komunita

Mozilla.cz informuje, že dosud experimentální funkce Page Shot z programu Firefox Test Pilot (zprávička) se stane součástí Firefoxu. Page Shot je nástroj pro vytváření snímků webových stránek. Umí výběr oblasti, prvku stránky (např. odstavce), nebo uložení snímku celé stránky. Snímky lze ukládat na disk nebo nahrávat na server Mozilly. Nedávno bylo oznámeno, že se součástí Firefoxu stane Activity Stream.

Ladislav Hagara | Komentářů: 51
20.2. 04:10 | Nová verze

Po 10 týdnech vývoje od vydání Linuxu 4.9 (zprávička) oznámil Linus Torvalds, mj. již 20 let žijící v USA, vydání Linuxu 4.10 (LKML). Přehled nových vlastností a vylepšení například na Kernel Newbies a v Jaderných novinách (1, 2 a 3). Kódové jméno Linuxu 4.10 je Fearless Coyote.

Ladislav Hagara | Komentářů: 35
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (13%)
 (2%)
 (71%)
 (4%)
 (10%)
Celkem 684 hlasů
 Komentářů: 66, poslední dnes 18:57
Rozcestník

Dotaz: Perl - vymaz prazdnych hodnot pole

30.10.2006 17:52 michalst | Praha
Perl - vymaz prazdnych hodnot pole
Přečteno: 159×
Zdravim, mam v perlu pole @addr kde jsou ulozeny vyextrahovane email adresy, jenze to pole obsahuje jeste cca 20 prazdnych zaznamu (prin @addr vypise neprazdne zaznamy(7), ale pri $#addr to da hodnotu 26). Kdyz rucne pres splice(@addr,0,20) ty prazdne zaznamy vymazu je to ok. Jenze ja nikdy nebudu vedet, kolik tech prazdnych zaznamu tam bude a v dalsim kroku potrebuju pozivat ty adresy v promennych $addr[0] - $addr[6]. Diky Michal

Odpovědi

30.10.2006 20:23 Dunric | skóre: 21
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Nevím jestli jsem zcela správně pochopil zadání, ale jestli jde o odstranění prvků pole s "prázdnými" hodnotami/řetězci, tak by to mohlo jít třeba takhle:
my $index = 0;
while ( $index <= $#addr ) {
  if ( $addr[$index] =~ /^\s*$/ ) {
    splice( @addr, $index, 1 );
  } else {
    $index++;
  }
}
In the garden sleeps a messenger ·
30.10.2006 20:38 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
@addr = grep $_, @addr;
30.10.2006 20:49 Petr
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Nulovy zaznam neni prazdny, takze radeji @addr = grep {$_ ne q()} @addr;
30.10.2006 20:49 Petr
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Nulovy zaznam neni prazdny, takze radeji @addr = grep {$_ ne q()} @addr;
30.10.2006 23:08 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
to už radšej
@addr = grep defined && length, @addr;
31.10.2006 06:57 Tomáš Janeček | skóre: 12
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
A nebylo by lepsi se postarat o to, aby se do toho pole vubec zadne prazdne zaznamy nedostaly? Jak je tam nacitas? neslo by uz pri nacitani pomoci neceho jako
next if(/^\s*$/);
odfiltrovat prazdne zaznamy? Nebudes muset to pole cele znovu prochazet...
Kdyz napises, jak je nacitas, urcite neco vymyslime :)
Něco děsně chytrýho a vtipnýho
31.10.2006 12:26 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Takhle --> jde tam je hlavicka mailu:
@mail=<>;
$i=0;
foreach $radka(@mail){     #vim,ze by slo foreach $radka(<>)
    $vstup[$i]=$radka    #v poli uchovam puvodni hlavicku mailu
   if ($radka =~/^To:|(>,|>\s)$/){    #nahrubo vyberu radky, kde se vyskytují adresy
       if ($radka =~/^To:/){
          $adr[$i]=substr($radka,3);    #oriznu To:
       }else{
          $adr[$i]=$radka;    #jinak nactu vsechny radky vyhovující prvnímu if
       }
       }
       $i++;
}
potom odfiltruju vsechy hlavicky From: Message-ID...... a oriznu prazdne znaky z adres (odsazení.. atd).
ve finale jsem udelal prazdne radky pres :
$a=grep /^\S/, @addr;    #coz mi spocita kolik je tam plnych radku
@addr=reverse(@addr);
splice(@addr, $a)    #cimz jsem to pole zredukoval jen na plne radky no a pak uz jen vezmu puvodni hlavicku a pridam k ni pomoci for cyklu X-Original-To: + $addr[0-x].
Cela tahle kasparina vznikla tim, ze mame u providera mailovy kos a nejakym zahadnym zpusobem nedokaze poslat nejakou jednoznacne identifikujici hlavicku s urcenim adresata (X-Original-To nebo neco podobneho) a veskere prijemce posila v To: --> cimz me dostava do situace, kdy mi dojde treba 5 mailu, kteri maji v To stejne udelane prijemce no a me to procmail nezkousne a vsech 5 mailu doruci tomu, kdo je z tech 5ti prijemcu na prvnim miste. Diky za kazdou radu Michal
31.10.2006 12:33 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
$a=grep /^\S/, @addr;    #coz mi spocita kolik je tam plnych radku
@addr=reverse(@addr);
splice(@addr, $a)
môžete nahradiť jednoduchým
@addr = reverse grep /^\S/, @addr;
navyše nebude robiť chyby v pri existencii prázdneho prvku uprostred poľa.

Btw, hlavička mailu môže byť rozdelená na viacero riadkov

31.10.2006 12:40 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Prima napad, a to zahrnuje i splice? Michal Ps: S perlem se peru od minuleho patku, tak prosim o strpeni...
31.10.2006 12:42 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
splice nepotrebujete, pretože grep samotný vyhodí prvky, ktoré neskôr vyhadzujete použitím splice.
31.10.2006 12:46 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
btw, zjednodušená verzia toho vášho:
@vystup = @mail = <>;
@adr = map { s/^To://; $_ } grep /^To:|(>[,\s])$/, @mail;
31.10.2006 12:48 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Takhle nejak si predstavuju perl - kod....ach jo, zase neco noveho.... Michal
31.10.2006 12:46 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Mate pravdu (uz jsem to vyzkousel). Ono by se v tom kodu naslo vice jinych drobnosti predchoziho typu, ze? Diky Michal
31.10.2006 12:49 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
jj, to máte pravdu :-)
Ak chcete robiť nejakú šialenú analýzu mailu, odporúčam vám pozrieť si modul Mail::Audit a jeho pluginy (výstup search-u)
31.10.2006 13:00 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Diky podivam se na to, ale nechci delat analyzy mailu, jenom portebuju z To: vyselektovat vsechny p rijemce - v pripade, ze jich je tam vic - ulozit to do nejake promenne a tu potom vlozit zpatky do puvodni hlavicky s jednoznacnou identifikaci prijemce treba pomoci X-Original-To. Nic jineho nez perl me nenapadl - mozna jeste tak Bash. Michal
31.10.2006 13:08 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
pozrite sa na tú knižnicu, dobrá knižnica nikdy neuškodí :-)
31.10.2006 13:14 b0rmann | skóre: 15 | Pardubice
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Kdyz polozka neni prazdna, tak jeste neznamena ze je to k necemu pouzitelna mailova adresa. Udelal bych asi tak:
use Email::Valid;
@addr=grep defined, map {Email::Valid->address($_)?$_:undef} @addr;
--- Gott strafe Amerika
31.10.2006 13:24 happy barney | skóre: 34 | blog: dont_worry_be_happy
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
prečo grep a map, keď to grep zvládne sám ?
use Email::Valid;
@addr = grep { Email::Valid->address ($_) } @addr;
1.11.2006 09:14 michalst | Praha
Rozbalit Rozbalit vše Re: Perl - vymaz prazdnych hodnot pole
Všem děkuji za účast v diskusi aza projevenou trpělivost. Michal

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.