Объединение строк в текстовом файле
Подскажите, есть ли какой либо однострочник Perl, что бы считать фаил и объеденить несколько строк в одну. Например, в txt следующий контент
123abc
456def
789000
abc123
def456
000989
Нужно сделать что бы в выходном файле были записи,объединенные по 3 строки:
123abc456def789000, abc123def456000989
Ответы (1 шт):
Автор решения: Виктор
→ Ссылка
В одну строку, так в одну строку
perl -e "$str='';$i=0;while(<>){$_=~s/\s//gms;$str.=$_;$i++;if($i>2){print(\"$str \");$str='';$i=0;}}" < test1.txt
test1.txt:
123abc
456def
789000
abc123
def456
000989
Вывод: 123abc456def789000 abc123def456000989