Просмотр сообщений
1
Perl / Проблема с записью/считыванием из файла...
« : 20 Февраля 2003, 08:53:03 »
Как говорится, люди добрые помогите тупому недопрограммисту =)
В общем проблема такая:
Имеется файл, откуда считываются данные в массив(что-то вроде @filesource=
и куда вписываются новые строки(через цикл все строки массива, в который записали старые данные+новая строка). Так вот как бы сделать так, чтобы был вывод последних скажем 50 эллементов массива(т.е. еще и убрать ненужные вначале), а не первых, как это получается в таком примерно виде:
Считываем:
Записываем:
В общем проблема такая:
Имеется файл, откуда считываются данные в массив(что-то вроде @filesource=
и куда вписываются новые строки(через цикл все строки массива, в который записали старые данные+новая строка). Так вот как бы сделать так, чтобы был вывод последних скажем 50 эллементов массива(т.е. еще и убрать ненужные вначале), а не первых, как это получается в таком примерно виде:Считываем:
Код: [Выделить]
open(DATAFILE, "datafile1");
@filesource=;
close(DATAFILE);
Записываем:
Код: [Выделить]
open (DATAFILE, ">datafile1");
print DATAFILE "\\n";
for ($i = 1; $i < 50; $i++) {
print DATAFILE "$filesource[$i]";
}
print DATAFILE $new;
close DATAFILE;
Кто не понял, это кусочек простенького чата...