Posted By: vitas (vitas) on 'CZscripts' Title: Re: Perl regexp Date: Thu Nov 14 16:58:32 2002 > Mam takovyto problem: > mam libovolny retezec, ktery obsahuje nejake znaky + uvozovky a apostrofy. > Dejme tomu, ze bych chtel, aby mi regularni vyraz nasel retezce AHOJ > v tomto retezci, ale jenom tehdy, pokud to AHOJ neni uvnitr dvojice "" > nebo ''. > Dejme tomu, ze retezec je: > (Tady je AHOJ a "tady je nejaky text AHOJ a zase neco" a tady dalsi 'AHOJ') nejprve idea jen pro uvozovky: ^("[^"]*"[^"]*)*AHOJ pokus o preklad do cestiny: ( mezi dvema uvozovkama nekolik neuvozovek a za nima zase nekolik neuvozovek ) toto nekolikrat a pak AHOJ nekolik je 0,1,2... pro kombinaci s apostrofama: ^(("[^"]*")?('[^']*])?[^'"]*)*AHOJ osobne bych to delal jinak: $txt =~ s/"[^"]*"//g; $txt =~ s/'[^']*'//g; $txt =~ s/AHOJ/zdravstvujte/g; #nebo neco jineho vitas @;; -- vi hint: 0GdG:wq -- dopise nacatou a neulozenou diplomku