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 23:11 | Nová verze

Byla vydána verze 2.4.0 analyzátoru síťového provozu Wireshark. Jedná se o první stabilní verzi nové řady 2.4. Podrobný přehled novinek v poznámkách k vydání. V červnu proběhla konference SharkFest’17 US věnovaná Wiresharku. Záznamy přednášek jsou k dispozici na YouTube.

Ladislav Hagara | Komentářů: 0
včera 13:11 | Pozvánky

Spolek OpenAlt zve příznivce otevřeného přístupu na 142. brněnský sraz, který proběhne v pátek 21. července od 18:00 hodin ve Sport Centru Srbská (Srbská 4). Od 19:00 je pro zájemce zamluveno hřiště na plážový volejbal.

Ladislav Hagara | Komentářů: 0
včera 12:34 | Bezpečnostní upozornění

V GNOME Soubory, původně Nautilus, konkrétně v generování náhledů exe, msi, dll a lnk souborů byla nalezena a opravena bezpečnostní chyba CVE-2017-11421 s názvem Bad Taste. Při otevření složky obsahující tyto soubory může být spuštěn VBScript obsažen v názvech těchto souborů.

Ladislav Hagara | Komentářů: 2
včera 11:00 | Bezpečnostní upozornění

Společnost Oracle vydala čtvrtletní bezpečnostní aktualizaci svých softwarových produktů (CPU, Critical Patch Update). Opraveno bylo celkově 308 bezpečnostních chyb. V Oracle Java SE je například opraveno 32 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 28 z nich. V Oracle MySQL je opraveno 30 bezpečnostních chyb. Vzdáleně zneužitelných bez autentizace je 9 z nich.

Ladislav Hagara | Komentářů: 0
včera 01:00 | Komunita

Mark Krenz, známý svým twitterovým účtem @climagic (Command Line Magic), kde ukazuje, co vše a jak lze dělat v příkazovém řádku, přednášel včera v Praze. Záznam přednášky je k dispozici na YouTube.

Ladislav Hagara | Komentářů: 0
19.7. 10:00 | Nová verze

Microsoft vydal Skype pro Linux ve verzi 5.4 Beta. Nejnovější Skype pro Linux je postaven na frameworku Electron 1.7.4 a přináší skupinové videohovory.

Ladislav Hagara | Komentářů: 11
19.7. 06:00 | Nová verze

Werner Koch, zakladatel a hlavní vývojář GnuPG, oznámil vydání verze 1.8.0 svobodné kryptografické knihovny Libgcrypt. Jedná se o první stabilní verzi nové řady 1.8. Ta je API i ABI kompatibilní s řadou 1.7. Z novinek vývojáři zdůrazňují podporu kryptografických hašovacích funkcí Blake2 (Wikpedie), šifrovací mód XTS nebo zvýšení výkonu na architektuře ARM.

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

Stefan Vorkoetter představil na svých stránkách DIY tablet s Raspberry Pi 3 Model B. Z Raspberry Pi odstranil USB porty, ethernetový port i GPIO konektor. Použil oficiální sedmipalcový dotykový displej s rozlišením 800x480 pixelů. Hmotnost tabletu je 484  g.

Ladislav Hagara | Komentářů: 6
18.7. 06:00 | Zajímavý projekt

Podpořit vývoj otevřených technologií pro rozpoznávaní řeči lze na stránkách Common Voice. Jedná se o projekt Mozilly, jehož prvním cílem je nahrání a následné zveřejnění pod open source licencí 10 000 hodin záznamů řeči. Pomoci může kdokoli. Stačí na stránkách projektu do mikrofonu přečíst napsaný text nebo si nechat přehrávat již nahrané záznamy a určovat, zda napsaným textům odpovídají. Podrobnosti v často kladených otázkách (FAQ).

Ladislav Hagara | Komentářů: 4
18.7. 05:00 | IT novinky

Do pátku probíhá v Praze IETF 99, tj. 99. setkání organizace Internet Engineering Task Force (IETF) odpovědné za tvorbu internetových standardů RFC (Request for Comments). Vybrané přednášky a jednání lze sledovat online. Záznamy jsou k dispozici na YouTube. Těsně před setkáním bylo vydáno RFC 8200 nahrazující RFC 2460 a po více než 18 letech standardizující IPv6 (STD 86).

Ladislav Hagara | Komentářů: 0
Chystáte se pořídit CPU AMD Ryzen?
 (7%)
 (31%)
 (1%)
 (10%)
 (43%)
 (8%)
Celkem 1025 hlasů
 Komentářů: 65, poslední 1.6. 19:16
    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.