Удаление строк...

Приветствую!
Сразу же перехожу к сути вопроса. Есть массив. В него загнаны, например, 4 строки:

rows.txt

Цитата

1|первая строка|321| 2|вторая строка|11| 3|третья строка|3222| 4|четвертая строка|32|

split... 1 значение в строке - её номер, 2 значение - название, 3 значение - пусть будет значение самой строки. Но это не столь важно... так вот...

во-первых, нужно удалить строку...

Удаляем 3 строку!!!
Посылаю с помощью HTML значение $del... т.е. $del = 3...
Как это делал я (банально и просто):

Цитата

open (F, "rows.txt"); @rows = <F>; close (F); foreach (@rows) { ($num,$name,$value)=split(/\|/,$rows[$del-1]); } $rows[$del-1]=""; open (F,">rows.txt"); close (F); foreach (@rows) { open (F, ">>rows.txt"); print F $_; close (F); }

Т.е. я присвоил строке никакое значение... Теперь 3-я строка удалена... Так делал я... А вот для чего собсна создавал топик - подскажите какие попроще пути удаления строк из массива. Может, с помощью регулярных выражеий? Буду очень рад услышать! Я просто уверен, что они существуют!

Заранее благодарен!

Ты не удалил элемент из массива ты просто зделал его пустым. Т.е. элемент остался но он содержит пустоту.
Удаляет элемент так:
splice ( @rows, ($del-1),1);

Цитата

open (F,">rows.txt"); close (F); foreach (@rows) { open (F, ">>rows.txt"); print F $_; close (F); }

Вот это охинея нужно делать так:

Код

open (F, ">rows.txt"); flock (F,2); foreach (@rows) { print F $_; } flock (F,8); close (F);

Это сообщение отредактировал(а) dimes - 14.9.2004, 08:46

Код

while (<DATA>) { print and next unless 3..3 } __DATA__ 1|первая строка|321| 2|вторая строка|11| 3|третья строка|3222| 4|четвертая строка|32|

запускать так
perl script.pl >new_file

Это сообщение отредактировал(а) ElectricalStorm - 14.9.2004, 14:36

ElectricalStorm
издеваешся?

нет ... просто альтернативное решение ...
а их в Perl как извесно очень много .....

Спасибо, парни!