So, staring at Thinkgeek's latest creation and wondering what the hell it says? This handy dandy binary decoder can tell you! Just feed it a string of binary digits, and it'll convert them to their ASCII equivalent.
perl -e'$_=<>;print+(map{chr(eval"0b$_")}unpack"a8"x(length($_)/8),$_),"\n"'(Better versions quite welcome...)
=cut
--Brent Dax
There is no sig.
Back to
Cool Uses for Perl