AWK experts - how would I code around this in awk...

Dave Howorth dhoworth at mrc-lmb.cam.ac.uk
Fri Feb 19 13:35:03 UTC 2010


Steve Flynn wrote:
> Ran the perl version

Here's another perl version:

#!/usr/bin/perl
use strict;
use warnings;

local $/ = '';
my $text = <>;

$text =~ s/\n//g;
$text =~ s/(.{20})/$1\n/g;

print $text;


Cheers, Dave




More information about the ubuntu-users mailing list