Re: Join lines

From: Paul Lalli <mritty@xxxxxxxxx>
Date: Tue, 21 Aug 2007 09:57:02 -0700

On Aug 21, 12:45 pm, nickli2...@xxxxxxxxx wrote:

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

.

References:
- Join lines
  - From: nickli2000

Prev by Date: Re: Symrefs
Next by Date: Re: writing array to file?
Previous by thread: Join lines
Next by thread: Re: Join lines
Index(es):
- Date
- Thread

Relevant Pages

Re: split function syntax
... use strict; ... use warnings; ...
(comp.lang.perl.misc)
Re: parsing csv-file for inserting in database
... you should use the strict and warnings pragmas. ... Use chomp instead. ... Notice how this loop does nothing the loop above didn't do: ...
(perl.beginners)
Re: Delete file if it contains x y or z
... Here's another way, but not necessarily the best Perl, but it does work: ... use strict; ... use warnings; ... chomp @filelist; ...
(perl.beginners)
Re: [newbie] chomp acting weird (or me not understanding how it works??)
... Whend i use chomp like this: ... use strict; ... use warnings; ... Please read the posting guidelines and post codes others can run by ...
(comp.lang.perl.misc)
Re: Does this script have the efficiency problems?
... use strict; ... use warnings; ... Perl can do this just fine, you know, and you don't even have to chomp() the result :-) ... Perl tutorials at http://perlmonks.org/?node=Tutorials ...
(perl.beginners)