🚀 go-pugleaf

In pl.comp.lang.perl Adam Twardoch (fidel) <adam.twardoch@euv-frankfurt-o.de> wrote:
: Drodzy!
: Sytuacja: PERL. Serwer WWW na stacji Unix. CGI. 
: Mam dokument HTML i mam pewne wyrażenie. 
[...opis problemu...]

: Jak to zrobić w PERLu?

Popatrz na to poniżej - to jeszcze nie całkiem doszlifowane, ale w zasadzie
robi to co chcesz - dopieść to sobie tak jak chcesz. Komentarze są chyba
niepotrzebne - dość banalne to, nieprawdaż?
Pozdrowienia.


#!/usr/local/bin/perl

undef $/;
$_ = <STDIN>;
if( /(<body>)(.+)(<\/body>)/is ) 
{ 
  $before_body = $`.$1; 
  $body = $2;
  $after_body = $3.$';
}
else
{
  $body = $_;
}

print $before_body;

while( $_ ne '' )
{
  if( /^([^<]*)(<[^>]*>)/s )
  {
    $nietag = $1;
    $tag = $2;
    $_ = $';
  }
  else
  {
    $nietag = $_;
    $tag = '';
    $_ = '';
  }

  $nietag =~ s/(font\w*)/<FONT COLOR="red">$1<\/FONT>/igs;
  print $nietag . $tag;
}


print $after_body;

-- 
Jaroslaw Strzalkowski, Uczelniane Centrum Informatyki AGH, Krakow