> Ist schwer hier Quellcode zu schreiben
Mmmmh, vielleicht hilft der code-tag?
Code:
$SrcFile = "meinedatei.txt";
$DstFile = "meinedatei.html";
open(SFILE, `< $SrcFile`);
@Text = `<`SFILE`>`;
close(SFILE);
open(DFILE, `> $DstFile`);
$TmpLine;
foreach $Line (@Text)
{
chomp($Line);
if ( length($TmpLine) && ! length($Line) )
{
print DFILE "`<`/p`>`\n";
}
elsif ( ! length($TmpLine) && length($Line) )
{
print DFILE "`<`p`>`\n";
}
if ( length($Line) )
{
print DFILE "$Line`<`br`>`\n";
}
$TmpLine = $Line;
}
close(DFILE);
Gruss,
Dufty II
Lesezeichen