On [24-02-2005] 14:49 +0200, Serghei Amelian wrote:
> On Thursday 24 February 2005 14:36, zgrim wrote:
> [..]
> >
> > Vad ca am inteles ce vrei sa faci, anume sa scoti liniile goale din
> > text, si _nu si_ '\n|\r\n' care ti-ar lasa textul intr-o singura linie.
> > Vad, de asemenea, ca nu faci asta pe un fisier; ce am scris mai sus
> > era un exemplu, din care poti lua regexpul care scoate liniile goale si
> > il pui intr-un while(), anume exact ce face -p. Nu stiu insa de ce nu
> > folosesti unul din modulele CPAN din Mail:: sau MIME:: namespaces, in
> > loc sa dai cu regexpuri in variabile, fara siguranta.
>
> Pai folosesc MIME::Parser si MIME::Entity pentru a extrage part-urile.
> Problema mea sunt part-urile care nu contin text ci doar linii goale si
> spatii; part-urile alea vreau sa le ignor intr-un fel. Ai alta idee?
O gramada. Dar prima, pe scurt, de ce nu faci ceva simplu de genul:
ignore_body=1 unless ($body =~ /\w/);
adica:
if ($body =~ /\w/) {
print "ezista text in body!";
} else {
print "body n-are text";
}
perldoc perlre ?
--
perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'
---
Detalii despre listele noastre de mail: http://www.lug.ro/
