Thanks for the previous tips and suggestions. Here's a more concise
example:
Input file:
<aaaa>
<bbbb>
<cccc>
<dddd>
I want everything on one line, i.e., remove all newlines. Like so:
<aaaa><bbbb><cccc><dddd>
Simple perl code:
#!/usr/bin/env perl
# Remove newlines from a file in two ways:
# (1) Just "chomp" them;
# (2) Replace them with a space.
# Open input file for reading only.
my $infilename = "/tmp/newline-test-in";
open(my $in, "<", "$infilename") or die "Can't open file
\"$infilename\": $!";
# Open output file for writing only.
my $outfilename = "/tmp/newline-test-out";
open (my $out, ">", "$outfilename") or die "Can\'t open $outfilename for
writing. $!";
# Comment out either, both, or neither of the below "binmode" == no joy
#binmode $in;
binmode $out;
while (<$in>)
{
# Neither of the two commands below works as expected.
chomp; # remove trailing newline.
# s/\n/ /; # replace newline with space
print $out $in;
}
# Close input file.
close $in or die "Error closing $in: $!";
# Close output file.
close $out or die "Error closing output file $out: $!";
### end of perl script
Run this, commenting in/out whatever, and output file is consistently this:
GLOB(0x8ad3c28)GLOB(0x8ad3c28)GLOB(0x8ad3c28)GLOB(0x8ad3c28)
_______________________________________________
CentOS mailing list
CentOS@xxxxxxxxxx
http://lists.centos.org/mailman/listinfo/centos
