🚀 go-pugleaf

Drodzy!
Sytuacja: PERL. Serwer WWW na stacji Unix. CGI. 
Mam dokument HTML i mam pewne wyrażenie. 
Na przykład dokument index.html oraz wyrażenie "font". 
Mam skrypt CGI w Perlu, który wywołuję z parametrami URL tego dokumentu
i wyrażenie.

W skrypcie url jest w zmiennej $inurl a wyrażenie w $searchtext

I teraz chcę, żeby dokument spod $inurl został wypisany na ekranie
"przefiltrowany", tzn. wszystkie pojawienia się wyrażenia $searchtext (w
tym przypadku "font" w tym dokumencie mają być objęte jakimś 
tagien (np. <FONT COLOR="red"></FONT>). 

Ale! Po pierwsze zamiany ma zajść tylko w body a po drugie wewnątrz
tagów oczywiście nie!
No i jeszcze żeby było case insensitive (ale to już tylko ewentualnie).
Czyli mam taki dokument: 

------------------------------------------
<HTML>
<HEAD><TITLE>Polskie fonty</TITLE></HEAD>
<BODY><H1>Polskie fonty pod Windows 95</H1>
Tu znajdziecie FONTY Arial i Times New Roman. Inne fonty 
dostępne są <A HREF="http://www.fontfont.de/">tutaj</A>. 
</BODY></HTML>
------------------------------------------

Jak widać, wyrażenie "font" jest w tytule, w <H1>, w zwyklym tekscie i w
tagu <A>

Oczywiście zamianione mają być tylko te w <H1> i w zwyklam tekscie,
czyli outpot skryptu wywulanego z parametrami "index.html" i "font"
powinien wyglądać tak:

------------------------------------------
<HTML>
<HEAD><TITLE>Polskie fonty</TITLE></HEAD>
<BODY><H1>Polskie <FONT COLOR="red">font</FONT>y pod Windows 95</H1>
Tu znajdziecie <FONT COLOR="red">FONTY</FONT> Arial i Times New Roman.
Inne <FONT COLOR="red">fonty</FONT>
dostępne są <A HREF="http://www.fontfont.de/">tutaj</A>. 
</BODY></HTML>
------------------------------------------

Jak to zrobić w PERLu?

Z góry dziękuję.
Adam Twardoch

Ogonek i spółka - http://ogonek.home.ml.org/



-- 
| adam.twardoch@euv-frankfurt-o.de  |  http://twardoch.home.ml.org/ |
| Tel. Polska: (095)592151 (032)2181807  |   world +49 335 5534 638 |
| Pilsudskiego 14/51 | Nalkowskiej 15/84 | Muehlenweg 36/507        |
| PL 69-100 Slubice  | PL 43-100 Tychy   | D-15232 Frankfurt (Oder) |
| Poland             | Poland            | Germany                  |