Splitting a string of 0s & 1s

[planthehe]

Hi,

I have a file of with lines of 0s & 1s. Something like this:

000111000111000111000111
001101010101110011010101
010101010101010100000001
000000000000000000011111
111111110000000111111011

I want to split each of these lines into chunks of 16 bits (If the number of bits is not exactly divisible by 16, I want to have the reminder in the next line). Something like this:

0001110001110001
11000111
0011010101011100
11010101
0101010101010101
00000001
0000000000000000
00011111
1111111100000001
11111011

Please let me know if you have any suggestions.

Thanks in advance!!

 

[MillerH]

Assuming your text file is named "data.txt":

#!/usr/bin/perl

use strict;
use warnings;

{
	local @ARGV = ('data.txt');
	local $^I = '.bac';
	while (<>){
		s/(\d{16})(?=\d)/$1\n/ig;
		print;
	}
}

This is pulled in part from Kevin's faq on "Search and replace text in a file":

http://www.tek-tips.com/faqs.cfm?fid=6559

- Miller

 

[MillerH]

PS.

You can also do this as a one-liner like so:

perl -i.bac -ne "s/(\d{16})(?=\d)/$1\n/g; print" data.txt

- Miller