Исходное сообщение
"Скопировать часть текста от определенной строки до конца файла" Отправлено Square1, 13-Сен-15 01:08
>[оверквотинг удален] >> @arr=(); >> while($r=<TT>){ >> if ($r=~/Program started/){@arr=();} >> push(@arr,$r); >> } >> foreach $r(@arr){print $r;} > Конечно, если между Program started логи достигают гигабайтов- такой алгоритм будет накладным. > Тогда можно например не копировать полностью строки, а только запомнить номер > строки  когда встретился Program started, и потом повторно прогнать лог > до нужной строки с которйо начать делать копию прямо в файл... Например так: open(TT,"t.t"); $countg=0; $countstring=0; while($r=<TT>){ $countg++; if ($r=~/Program started/){$countstring=$countg;} } $lines=$countg-$countstring; print "сделать: tail -n $lines t.t\n";

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>[оверквотинг удален] >>> @arr=(); >>> while($r=<TT>){ >>> if ($r=~/Program started/){@arr=();} >>> push(@arr,$r); >>> } >>> foreach $r(@arr){print $r;} >> Конечно, если между Program started логи достигают гигабайтов- такой алгоритм будет накладным. >> Тогда можно например не копировать полностью строки, а только запомнить номер >> строки когда встретился Program started, и потом повторно прогнать лог >> до нужной строки с которйо начать делать копию прямо в файл... > Например так: > open(TT,"t.t"); > $countg=0; > $countstring=0; > while($r=<TT>){ > $countg++; > if ($r=~/Program started/){$countstring=$countg;} > } > $lines=$countg-$countstring; > print "сделать: tail -n $lines t.t\n";
	Введите код, изображенный на картинке: