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

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

<< < (3/4) > >>

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 нашел ;)

Навигация

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

[#] Следующая страница

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