Программирование > Perl

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

<< < (4/4)

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

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

open(FILE, "file.txt");#Открываем файл
@file=;# Присваеваем содержимое масиву
close(FILE);# Закрываем файл
$t=@file; # Определяем кол-во строк в масиве (файле)
for ($i=0;$i$file");# Открываем файл
print FILE @file;# Пишем измененный масив в файл
close(FILE); # Закрываем файл

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

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

--- Код: ---$search_line="delete me!";
$offset=0;
open(FILE,"+

AliMamed:
эээ close не надо?

lodevar:

--- Цитировать ---AliMamed (06-04-2001 13:03):
эээ close не надо?
--- Конец цитаты ---
Вобщем-то надо. Но если уж так, то flock тоже надо. ;-)

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница