Forum Webscript.Ru

Программирование => Perl => Тема начата: от 17 Июня 2001, 16:34:03

Название: Как засунуть текст в начало файла
Отправлено: от 17 Июня 2001, 16:34:03

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

Название: Как засунуть текст в начало файла
Отправлено: SCORP от 17 Июня 2001, 18:30:27

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

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