On Wed, Jan 09, 2002 at 02:22:57PM -0500, Patrick Gaskill wrote:
:
:There's an article about CETI's next message into space
:
: http://slashdot.org/article.pl?sid=02/01/08/231247&mode=nested
[ snip ]
:
:My attempt, at 79 characters:
:$\=$/;undef$/;$_=<>;s/.{70}//s;tr,01\n,\x00\xff,d;print$1while/(.{1,127})\n?
:/g;
Here's my go at 45 characters (including command line switches):
perl -0lpe's/^.{71}|[\n\r]//gs,s/(.{127})/$1\n/g' stream.txt
If you pipe the output to less and scroll down at a consistent pace,
it's readable.
Casey West
--
"I have traveled the length and breadth of this country and talked
with the best people, and I can assure you that data processing is a
fad that won't last out the year."
-- The editor in charge of business books for Prentice Hall, 1957
