Hallo nochmal,
ich habe jetzt eine vorübergehende, nicht so elegante Lösung:
#!C:/Perl/bin/Perl.exe -w
use strict;
my $in;
my $inhalt;
print "Content-type:text/html\n\n";
open(FILE,"1012512977.txt") or die "cant open File : $!\n";
while (<FILE>) {
$in .= $_
}
$in =~ s/<br>/<umbruch>/g;
$in =~ s/\n//g;
if ($in =~ /<text>(.*)</text>/) {
$inhalt = $1;
$inhalt =~ s/<umbruch>/<br>/g;
}
print $inhalt;
Weis einer vielleicht noch eine bessere Lösung ?