On Thursday 24 February 2005 13:48, zgrim wrote: > On [24-02-2005] 13:13 +0200, Serghei Amelian wrote: > > Mda, acum m-am prins ca ce intelege perl-ul prin linie e tot textul. > > ?! Perl "intelege prin linie" ce vrea sa inteleaga cel dintre scaun > si tastatura.
Aici n-am inteles. > > Am facut asa: > > > > s/\r//g; > > s/\s*\n//; > > s/\n\s*\n/\n/g; > > > > si acum rezultatul pare ca e ok > > In primul mail ai zis ca vrei sa scoti liniile goale. Nu, am zis "Aici m-as fi asteptat ca in tot textul meu sa cada toate liniile goale (inclusiv alea care se termina in "\r\n") sau care contin numai spatii." > 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. > 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". -- Serghei. --- Detalii despre listele noastre de mail: http://www.lug.ro/
