[rlug] Re: [mai mult sau mai putin incepator] eliminarea liniillor goale in perl

[Serghei Amelian]

On Thursday 24 February 2005 13:04, Alex 'CAVE' Cernat wrote:
> > $text = "aici se incarca text de undeva";
> > $text =~ s/^\s*$//g;
> >
> > 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. Totusi nu se intampla asta. Ceva idei?
>
> pai nu e corect, regexpul pe care l-ai scris tu face match pe
> [begin]whitespace{0,oricate}[end]
> cum presupun ca textul il incarci tot in $text, nu va merge

Mda, acum m-am prins ca ce intelege perl-ul prin linie e tot textul.

> incearca ceva de genul s/\n\s*\n/\n//g (dar care nu-ti va prinde prima
> linie)
>
> in general iti recomand si un s/\r//g inainte (for stupid windows files)

Am facut asa:

s/\r//g;
s/\s*\n//;
s/\n\s*\n/\n/g;

si acum rezultatul pare ca e ok

> Alex

mersi pentru hint

-- 
Serghei.

--- 
Detalii despre listele noastre de mail: http://www.lug.ro/