nicht angemeldet
Oder etwas kuerzer (ohne einen extra array):
#!/usr/bin/perl
$dat1 = "d1";
print"content-type: text/html\n\n";
print"<html><head><title>irgendwas</title><body>";
open (DATEI, "$dat1.txt") die "Error opening file";
flock (DATEI, 2);
while(<DATEI>){print $_}
close (DATEI);
print"</body></html>";
Sonst wuerd ich das aber genauso machen...
:o)