join lines - perl command

J

julia

What is the perl command to join lines ? I appreciate your help.

linelineline\newline (line1)
lineline\newline (line2)
linelinelineline\newline (line3)
&
rowrowrow\newline (line1)
rowrow\newline(line2)
row\newline(line3)
&
whateverwhatever(line1)
whateverwhatever(line2)
whatever(line3)

Result
linelineline&rowrowrow&whateverwhatever\newline
lineline&rowrow&whateverwhatever\newline
linelinelineline&row&whatever\newline
 
N

Nathan Keel

julia said:
What is the perl command to join lines ? I appreciate your help.

linelineline\newline (line1)
lineline\newline (line2)
linelinelineline\newline (line3)
&
rowrowrow\newline (line1)
rowrow\newline(line2)
row\newline(line3)
&
whateverwhatever(line1)
whateverwhatever(line2)
whatever(line3)

Result
linelineline&rowrowrow&whateverwhatever\newline
lineline&rowrow&whateverwhatever\newline
linelinelineline&row&whatever\newline

How are you gathering the lines of data, from input on the command, via
a form/web page, or reading from a file, or?
 
S

sln

What is the perl command to join lines ? I appreciate your help.

linelineline\newline (line1)
lineline\newline (line2)
linelinelineline\newline (line3)
&
rowrowrow\newline (line1)
rowrow\newline(line2)
row\newline(line3)
&
whateverwhatever(line1)
whateverwhatever(line2)
whatever(line3)

Result
linelineline&rowrowrow&whateverwhatever\newline
lineline&rowrow&whateverwhatever\newline
linelinelineline&row&whatever\newline

Indirect adressing will interleave.
-sln

use strict;
use warnings;

my @ar = [];
my $i = 0;

while (<DATA>) {
chomp; next if !length();
if (/^\s*&\s*$/) {
$i = 0; next;
}
push @{$ar[$i]}, @{$ar[$i++]} ? '&'.$_ : $_;
}
for my $ar (@ar) {
print @{$ar},"\n";
}
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,744
Messages
2,569,484
Members
44,906
Latest member
SkinfixSkintag

Latest Threads

Top