Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
use strict;
...
=OUTPUT
bin   => 01010010011011110110110001100110
ascii => Rolf
  2. or download this
    perl -le 'print join"",map{sprintf"%08b",ord($_)}split//,pop' Rolf
perl -le 'print join"",map{chr(oct"0b$_")}pop=~/(\d{8})/g' 01010010011
+011110110110001100110