CGI+вывод содержимого файла в несколько строк
Код:
#!/usr/bin/perl
use CGI;
open (FILE, "./data/news/news.dat") or die "error open file news.dat";
my @file = <FILE>;
print "Content-type: text/html\n\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"><head>
<title>Test Site</title><head></head>
<body>
@file
</body></html>";
use CGI;
open (FILE, "./data/news/news.dat") or die "error open file news.dat";
my @file = <FILE>;
print "Content-type: text/html\n\n";
print "<html><head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"><head>
<title>Test Site</title><head></head>
<body>
@file
</body></html>";
в файле news.dat содержится не одна строка слов а несколько
а при выводе в браузере всё выводится в одну строку
как можно исправить?
Попробуйте так:
Код:
my $file = join("<br />", <FILE>);
спасибо