Join every two lines of a file

[Ninja Li]

Hi,

I am trying to join every two lines of the following using perl:
<td align="center" width="50"><nobr>AWR
 </nobr></td>
<td align="center" width="50"><nobr>ANH
 </nobr></td>
<td align="center" width="50"><nobr>ACAP
 </nobr></td>

The output should be as follows:
<td align="center" width="50"><nobr>AWR</nobr></td>
<td align="center" width="50"><nobr>ANH</nobr></td>
<td align="center" width="50"><nobr>ACAP</nobr></td>

Is there an easy way to join every two lines while at the same time
remove the " " characters in the line?

Thanks.

Nick

 

[Josef Moellers]

Hi,

I am trying to join every two lines of the following using perl:
<td align="center" width="50"><nobr>AWR
 </nobr></td>
<td align="center" width="50"><nobr>ANH
 </nobr></td>
<td align="center" width="50"><nobr>ACAP
 </nobr></td>

The output should be as follows:
<td align="center" width="50"><nobr>AWR</nobr></td>
<td align="center" width="50"><nobr>ANH</nobr></td>
<td align="center" width="50"><nobr>ACAP</nobr></td>

Is there an easy way to join every two lines while at the same time
remove the " " characters in the line?

Yes. What have you tried so far? Where did it not meet your expectations.
You're supposed to try first and *then* come here for help.

But then ... it's pretty simple:

while (my $line = <$src>) {
chomp $line;
$line .= <$src>;
$line =~ s/ //;
print $dst $line;
}

 

[Jürgen Exner]

Hi,

I am trying to join every two lines of the following using perl:
<td align="center" width="50"><nobr>AWR
 </nobr></td>
<td align="center" width="50"><nobr>ANH
 </nobr></td>
<td align="center" width="50"><nobr>ACAP
 </nobr></td>

The output should be as follows:
<td align="center" width="50"><nobr>AWR</nobr></td>
<td align="center" width="50"><nobr>ANH</nobr></td>
<td align="center" width="50"><nobr>ACAP</nobr></td>

Is there an easy way to join every two lines while at the same time
remove the " " characters in the line?

Pretty trivial. Which part do you have problems with? Designing the
algorithm? Translating the algorithm into Perl? Debugging the Perl
program? ...?

jue

 

[Ninja Li]

I can join the lines by doing the following in awk:

awk '{ if ( ( NR % 2 ) == 0 ) { printf("%s\n",$0) } else { printf("%s
",$0) } }' filename

I am wondering if there is any one-liner similar to this in perl to
accomplish it.

Thanks.

Nick

 

[John W. Krahn]

I can join the lines by doing the following in awk:

awk '{ if ( ( NR % 2 ) == 0 ) { printf("%s\n",$0) } else { printf("%s
",$0) } }' filename

I am wondering if there is any one-liner similar to this in perl to
accomplish it.

perl -lpe'$\ = $. % 2 ? "" : "\n"' filename




John