Textdateien mit Perl ausgeben. von Reimund, 02.10.2000 22:37

Beitrag lesen

Textdateien mit Perl ausgeben.

Reimund 02.10.2000 22:37

Du könntest zum Beispiel die Datei in ein array lesen und dieses an den Browser ausgeben.
etwa so(nur so ne schnelle idee):

#!/usr/bin/perl
$dat1 = "d1";
open (DATEI, "$dat1.txt")

flock (DATEI, 2);
$max=0;

while (<DATEI>)
        {
          push(@inhalt,$_);
          $max++;
        }

close (DATEI);

flock (DATEI, 8);

print "content-type: text/html\n\n";
print <<html_e;
<html>
<head>
<title>irgendwas</title>
<body>
@inhalt
</body>
</html>
html_e
exit;