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