Re: [PERL] Hjælp til Perl-hack

[Peter Makholm <sslug@sslug>]

Claus Ekstroem <sslug@sslug> writes:

>     $convert = 1 if /<screen>/;
>     $convert = 0 if /<\/screen>/;

Generalisten i mig siger at det skal være følgende:

       $convert++ if /<$tag>/;
       $convert-- if /</$tag>/;
       die("Malformed SGML") if ($convert < 0);

       s,-,&dahs;, if ($convert);

Det vil kunne klare nestede tags, men det kan argumenteres at hvis man
ønsker en så fin løsning kan man lige så godt bruge en ordentlig
XML-dims.

-- 
Peter