Forum Webscript.Ru

Программирование => Perl => Тема начата: Mers от 03 Августа 2003, 13:05:19

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: Mers от 03 Августа 2003, 13:05:19

Please/

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: Phoinix от 03 Августа 2003, 13:39:51

Я делаю так...

open (TMP, "$file"); @data = ; close (TMP);
@data = reverse @data;
@data = (@data, $new_line);
@data = reverse @data;
open (TMP, ">$file"); flock ($file, 2); print TMP @data; close (TMP);

P.S. только не забывай про "\\n"

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: C++ от 03 Августа 2003, 14:12:07

open (F, "<+$file")||die($!);
flock(F,1);
@data = ;
seek(F,0,0);
flock(F,2);
print F "$new_line\\n";
print F @data;
close (F);

ИМХО, так быстрее.

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: ThE0ReTiC от 03 Августа 2003, 14:59:13

Mers

[off] еще одby прецедент с кросспостингом закончится для тебя плачевно[/off]

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: Phoinix от 03 Августа 2003, 16:46:31

C++
Не спорю... про это не подумал... ;-)

Название: Как записывать на Perl во внешний файл, чтобы новая запись была сверху?
Отправлено: Wyclef от 04 Августа 2003, 10:52:19

[off]Конечно, чтобы выбирать случайную строку из файла, то и записывать в него случайным образом можно... )))[/off]