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 05:55 | Zajímavý projekt

Google na svém blogu věnovaném open source představil portál Google Open Source informující mimo jiné o více než 2000 open source projektech vyvíjených nebo používaných v Googlu.

Ladislav Hagara | Komentářů: 0
dnes 03:33 | IT novinky

Pro společnost Red Hat skončil 28. února fiskální rok 2017. Dle finančních výsledků bylo čtvrté čtvrtletí, stejně jako celý fiskální rok 2017, opět úspěšné. Tržby jsou zvyšovány již 60 čtvrtletí v řadě. Za čtvrté čtvrtletí 2017 to bylo 629 milionů dolarů, tj. meziroční nárůst 16 %. Tržby za celý fiskální rok činily 2,4 miliardy dolarů, tj. meziroční nárůst 18 %.

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

V balíčku eject, příkaz pro vysunutí CD/DVD z mechaniky, v linuxových distribucích Ubuntu (USN-3246-1) a Debian (#858872) byla nalezena bezpečnostní chyba CVE-2017-6964 zneužitelná k lokální eskalaci práv. Linuxové distribuce používající eject z balíčku util-linux nejsou zranitelné.

Ladislav Hagara | Komentářů: 8
včera 05:55 | Komunita

Dries Buytaert, autor a vedoucí projektu Drupal a prezident Drupal Association, požádal soukromě před několika týdny Larryho Garfielda, jednoho z klíčových vývojářů Drupalu, aby projekt Drupal opustil. Larry Garfield minulý týden na svých stránkách napsal, že důvodem jsou jeho BDSM praktiky a rozpoutal tím bouřlivou diskusi. Na druhý den reagoval Dries Buytaert i Drupal Association. Pokračuje Larry Garfield [reddit].

Ladislav Hagara | Komentářů: 40
včera 04:44 | Humor

Společnost SAS zveřejnila na svých stránkách studii s názvem Open Source vs Proprietary: What organisations need to know (pdf). Organizace by měly například vědět, že ideální je mix 40 % open source softwaru a 60 % proprietárního softwaru [Slashdot].

Ladislav Hagara | Komentářů: 12
27.3. 23:33 | Zajímavý software

Byl vydán ShellCheck ve verzi 0.4.6. Jedná se o nástroj pro statickou analýzu shellových skriptů. Shellové skripty lze analyzovat na webové stránce ShellChecku, v terminálu nebo přímo z textových editorů. Příklady kódů, na které analýza upozorňuje a doporučuje je přepsat. ShellCheck je naprogramován v programovacím jazyce Haskell. Zdrojové kódy jsou k dispozici na GitHubu pod licencí GPLv3.

Ladislav Hagara | Komentářů: 0
27.3. 23:33 | Pozvánky

Czech JBoss User Group zve na setkání JBUG v Brně, které se koná ve středu 5. dubna 2017 v prostorách Fakulty informatiky Masarykovy univerzity v místnosti A318 od 18:00. Přednáší Pavol Loffay na téma Distributed Tracing and OpenTracing in Microservice Architecture.

… více »
mjedlick | Komentářů: 0
27.3. 11:33 | Zajímavý článek

Národní centrum kybernetické bezpečnosti (NCKB) vypracovalo (pdf) 26 podrobných bezpečnostních doporučení pro síťové správce. Tato doporučení jsou nastavena tak, aby je bylo možné aplikovat v každé instituci. Jsou rozdělena na tři základní části: bezpečnost infrastruktury, bezpečnost stanic a serverů a bezpečnost uživatelů.

Ladislav Hagara | Komentářů: 17
27.3. 05:55 | Komunita

Prezident Nadace pro svobodný software (FSF) Richard M. Stallman vyhlásil na slavnostním ceremoniálu v rámci konference LibrePlanet 2017 vítěze Free Software Awards za rok 2016. Ocenění za společenský přínos získal SecureDrop (Wikipedie). Za rozvoj svobodného softwaru byl oceněn Alexandre Oliva (Wikipedie).

Ladislav Hagara | Komentářů: 0
27.3. 04:44 | Nová verze

Byla vydána verze 0.7.0 debugovacího nástroje cgdb. Mezi novinky patří například zvýrazňování syntaxe jazyka Rust. Podrobnosti v poznámkách o vydání.

Neel | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (14%)
 (2%)
 (72%)
 (3%)
 (10%)
Celkem 959 hlasů
 Komentářů: 72, poslední 1.3. 11:16
    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.