🚀 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

In pl.comp.lang.perl Jaroslaw Strzalkowski <js@galaxy.uci.agh.edu.pl> wrote:
: 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ż?

No to ja - w ramach odwiecznej rywalizacji :-) zrobiłem to troszkę 
prościej. Wcześniej już posłałem do Adama mailem - bo przysłał pytanie też 
do mnie bezpośrednio - ale nie mogę przecież sobie podarować okazji, coby
się publicznie powymądrzać :-> A skoro już się wymądrzać, to co mi 
tam - dodam komentarze (Adam dostał bez komentarzy) :-)

#!/usr/bin/perl
my $file = join "", <>;  # cały plik(i) do $file (coś jakby cat $* >$file)
my $parsed = "";         
while( $file =~ /<[^>]*>|[^<]*/g ) { # bierz albo kolejny tag, albo 
                                     # tekst między tagami
   $_ = $&; # zapisz co zostało dopasowane - dla wygody w $_
   if( /<body.*>/i .. /<\/body.*>/i ) { # Jeżeli było już <body>, ale nie było 
                                        # jeszcze </body>
     s!(font\S*)!<font color="red">$1</font>!gi # dokonaj modyfikacji...
       unless /^</;                             # ...chyba że to jest tag
   }
   $parsed .= $_; # dopisz następny kawałek do zmiennej z wynikiem.
}
print $parsed; # zrobione :-)

Pozostaje pytanie czy moje rozwiązanie jest mniej czy bardziej 
czytelne niż Jarka. Ale IMHO jak trzeba cudzy program zrozumieć, to 
chyba najważniejsze żeby był krótki - bo wtedy do rozumienia jest 
mniej :-)

P.S. To dlatego jestem taki miły i dokładny, że mam właśnie do 
     zrobienia znacznie większy i pilniejszy projekt :-)

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Wielkie dzięki dla Mistrzów Ogonkowiczów za tak rychłą odpowiedź.
Wybrałem rozwiązanie Piotra, gdyż bliższe było temu, co sam starałem się
powoli klecić do kupy (chociaż bez Waszej pomocy badziewiłbym pewnie
jeszcze z miesiąc).

Wynik jest do obejrzenia na stronie Ogonek i spółka
(http://ogonek.home.ml.org/). 

Pozdrawiam,
Adam Twardoch (fidel)

-- 
| 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                  |

In pl.comp.lang.perl Piotr Piatkowski <kompas@galaxy.uci.agh.edu.pl> wrote:
: No to ja - w ramach odwiecznej rywalizacji :-) zrobiłem to troszkę 
: prościej.

Panowie! Kto następny?! Kto skróci zapis Piotra o połowę?
Ale faktycznie o $& zapomniałem. 
-- 
Jaroslaw Strzalkowski, Uczelniane Centrum Informatyki AGH, Krakow