Converting Binary Numbers into Binary File

echoangel911 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Converting Binary Numbers into Binary File by ikegami (Patriarch) on Sep 13, 2006 at 13:48 UTC
`binmode($fh_out); while (<$fh_in>) { chomp; print $fh_out pack('B*', $_); }` [download] Reference: `pack`	[reply] [d/l] [select]
Re: Converting Binary Numbers into Binary File by BrowserUk (Patriarch) on Sep 13, 2006 at 15:31 UTC
A word of caution: Be sure you understand what the numbers are, and what is going to be reading that binary file. There are several ways of interpreting that asciized binary, and several ways that they could need to be packed depending upon the target platform. Here are a few interpretations: `print unpack 'n', pack 'B', $_ for qw[ 0010010010011001 1110101010100 +101 ];; 9369 60069 print unpack 'n', pack 'b', $_ for qw[ 0010010010011001 1110101010100 +101 ];; 9369 22437 print unpack 'v', pack 'b', $_ for qw[ 0010010010011001 1110101010100 +101 ];; 39204 42327 print unpack 'v', pack 'B', $_ for qw[ 0010010010011001 1110101010100 +101 ];; 39204 42474` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re: Converting Binary Numbers into Binary File by Fletch (Bishop) on Sep 13, 2006 at 13:48 UTC
Read the text. Use pack. Write the packed data.	[reply]
Re: Converting Binary Numbers into Binary File by davido (Cardinal) on Sep 13, 2006 at 15:25 UTC
This deserves a one-liner: `perl -ne "$i++ \|\| binmode(STDOUT);chomp;print pack(q/B/,$_);" infile +>outfile` [download] This is untested, but ought to work fine. It might be golfed down a bit if you allow it to set binmode on each iteration instead of only on the first iteration, and if you incorporate the -p switch instead of -n (which in this case, I believe hampers the legibility of the code): `perl -pe "binmode STDOUT;chomp;$_ = pack(q/B/,$_);" infile >outfile` [download] My biggest complaint with the golfed version is that it calls binmode on each iteration, which is unnecessary. Dave	[reply] [d/l] [select]
Re^2: Converting Binary Numbers into Binary File by shmem (Chancellor) on Sep 13, 2006 at 16:56 UTC
BEGIN block, then - `perl -pe 'BEGIN{binmode STDOUT}$_=pack"B",-+-$_'` [download] - 38 chars :-) <update>oops, wrong - that one strips leading zeroes.. oh, wait... `perl -pe 'BEGIN{binmode STDOUT}chomp;$_=pack"B",$_'` [download] </update> --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l] [select]
Re^3: Converting Binary Numbers into Binary File by ikegami (Patriarch) on Sep 13, 2006 at 17:22 UTC
I'll beat your 41 `perl -pe 'BEGIN{binmode STDOUT}chomp;$_=pack"B*",$_'` with 36 `perl -pe 'BEGIN{binmode STDOUT}$_=pack"B16",$_'`	[reply] [d/l] [select]
Re^4: Converting Binary Numbers into Binary File by borisz (Canon) on Sep 14, 2006 at 08:32 UTC
Re^5: Converting Binary Numbers into Binary File by shmem (Chancellor) on Sep 15, 2006 at 21:23 UTC
Re^4: Converting Binary Numbers into Binary File by shmem (Chancellor) on Sep 13, 2006 at 20:48 UTC
Re: Converting Binary Numbers into Binary File by Anonymous Monk on Sep 15, 2006 at 10:49 UTC
what kind of virus is this?	[reply]
Re^2: Converting Binary Numbers into Binary File by echoangel911 (Sexton) on Sep 19, 2006 at 13:59 UTC
it's verilog simulation data of signals on certain ports	[reply]


We don't bite newbies here... much
	PerlMonks