03.10.2022, 17:35
|
|
Well-Known Member
Регистрация: 10.06.2019
Сообщений: 168
С нами:
3647126
Репутация:
3
|
|
Сообщение от VasiliyP
perl -ne 'BEGIN {$s="test"; @v};s/[\r\n]+$//;push @v,$_;if(@v==4){shift @v;print join(" ", @v)."\n" if $v[0]=~/$s/}' file.txt
Вот это работает идеально, большое спасибо!
|
|
|