Программирование > Perl

Как засунуть текст в начало файла

(1/1)

:
Вот тут пишу скриптик и столкнулся с проблемой, как засунуть текст в начало файла, в котором уже есть немерянно текста?

SCORP:
open (DATA,"your_file");
@filetxt=;
close(DATA);
open (DATA,">your_file");
print DATA "$yor_text
";
print DATA @filetxt;
close(DATA);

Но если немерянно текста, то будет тормозить..

Навигация

[0] Главная страница сообщений