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

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Peter Toft" <sslug@sslug>
To: <sslug@sslug>
Sent: Saturday, February 24, 2001 10:44 PM
Subject: [PERL] Hjælp til Perl-hack


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

> Dvs. det er alle "-" som skal oversættes til "&dash;" -
> men kun hvis det er mellem en <screen> og en </screen>
>

Hvad med:

my $text=<<END;
<ORG TEKST START>
<para>
Jeg skriver her - og det er rigtigt.
</para>

<screen>
Men skriver jeg -- i en screen så
går min DocBook lidt i udu, da
-- kommer til at se ud som et langt -
</screen>
</para>
</ORG TEKST SLUT>
END

sub undash{
        my($s)sslug@sslug;
        $s=~s/-/&dash;/goms;
        return $s;
}

$text=~s|<screen>(.*?)</screen>|"<screen>".undash($1)."</screen>"|goesmi;
print $text;

--
Mvh. Nezar Nielsen
http://fez.dk/