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 02:20 | Zajímavý článek

David Revoy, autor open source webového komiksu Pepper&Carrot nebo portrétu GNU/Linuxu, upozorňuje na svém blogu, že nový Inkscape 0.92 rozbíjí dokumenty vytvořené v předchozích verzích Inkscape. Problém by měl být vyřešen v Inkscape 0.92.2 [reddit].

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

Øyvind Kolås, hlavní vývojář grafických knihoven GEGL a babl, které využívá grafický program GIMP, žádá o podporu na Patreonu. Díky ní bude moci pracovat na vývoji na plný úvazek. Milník 1000 $, který by stačil na holé přežití, se již téměř podařilo vybrat, dalším cílem je dosažení 2500 $, které mu umožní běžně fungovat ve společnosti.

xkomczax | Komentářů: 12
21.1. 23:54 | Pozvánky

DevConf.cz 2017, již devátý ročník jedné z největších akcí zaměřených na Linux a open source ve střední Evropě, proběhne od pátku 27. ledna do neděle 29. ledna v prostorách Fakulty informačních technologií Vysokého učení technického v Brně. Na programu je celá řada zajímavých přednášek a workshopů. Letos je povinná registrace.

Ladislav Hagara | Komentářů: 0
21.1. 22:11 | Nová verze

Byla vydána verze 1.0.0 emulátoru terminálu Terminology postaveného nad EFL (Enlightenment Foundation Libraries). Přehled novinek v poznámkách k vydání.

Ladislav Hagara | Komentářů: 0
20.1. 17:00 | Nová verze

Byl vydán Docker 1.13. Přehled novinek na YouTube a v poznámkách k vydání na GitHubu. Docker umožňuje běh aplikací v softwarových kontejnerech (Wikipedia).

Ladislav Hagara | Komentářů: 4
20.1. 15:51 | Komunita

Mozilla.cz informuje, že nástroje pro webové vývojáře se možná oddělí od Firefoxu a stanou doplňkem. Nástroje pro webové vývojáře prošly velkým přepisem a tým, který se stará o jejich vývoj, by uvítal možnost jejich častějších aktualizacích nezávisle na vydávání nových verzí Firefoxu.

Ladislav Hagara | Komentářů: 10
20.1. 07:00 | Humor

Čtenářům AbcLinuxu vše nejlepší k dnešnímu Dni zvýšení povědomí o tučňácích (Penguin Awareness Day).

Ladislav Hagara | Komentářů: 0
20.1. 06:00 | Komunita

Bylo spuštěno hlasování o přednáškách a workshopech pro letošní InstallFest, jenž proběhne o víkendu 4. a 5. března v Praze. Současně byla oznámena změna místa. InstallFest se letos vrací zpět na Karlovo náměstí do budovy E.

Ladislav Hagara | Komentářů: 0
20.1. 02:48 | Komunita

Greg Kroah-Hartman potvrdil, že Linux 4.9 je jádrem s prodlouženou upstream podporou (LTS, Long Term Support). Podpora je plánována do ledna 2019. Aktuální jádra s prodlouženou podporou jsou tedy 3.2, 3.4, 3.10, 3.12, 3.16, 3.18, 4.1, 4.4 a 4.9.

Ladislav Hagara | Komentářů: 0
20.1. 00:11 | Zajímavý článek

Výrobce síťových prvků, společnost Netgear, spustila nový program, který slibuje vývojářům, expertům, ale i běžným uživatelům vyplacení finanční odměny za nalezení bezpečnostních chyby v jejich produktech. Za nalezení zranitelnosti v hardware, API nebo mobilní aplikaci nabízí odměnu od 150 do 15 tisíc dolarů (dle závažnosti).

Michal Makovec | Komentářů: 0
Jak se stavíte k trendu ztenčování přenosných zařízení (smartphony, notebooky)?
 (10%)
 (2%)
 (74%)
 (3%)
 (10%)
Celkem 363 hlasů
 Komentářů: 25, poslední 21.1. 13:34
Rozcestník
Reklama

Dotaz: Perl - vymaz prazdnych hodnot pole

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