Как удалить строку из файла

[Yaroslav]

Как удалить строку ( например №3) из файла
если можно примерчик плз..

[frg]

Закачиваешь содержимое файла в массив (@aa), передаешь cодержимое массива в другой массив (@bb),ведешь счетчик строк, если номер строки (@aa) равен 3, то пропускаешь ее. Вот и все. А потом очищаешь содержимое предыдущего файла и закачиваешь в него содержимое @bb.

[Chs]

frg (02-04-2001 07:04):
Закачиваешь содержимое файла в массив (@aa), передаешь cодержимое массива в другой массив (@bb),ведешь счетчик строк, если номер строки (@aa) равен 3, то пропускаешь ее. Вот и все. А потом очищаешь содержимое предыдущего файла и закачиваешь в него содержимое @bb.

А с использованием одного массива, слабо?

[Yaroslav]

Теорию я знаю, примерчик мне бы..........

[frg]

Можно и так
#!/usr/local/bin/perl

open (FILE,"tt.txt");
@LINES=;
close(FILE);

$le=$#LINES-1;

open(DATA,"+print DATA @LINES[0,1,3..$le];
close(DATA);

[Yaroslav]

А что нибудь полегче (ведь в этом случае мне надо знать сколько у меня строк, а их кол-во переменчиво)

[frg]

Ты бы объяснил конкретнее..

[Yaroslav]

Это должен быть форум (приблизительно как этот) и в нем можно будет изменять вопрос и т.к. я знаю как можно добавить запись я не спрашиваю как заменить строку на строку, а спрашиваю как удалить.

[lodevar]

Если форум, то почему бы не в базах его расписать? Зачем на файликах его делать?

[Yaroslav]

Как уже сделал (я же только учусь)

[lodevar]

Можно и так:

$deleted_line=3;
open(FILE,"text.txt");
$i=1;
while()
{
 if($i != $deleted_line)
 {
  @array[$i]=$_;
 }
 $i++;
}
close(FILE);
open(FILE,">text.txt");
foreach $line (@array)
{
 print FILE $line;
}
close(FILE);

[Yaroslav]

Этот вариант почему-то не работает

Кстати проверил ради интереса. Работает как часы.

[lodevar]

Yaroslav (02-04-2001 22:02):
Этот вариант почему-то не работает

Давай разберемся почему. У тебя в локале не работает, или в нет закачал и там не пашет? Какую ошибку выдает? Или он работает не так, как ты ожидал от него... ;-)

У него уже все работает
Он вчера меня в IRCe нашел