Как записывать на Perl во внешний файл, чтобы новая запись была сверху?

[Mers]

Please/

[Phoinix]

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

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"

[C++]

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

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

[ThE0ReTiC]

Mers

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

[Phoinix]

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

[Wyclef]

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