Программирование > Perl
Как удалить строку из файла
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,"+
Навигация
Перейти к полной версии