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 17:44 | Nová verze

    Linuxová distribuce OpenMandriva byla vydána ve verzi ROME 23.03. Název ROME říká, že se jedná se o průběžně aktualizovanou (rolling) edici. Stabilní edice nese název Rock, aktuálně OpenMandriva Lx 4.3 Dysprosium.

    Ladislav Hagara | Komentářů: 1
    včera 17:33 | Pozvánky

    Tento pátek od 14:00 proběhne v Brně na FI MUNI konference DevConf Mini. Na programu je celá řada zajímavých přednášek od testování releasů Fedory, přes super počítače nebo Big Data, až po závody autonomních aut. Konferenci bude možné sledovat i na online streamu.

    joejoe | Komentářů: 0
    včera 15:00 | Zajímavý článek

    Minulý týden proběhla hackerská soutěž Pwn2Own Vancouver 2023. Adobe Reader, Microsoft SharePoint, Oracle VirtualBox, Tesla, Ubuntu Desktop, Windows 11, macOS, Microsoft Teams, VMWare Workstation. Vše hacknuto. Synacktiv získal 530 000 dolarů a Teslu Model 3.

    Ladislav Hagara | Komentářů: 7
    včera 07:00 | Nová verze

    Byla vydána nová stabilní verze 3.5 svobodného 3D softwaru Blender. Přehled novinek i s náhledy v oznámení o vydání a na YouTube.

    Ladislav Hagara | Komentářů: 0
    včera 06:00 | Nová verze

    Po 5 měsících vývoje od vydání verze 6.1 byla vydána nová verze 6.2 svobodného open source redakčního systému WordPress. Kódové jméno Dolphy bylo vybráno na počest amerického jazzového altsaxofonisty, flétnisty a basklarinetisty Erica Dolphyho.

    Ladislav Hagara | Komentářů: 0
    29.3. 21:44 | IT novinky

    Josef Průša představil (YouTube) novou 3D tiskárnu Original Prusa MK4. Cena sestavené tiskárny je 27990 Kč. Cena stavebnice je 20990 Kč.

    Ladislav Hagara | Komentářů: 5
    29.3. 19:00 | Nová verze

    Turris OS, operační systém pro síťová zařízení Turris postavený na OpenWrt, byl vydán v nové verzi 6.3.0. Vývojáři upozorňují, že Netmetr byl nahrazen LibreSpeedem, viz příspěvek na blogu CZ.NIC.

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

    Byl vydán xorg-server 21.1.8 a xwayland 22.1.9 a 23.1.1. Řešena je zranitelnost CVE-2023-1393 využitelná k lokální eskalaci práv.

    Ladislav Hagara | Komentářů: 5
    29.3. 15:00 | Nová verze

    Byla vydána nová verze 10 integrovaného vývojového prostředí (IDE) Qt Creator. Podrobný přehled novinek v cgitu.

    Ladislav Hagara | Komentářů: 0
    28.3. 22:33 | Komunita

    Ubuntu Cinnamon bude od Ubuntu 23.04 oficiální odnoží Ubuntu (návrh, schválení).

    Ladislav Hagara | Komentářů: 6
    Používáte WSL (Windows Subsystem for Linux)?
     (73%)
     (12%)
     (3%)
     (11%)
    Celkem 377 hlasů
     Komentářů: 7, poslední 28.3. 17:34
    Rozcestník


    Dotaz: Perl - vymaz prazdnych hodnot pole

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