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 22:22 | Komunita

Dle plánu byl měl Debian 9 s kódovým názvem Stretch vyjít v sobotu 17. června. Po celém světě se začínají plánovat Release Parties. Oznámeno bylo vydání čtvrté RC (release candidate) verze instalátoru pro Debian 9 Stretch.

Ladislav Hagara | Komentářů: 4
26.5. 22:22 | Komunita

V Norimberku probíhá do neděle 28. května openSUSE Conference 2017. Na programu je celá řada zajímavých přednášek. Sledovat je lze online. K dispozici jsou také videozáznamy (YouTube) již proběhnuvších přednášek. Dění lze sledovat na Twitteru.

Ladislav Hagara | Komentářů: 0
26.5. 11:33 | IT novinky

Red Hat kupuje společnost Codenvy stojící za stejnojmenným webovým (cloudovým) integrovaným vývojovým prostředím (WIDE) postaveném na Eclipse Che.

Ladislav Hagara | Komentářů: 0
26.5. 08:55 | Nová verze

V listopadu 2014 byl představen fork Debianu bez systemd pojmenovaný Devuan. Po dva a půl roce jeho vývojáři oznámili vydání první stabilní verze 1.0. Jedná se o verzi s dlouhodobou podporou (LTS) a její kódové jméno je Jessie, podle planetky s katalogovým číslem 10 464.

Ladislav Hagara | Komentářů: 11
25.5. 20:22 | Zajímavý článek

Nadace Raspberry Pi vydala již osmapadesáté číslo (pdf) stostránkového anglicky psaného časopisu MagPi věnovanému Raspberry Pi a projektům postaveným na tomto jednodeskovém počítači a druhé číslo (pdf) časopisu Hello World primárně určeného pro učitele informatiky a výpočetní techniky.

Ladislav Hagara | Komentářů: 0
25.5. 19:55 | Humor

Portál Stack Overflow informuje na svém blogu, že pomohl ukončit editor Vim už více než milionu vývojářů. V loňském roce například hledal odpověď na otázku Jak ukončit editor Vim v průměru 1 z 20 000 návštěvníků.

Ladislav Hagara | Komentářů: 13
25.5. 19:22 | Nová verze

Po pěti měsících od vydání verze 3.5.0 byla vydána nová stabilní verze 3.6.0, tj. první z nové řady 3.6, minimalistické linuxové distribuce zaměřené na bezpečnost Alpine Linux (Wikipedie). Z novinek lze zmínit například podporu dvou nových 64bitových platforem little-endian POWER machines (ppc64le) a IBM z Systems (s390x) nebo nové balíčky Rust 1.17.0, Cargo 0.18.0, GHC 8.0.2 a Julia 0.5.2.

Ladislav Hagara | Komentářů: 0
24.5. 21:33 | Bezpečnostní upozornění

V Sambě byla nalezena a opravena bezpečnostní chyba CVE-2017-7494. Má-li útočník právo ukládat soubory na vzdálený server, může tam uložit připravenou sdílenou knihovnu a přinutit smbd server k jejímu načtení a tím pádem ke spuštění libovolných příkazů. Chyba je opravena v upstream verzích 4.6.4, 4.5.10 a 4.4.14. Chyba se týká všech verzí Samby od verze 3.5.0 vydané 1. března 2010.

Ladislav Hagara | Komentářů: 7
24.5. 20:44 | Nová verze

Byla vydána nová stabilní verze 4.3.0 integrovaného vývojového prostředí (IDE) Qt Creator. Z novinek lze zmínit například integraci editoru kódu do Qt Quick Designeru.

Ladislav Hagara | Komentářů: 1
24.5. 20:11 | Bezpečnostní upozornění

Společnost Check Point informuje na svém blogu o novém vektoru útoku. Pomocí titulků lze útočit na multimediální přehrávače VLC, Kodi, Popcorn Time, Stremio a pravděpodobně i další. Otevření útočníkem připraveného souboru s titulky v neaktualizovaném multimediálním přehrávači může vést ke spuštění libovolných příkazů pod právy uživatele. Ukázka na YouTube. Chyba je opravena v Kodi 17.2 nebo ve VLC 2.2.6.

Ladislav Hagara | Komentářů: 14
Chystáte se pořídit CPU AMD Ryzen?
 (6%)
 (33%)
 (1%)
 (8%)
 (44%)
 (9%)
Celkem 629 hlasů
 Komentářů: 62, poslední 19.5. 01: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.