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

[Ilya]

Вот так делал я:

$strokdel = "Эсли строка в файле содержит этот текст, то она будет удалена";

open(FILE, "file.txt");#Открываем файл
@file=;# Присваеваем содержимое масиву
close(FILE);# Закрываем файл
$t=@file; # Определяем кол-во строк в масиве (файле)
for ($i=0;$i<=$t;$i++) # Понимаю, но сказать не могу
{if( $file[$i] == $strtodel ) # Если в масиве строка равна переменной $strodel
{$file[$i]=~s/$strtodel//;} # То заменяем ее на пустую строку
}
open(FILE, ">$file");# Открываем файл
print FILE @file;# Пишем измененный масив в файл
close(FILE); # Закрываем файл

Сам парился долго, пока NAS не подсказал!

[lodevar]

Ну и для совсем извращенных еще пример - один массив, одно открытие файла:

Код: [Выделить]

$search_line="delete me!";
$offset=0;
open(FILE,"+@dat=;
foreach $line (@dat)
{
  $line1=$line;
  chomp $line1;
  if($line1 eq $search_line)
  {
   splice @dat,$offset,1;
  }
  $offset++;
}
seek(FILE,0,0);
print FILE @dat;
truncate(FILE,tell(FILE));


[AliMamed]

эээ close не надо?

[lodevar]

AliMamed (06-04-2001 13:03):
эээ close не надо?

Вобщем-то надо. Но если уж так, то flock тоже надо. ;-)