topic Re: Help on perl join in Operating System - Linux

Help on perl join

Junior C. — Fri, 12 Oct 2007 13:53:56 GMT

All,

I have text file as follow. I need help in joining three(3) lines.

9/1/2007 0:00
4.00
3.38
9/2/2007 0:00
3.86
2.95
9/3/2007 0:00
3.90
3.18

Following are the result I'm looking for.

9/1/2007 0:00 4.00 3.38
9/2/2007 0:00 3.86 2.95
9/3/2007 0:00 3.90 3.18

Thanks, in advance.

JC

Re: Help on perl join

James R. Ferguson — Fri, 12 Oct 2007 15:07:30 GMT

Hi JC:

# cat ./myjoin
#!/usr/bin/perl
use strict;
use warnings;
my $i = 0;
my @line;
while (<>) {
chomp;
$i++;
if ( $i <= 3 ) {
push @line, $_;
}
else {
$i = 1;
print "@line\n";
@line = ();
push @line, $_;
}
}
print "@line\n" if @line;
1;

...run as:

./myjoin file

Regards!

...JRF...

Re: Help on perl join

Junior C. — Fri, 12 Oct 2007 17:54:50 GMT

James,

I appreciate your reply. Thank, for the script.

Thread Close

JC