On [24-02-2005] 14:06 +0200, Serghei Amelian wrote:
> > Cu regexp poti face ceva de genul:
> >
> > perl -i.old -pe 's/^\s*$//g' fisier
> >
> > Daca vrei sa scoti si newline-urile, aka $/, aka 'input record
>
> Nu ai inteles ce vreau eu sa fac; mai zic o data: am un text, dat de un
> MIME::Entity (deci e un message/plain) pe care vreau sa-l simplific (adica sa
> elimin liniile care goale sau care contin doar spatii). Ideea e ca daca
> mesajul contine numai linii goale nu va mai fi afisat, pentru ca lungimea lui
> va deveni egala cu zero.
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.
>
> > separator' recomand sa folosesti chomp(), e o solutie portabila,
> > intelege ce-i aia '$/' si cum arata in functie de sistem.
>
> Textul meu nu provine dintr-un fisier. Deci nu pot sa fac chomp sau sa-l
> parcurg linie cu cu line.
> Asta daca nu fac "split /\n/" si dupa aia i-l prelucrez in "foreach".
Ok, ce conteaza de unde provine textul sau in ce il tii ?
--
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/
