> > Salut!
> > Am probleme cu niste pattern matchinguri in perl..
> >
> > Exemplu...
> > Am un string care contine sa zicem : $string="CABLU RJ45 si CD-ROM 52x";
> >
> > Am nevoie sa dispara din string toate cuvintele mai mici de 3 litere,
> > toate cuvintele care contin cifre si toate spatiile>1
>
> OK, si cu ce pattern ai probleme? Sau sa inteleg ca vrei sa-ti facem
> noi pattern-ul :-) Ma rog, in functie de ce consideri cuvint, poti sa
> adaptezi/folosesti pattern-ul urmator.
>
> $string =~ s/
> \s+ # spatii
> | # sau
> \b\w{1,3}?\b # cuvint de pina la 3 caractere, inclusiv;
> # caracterul "-" este separator
> #\b[a-z0-9_-]{1,3}?\b # cuvint de pina la 3 caractere, inclusiv;
> # caracterul "-" este considerat element
> # al unui cuvint
> | # sau
> \b\w*?\d+\w*?\b # cuvinte ce contin cifre
> //xg; # sterge
>
>
Hrm... Sau pur si simplu $string =~ s/(\w{0,2})//g urmat de $string =~
s/(\b\w+?\d+?\w*\b)//g urmat de $string =~ s/ +//g # ;)
--
Radu <[EMAIL PROTECTED]> www.littledragon.f2s.com
It is the weak who are cruel, only the strong can be truly gentle.
---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to
unsubscribe from this list.
