perl+вывод содержимого файла
Код:
#!/usr/bin/perl
use CGI;
open (FILE, ">>news.dat") or die "error open file news.dat";
$query = new CGI;
$a = $query->param('text');
print FILE "$a";
close FILE;
open (FILE, "news.dat") or die "error open file test.dat";
my $file = join("<br />", <FILE>);
print "Content-type: text/html\n\n";
print "<html><title></title><body>";
print "<table><tr><td>$file</td></tr></tablr>";
print "</body></html>";
close FILE;
use CGI;
open (FILE, ">>news.dat") or die "error open file news.dat";
$query = new CGI;
$a = $query->param('text');
print FILE "$a";
close FILE;
open (FILE, "news.dat") or die "error open file test.dat";
my $file = join("<br />", <FILE>);
print "Content-type: text/html\n\n";
print "<html><title></title><body>";
print "<table><tr><td>$file</td></tr></tablr>";
print "</body></html>";
close FILE;
есть страница с textarea и кнопкой, текст из textarea записывается в файл news.dat
приходится два раза открывать и закрывать файл
если его отрыть один раз то при выводе будет пустота
как можно исправить?
когда ты открываешь файл с модой >>, то указатель в файле встаёт в самый конец, и соотвессна ты ничего прочитать не можешь... :)
переводишь его в начало - это должно решить проблему
вместо закрытия и второго открытия вставь
переводишь его в начало - это должно решить проблему
вместо закрытия и второго открытия вставь
Код:
seek(FILE, 0, 0); # от начала файла на 0 байт
Воспользуйся пакетом
http://search.cpan.org/~uri/File-Slurp-9999.12/lib/File/Slurp.pm
http://search.cpan.org/~uri/File-Slurp-9999.12/lib/File/Slurp.pm
а это нормально, что я редактрую текст в одном cgi файле а сам процесс его замены и последующий вывод делается другим cgi файлом?