удалить строки (перл)

Если совсем коротко, то perldoc Tie::File
(входит в стандартный комплект начиная с 5.8.0)


Если подробнее, то:

Ты бы, мил человек, какую книжку по программировани прочитал,
по алгоритмам там всяким. А потом уже Perl и то-се.

Файл (в Unix) - это просто последовательность байтов.
Из него нельзя "удалить строку".
Если есть требование ни в коем случае не создавать нового файла
то можно сделать так:

1. Найти эту строку Коля|14|4|no|12.04.2004|
2. Определить ее длину N (в байтах).
3. Переписать все содержимое файла после искомой строки на N
байтов ближе к началу файла, затирая таким образом ту самую строку.
(эта процедура сама по себе может потребовать многих
операций чтения,записи и позиционирования).
4. Уменьшить длину файла (ftruncate).

А уж на чем это - C, C++ или там Perl - дело десятое.

P.S. Конечно, через memory mapped file тоже можно, но смысл один и тот же.

P.P.S. Так что давай-ка ты парнишка подучись, не в обиду ;-)

open(FH,"my_file");

@my_hash = grep( ! /Коля/} <FH>;

close FH;

open FH, ">my_file";

foreach (@my_hash) {
   print FH;
}

close FH;

Типа того?...

Виталий.

> open(FH,"my_file");
...
> Виталий.

Это работает пока файл настолько мал,
что его можно прочитать в память целиком.

Виталий - ВЫ ГУРУ!!!! Уж не знаю как на счет первого ответа, но ВАШ ответ - это то, что надо! ОГРОМНОЕ ВАМ СПАСИБО! Без всяких там изысков и самоутвержддений, и пусканий пыли в глаза, а четко и точно как профессионал! Благодарен! еще раз Спасибо!