Join lines

[nickli2000]

Hi,

I have a file with a lot of lines with a singer number like the
following:

111
222
333
444
555
6666
77777
888
9999
..........

How could I join 3 lines at a time and with a "," in between and at
the beginning of the next line, as in the following:

111,222,333
,444,555,6666
,77777,888,9999
.........

Thanks in advance.

Nick Li

 

[Paul Lalli]

I have a file with a lot of lines with a singer number like the
following:

111
222
333
444
555
6666
77777
888
9999
..........

How could I join 3 lines at a time and with a "," in between and at
the beginning of the next line, as in the following:

111,222,333
,444,555,6666
,77777,888,9999
.........

$ cat clpm.pl
#!/opt2/perl/bin/perl
use strict;
use warnings;

while (my $line = <DATA>) {
chomp $line;
print $line;
print "\n" if $. % 3 == 0;
print ",";
}

print "\n";

__DATA__
111
222
333
444
555
6666
77777
888
9999

$ ./clpm.pl
111,222,333
,444,555,6666
,77777,888,9999
,

$

Paul Lalli

 

[Mirco Wahab]

I have a file with a lot of lines with a singer number like the
following:
111
222
333
444
555
6666
77777
888
9999
..........

How could I join 3 lines at a time and with a "," in between and at
the beginning of the next line, as in the following:
111,222,333
,444,555,6666
,77777,888,9999

Is this Unix/Linux? Then do a simple:

perl -0777 -pe 's/\n/(++$n%3)?",":"\n,"/eg' lines.txt > commas.txt


if your file is 'lines.txt'.

In Win32, you have to change the quotes.

Regards

M.

 

[nickli2000]

Is this Unix/Linux? Then do a simple:

perl -0777 -pe 's/\n/(++$n%3)?",":"\n,"/eg' lines.txt > commas.txt

if your file is 'lines.txt'.

In Win32, you have to change the quotes.

Regards

M.- Hide quoted text -

- Show quoted text -

Thanks for all your help.

Nick

 

[John W. Krahn]

I have a file with a lot of lines with a singer number like the
following:

111
222
333
444
555
6666
77777
888
9999
..........

How could I join 3 lines at a time and with a "," in between and at
the beginning of the next line, as in the following:

111,222,333
,444,555,6666
,77777,888,9999
.........

$ echo "111
222
333
444
555
6666
77777
888
9999" | perl -lpe'$\ = eof() ? "\n" : $. % 3 ? "," : "\n,"'
111,222,333
,444,555,6666
,77777,888,9999



John