Xpoint
   [напомнить пароль]

Замена строк

Метки: [без меток]
[удл]
2006-04-07 16:12:30 [обр] Andrej[досье]
Подскажите пожалуйста как заменять строчки
К примеру нужно 4 строчку заменять на "xxx"
спустя 26 минут [обр] Andrej[досье]
Я о текстовый вайлах (*.txt)
спустя 13 минут [обр] Алексей В. Иванов(100/2861)[досье]
Купите книгу "Perl cookbook". Ваше время окупится.
спустя 20 часов [обр] Дворнов Роман(9/109)[досье]

Самый простой, но малоэффективный для больших файлов способ.

open F, '1.txt';
my @lines = <F>;
close F;

$lines[3] = 'xxx';

open F, '>1.txt';
print join '', @lines;
close F;

ЗЫ А вообще не поленитесь и воспользуйтесь советом Алексей В. Иванов[досье]

спустя 11 месяцев [обр] zahar33[досье]
сообщение промодерировано
[censored]
спустя 1 час 3 минуты [обр] Алексей В. Иванов(100/2861)[досье]
! zahar33[досье] Предупреждение в досье.
В следующий раз, прежде, чем болтать, убедитесь, что вы "в теме".
Powered by POEM™ Engine Copyright © 2002-2005