perl: считать и записать в файл, как???

man perldoc

по отдельности если открывать - я могу:
открыть для чтения, считать из файла - <FILE>
открыть для записи, записать в файл - print FILE
а как это все с одним открытеем - не знаю, пробовал открывать с параметром >+ - не получается...

научите как, плиз....

open (FILE,"+<yy.txt");
@array=<FILE>;
#В array твой файл новый элемент массива новая строка
....
print FILE @array

Да забыл тут надо перед записью в файл его как-то обнулить (тебе ведь все стереть надо) Например запиши в него пробелов столько сколько его размер или еще что-нибудь придумай.

А что, открыть и закрыть файл ломает? :)

Или месье эстэт?

truncate?

to Dead
>> А что, открыть и закрыть файл ломает? :)
задача требует, чтобы файл открывался один раз, блокировался flock-ом... если открывать несолько раз и соответственно блокировать/разблокировать несколько раз, то есть вероятность перехвата файла другим процессом...

to OxiD
спасибо, буду пробовать...

кстати тут другой anonymous предложил обнулять файл truncate-ом... это подойдет?

Если ты хочешь его обнулять а потом туда записывать, то можно
по-другому поступить:
переименовать его в одному только процессу известное имя,
сделать с новым файлом все что надо а затем переименовать обратно,
ну и в скрипте поставить проверку на наличие исходного файла,
если его нет, то ждать ххх сек, затем повторить попытку.
И flock'ов никаких не надо.

To Susanin
спасибо, этот вариант тоже достаточно интересен