[CentOS] remove newlines / perl /concise example

Dave Cross

davorg at gmail.com
Sat Jan 1 15:42:46 UTC 2011


On 30 December 2010 21:57, ken <gebser at mousecar.com> wrote:
> 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:

Code like this is often simpler if you use the Unix filter model and
let the operating system take care of opening all the files.

  #!/usr/bin/env perl

  use strict;
  use warnings;

  chomp(my @lines = <>);

  print @lines;

If this is in a file called 'join', you can run it like this:

 $ ./join < input.txt > output.txt

hth,

Dave...

-- 
Dave Cross :: dave at dave.org.uk
http://dave.org.uk/
@davorg



More information about the CentOS mailing list