Dotaz: Perl - vymaz prazdnych hodnot pole

[michalst]

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

[Dunric]

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++;
  }
}

[happy barney]

@addr = grep $_, @addr;

[Petr]

Nulovy zaznam neni prazdny, takze radeji @addr = grep {$_ ne q()} @addr;

[Petr]

Nulovy zaznam neni prazdny, takze radeji @addr = grep {$_ ne q()} @addr;

[happy barney]

to už radšej

@addr = grep defined && length, @addr;

[Tomáš Janeček]

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 :)

[michalst]

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

[happy barney]

$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

[michalst]

Prima napad, a to zahrnuje i splice? Michal Ps: S perlem se peru od minuleho patku, tak prosim o strpeni...

[happy barney]

splice nepotrebujete, pretože grep samotný vyhodí prvky, ktoré neskôr vyhadzujete použitím splice.

[happy barney]

btw, zjednodušená verzia toho vášho:

@vystup = @mail = <>;
@adr = map { s/^To://; $_ } grep /^To:|(>[,\s])$/, @mail;

[michalst]

Takhle nejak si predstavuju perl - kod....ach jo, zase neco noveho.... Michal

[michalst]

Mate pravdu (uz jsem to vyzkousel). Ono by se v tom kodu naslo vice jinych drobnosti predchoziho typu, ze? Diky Michal

[happy barney]

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)

[michalst]

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

[happy barney]

pozrite sa na tú knižnicu, dobrá knižnica nikdy neuškodí

[b0rmann]

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;

[happy barney]

prečo grep a map, keď to grep zvládne sám ?

use Email::Valid;
@addr = grep { Email::Valid->address ($_) } @addr;

[michalst]

Všem děkuji za účast v diskusi aza projevenou trpělivost. Michal