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