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 19:33 | Zajímavý článek Marek Stopka | Komentářů: 0
dnes 17:55 | Nová verze

Bylo oznámeno vydání nové verze 3.0.0 a krátce na to opravných verzí 3.0.1 a 3.0.2 nástroje mitmproxy určeného pro vytváření interaktivních MITM proxy pro HTTP a HTTPS komunikaci. Přehled novinek v příspěvku na blogu. Přispělo 56 vývojářů. Aktualizována byla také dokumentace [Hacker News].

Ladislav Hagara | Komentářů: 0
dnes 01:11 | Nová verze

Byla vydána nová major verze 3.0 svobodného multiplatformního geografického informačního systému QGIS (Wikipedie). Její kódové jméno je Girona, dle názvu města, ve kterém proběhlo 15. setkání vývojářů QGISu. Přehled novinek i s náhledy a animacemi v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
včera 20:33 | Zajímavý článek

Nadace Raspberry Pi vydala sedmašedesáté číslo (pdf) anglicky psaného časopisu MagPi věnovanému Raspberry Pi a projektům postaveným na tomto jednodeskovém počítači a čtvrté číslo (pdf) časopisu pro kutily HackSpace věnovanému navíc 3D tisku, pájení, řezání nebo i elektronice a IoT.

Ladislav Hagara | Komentářů: 0
včera 18:33 | Komunita

Morevna Project, který stojí za řadou svobodného softwaru pro animátory (např. Synfig Studio, RenderChan nebo Papagayo-NG) a svobodnými (CC-BY-SA) animovanými filmy/komiksy Morevna (3. díl) a Pepper&Carrot: The Potion Contest (6. díl), sbírá do 1. března příspěvky na 4. díl svého animovaného filmu Morevna. Mezi odměnami přispěvatelům lze najít např. i videokurzy animace v Synfigu či Blenderu.

xHire | Komentářů: 0
včera 12:22 | Bezpečnostní upozornění

Ve středu vydaná "npm@next" verze 5.7.0 správce balíčků pro JavaScript npm (Wikipedie, Node Package Manager) přinesla řadě uživatelů Linuxu nečekanou nepříjemnost. V závislosti na způsobu instalace a ve spojení s příkazem sudo mohlo dojít ke změně vlastníka u systémových souborů, také například /. Chyba je opravena v před několika hodinami vydané verzi npm 5.7.1 [reddit].

Ladislav Hagara | Komentářů: 11
včera 10:00 | Nová verze

Byla vydána verze 10.5 open source alternativy GitHubu, tj. softwarového nástroje s webovým rozhraním umožňujícího spolupráci na zdrojových kódech, GitLab (Wikipedie). Představení nových vlastností v příspěvku na blogu. Zdůraznit lze integrovanou podporu Let's Encrypt.

Ladislav Hagara | Komentářů: 0
22.2. 12:33 | Komunita

Příspěvek na blogu Signalu (Wikipedie) informuje o založení neziskové nadace Signal Foundation, jež bude zastřešovat další vývoj tohoto svobodného bezpečného komunikátoru běžícího také na Linuxu (Signal Desktop). Brian Acton, spoluzakladatel WhatsAppu, věnoval nadaci 50 milionů dolarů [Hacker News].

Ladislav Hagara | Komentářů: 1
22.2. 05:55 | Zajímavý článek

Článek na Fedora Magazine krátce představuje programovací jazyk Rust a několik zajímavých v Rustu naprogramovaných terminálových aplikací. Jedná se o alternativu k příkazu grep ripgrep, moderní barevnou alternativu k příkazu ls exa, příkazem cloc inspirovaný tokei a zvířátko v terminálu ternimal.

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

Byl spuštěn Humble Classics Return Bundle. Za vlastní cenu lze koupit hry Broken Sword 5 - The Serpent's Curse, Shadowrun Returns a Shadowrun: Dragonfall - Director's Cut. Při nadprůměrné platbě (aktuálně 8,48 $) také Shadowrun: Hong Kong - Extended Edition, Wasteland 2: Director's Cut - Standard Edition, Age of Wonders III a Xenonauts. Při platbě 15 $ a více lze získat navíc Torment: Tides of Numenera a Dreamfall Chapters: The Final Cut Edition.

Ladislav Hagara | Komentářů: 0
Který webový vyhledávač používáte nejčastěji?
 (2%)
 (28%)
 (62%)
 (2%)
 (3%)
 (0%)
 (1%)
 (1%)
Celkem 447 hlasů
 Komentářů: 35, poslední 21.2. 19:51
    Rozcestník

    Dotaz: Perl - vymaz prazdnych hodnot pole

    30.10.2006 17:52 michalst | Praha
    Perl - vymaz prazdnych hodnot pole
    Přečteno: 160×
    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.