|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 07 Sep 2001 12:18:32
To : Stepan M. Pechkin
Subject : Re: Hе печатает в файл
--------------------------------------------------------------------------------
SMP> === #include <Addspell.Pl> ===
SMP> sysopen(DATAFILE, $SPELL_FILE_NAME, O_RDWR|O_CREAT) or die("Could not open
SMP> data file $SPELL_FILE_NAME"); #создает пустой файл, лично видел
SMP> my @dataLines=<DATAFILE>;
SMP> warn(($#dataLines+1)." lines read\n"); #печатает 0, что логично
SMP> #Делай кое-что
SMP> my @newLines;
SMP> #Забей массив кое-чем
SMP> warn("Array is ".($#newLines+1)); #печатает 1
SMP> print(LOG @newLines); #печатает строку чин-чинарем
SMP> print(DATAFILE @newLines);
SMP> warn(tell(DATAFILE)); #печатает 0
SMP> close(DATAFILE);
SMP> warn(tell(DATAFILE)); #печатает -1
SMP> === Unload Addspell.Pl ===
SMP> Где грабли?
Есть мнение, что в отсутствии seek перед записью в DATAFILE. После чтения у
тебя позиция в файле, по идее, -1...
--
Artem Chuprina <ran@ran.pp.ru>
FIDO: 2:5020/371.32
--- slrn/0.9.7.0 (Linux)
* Origin: AKA с подствольным плюсомётом (2:5020/371.32)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Hе печатает в файл 