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

[Claus Ekstroem <sslug@sslug>]

> Jeg har (well alle har) et SGML-problem, jeg ikke kan
> løse selv, men det kan I med Perl.

Hvad med

#!/usr/bin/perl -w

my $convert = 0;

while (<>) {
    $convert = 1 if /<screen>/;
    $convert = 0 if /<\/screen>/;

    s/-/\&dash/g if ($convert ==1);

    print;
}

Det er ikke kønt, men det ser ud til at virke.

Mvh,

Claus