Mozno pomozu regularne vyrazy

[Honza Pazdziora]

On Tue, 3 Apr 2001 14:47:18 +0200, JM <eagle na eaglenetwork.sk> wrote:
> vie mi prosim niekto poradit s tymto problemom?
> Mam retazec, zlozeny z viacerych slov, napriklad:
> 
> $a="khdbfvjb jdhcvbjc bcjq cvbj kbfvkwe wdhbvjhwb";
> 
> Z tohto retazca potrebujem vymazat vsetky slova (znaky oddelelene
> medzerami), ktore maju viac ako 10 znakov. Urobil som to roznymi rozkladmi
> (split) a cyklami, som vsak nespokojny sam zo sebou. Urcite sa to da urobit
> nejako jednoduchsie.

$a =~ s/\w{11,}(\s+|$)//g;

> Este mam jednu dilemu, a tou je odstranenie znakov konca riadka.
> Priklad: Vo webovskom formulari vypisem text a kedze chcem formular nasledne
> zobrazit, zachovavam formatovanie tak, ze vsetky znaky \n premienam na <BR>
> a vsetky znaky \r mazem.
> Ak vsak chcem zamedzit tomu, aby mi po sebe nenasledovali dva prazdne
> riadky, nikdy sa mi to nepodari.

$text =~ s!(\r?\n)+!<BR />!g;

Doufam, ze to pomuze.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------