Re^3: Help displaying binary data bit-by-bit in binary notation

Since unpack returns a string, simply add a bit (pun intended) of split and you're done:

my $bin_str = unpack( "b*", $string );

print join( "\n", split( //, $bin_str ) );
[download]

Updated output:

unpack b = [10000110]
1
0
0
0
0
1
1
0
[download]

Comment on Re^3: Help displaying binary data bit-by-bit in binary notation Select or Download Code

Replies are listed 'Best First'.
Re^4: Help displaying binary data bit-by-bit in binary notation by ikegami (Patriarch) on Jun 15, 2006 at 03:12 UTC
The following also works: `my $bin_str = unpack( "b*", $string ); print join( "\n", $bin_str =~ /(.)/g );` [download] It avoids `split` plus a (magical) regexp when just a regexp will do. It avoids `split //` which confuses Text::Balanced.	[reply] [d/l] [select]
Re^5: Help displaying binary data bit-by-bit in binary notation by japhy (Canon) on Jun 15, 2006 at 03:20 UTC
How does Text::Balanced enter this scenario? What's the problem? Jeff `japhy` Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and `perl` hacker How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart	[reply]
Re^6: Help displaying binary data bit-by-bit in binary notation by ikegami (Patriarch) on Jun 15, 2006 at 06:10 UTC
The problem occurs if that code were to appear in something parsed using Text::Balanced, such as a Parse::RecDescent grammar. It's not relevant most of the time, but it has bitten me twice in the past.	[reply]