|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Stepan M. Pechkin 2:5030/1688.11 09 Sep 2001 11:16:00
To : Artem Chuprina
Subject : Hе печатает в файл
--------------------------------------------------------------------------------
09 Sep 01 00:51, Stepan M. Pechkin wrote to Artem Chuprina:
AC>> Есть мнение, что в отсутствии seek перед записью в DATAFILE. После чтения
AC>> у тебя позиция в файле, по идее, -1...
Похоже, ты был прав. То есть, когда код стал вот таким:
=== #include <Addspell.Pl> ===
#Open database
sysopen(DATAFILE, $SPELL_FILE_NAME, O_RDWR|O_CREAT) or die("Could not open data
file $SPELL_FILE_NAME");
seek(DATAFILE, 0, SEEK_SET); #set position to BOF
my @dataLines=<DATAFILE>;
#Делай кое-что
#Write down the data
#ЗАбей массив кое-чем
warn("Array is ".($#newLines+1));
print(LOG @newLines);
seek(DATAFILE, 0, SEEK_SET); #set position to BOF
print(DATAFILE @newLines);
#И так далее
close(DATAFILE);
exit(0);
=== Unload Addspell.Pl ===
данные в файле начали появляться, даже несмотря на то, что "Argument
SEEK_SET is not numeric". :-)
Спасибо.
Stepan (-: с приветом :-)
pechkins@crosswinds.net http://pechkin.rinet.ru
ICQ#21296772
---
* Origin: >*< Пистолет, партбилет, "Минулет"... (FidoNet 2:5030/1688.11)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
