hi hi,
ich will meinen html-Code vom perl-Code trennen und habe mir folgendes ausgedacht. Mein html-code steht in einem html-templet. dieses Templt lese ich per Perl ein und ersetze den Konstrukt <!-- $string --> durch $string und printe dann die ganze Zeile an den Browser. In meinem Beisp. zeigt der Browser mir "$welt" an und nicht "Hallo Welt".
In dem String $_ steckt ja noch der String $welt und wird nicht umgesetzt. Ich habe schon was rum probiert aber ich bekomme es nicht hin.
Was muss ich machen damit der zweite String auch umgesetzt wird?
besten Dank und einen schönen Abend noch
bis bis roman
perl:
#!D:\Perl\bin\perl.exe
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $welt="Hallo Welt";
my $cgi = new CGI; # neues Objekt erstellen
print $cgi->header(-type => 'text/html');
open (DAT,'< test_templ.html');
while (<DAT>) {
s/<!-- ([$@&%]{1}.+?) -->/$1/g;
print;
}
html:
<html>
<head>
<title></title>
<meta http-equiv="content-type"
content="text/html; charset=ISO-8859-1">
</head>
<body>
<!-- $welt -->
<br>
</body>
</html>
P.S. ich hofe es sint kein rechtschreibvehler in meinem posting