[cstex] Prevod znakov do binarneho tvaru --> graficka reprezentacia

[Milan Vancura]

> Zdravim,
> 
> da sa v texu napisat/pouzit taky skript,
> v ktorom ako vstup sluzi textovy retazec, ktory sa prevedie
> na ascii znaky, nasledne na jeho binarnu reprezentaciu a potom

$ perl -ne '$line=$_; chomp $line; print $line . "\n" . join(" ",unpack("c*",$line)) . "\n" . join(" ",unpack("(b8)*",$line)) . "\n";' <mail.in


Dobry den,
68 111 98 114 121 32 100 101 110 44
00100010 11110110 01000110 01001110 10011110 00000100 00100110 10100110 01110110 00110100
proc radeji nepouzit
112 114 111 99 32 114 97 100 101 106 105 32 110 101 112 111 117 122 105 116
00001110 01001110 11110110 11000110 00000100 01001110 10000110 00100110 10100110 01010110 10010110 00000100 01110110 10100110 00001110 11110110 10101110 01011110 10010110 00101110
vhodnejsi nastroj
118 104 111 100 110 101 106 115 105 32 110 97 115 116 114 111 106
01101110 00010110 11110110 00100110 01110110 10100110 01010110 11001110 10010110 00000100 01110110 10000110 11001110 00101110 01001110 11110110 01010110
na zpracovani textu?
110 97 32 122 112 114 97 99 111 118 97 110 105 32 116 101 120 116 117 63
01110110 10000110 00000100 01011110 00001110 01001110 10000110 11000110 11110110 01101110 10000110 01110110 10010110 00000100 00101110 10100110 00011110 00101110 10101110 11111100



S pozdravem
83 32 112 111 122 100 114 97 118 101 109
11001010 00000100 00001110 11110110 01011110 00100110 01001110 10000110 01101110 10100110 10110110
    Milan Vancura
32 32 32 32 77 105 108 97 110 32 86 97 110 99 117 114 97
00000100 00000100 00000100 00000100 10110010 10010110 00110110 10000110 01110110 00000100 01101010 10000110 01110110 11000110 10101110 01001110 10000110


P.S.: Perl je v distribuci TeXlive, i na MS Windows. V TeXu bych pak resil uz jen skutecnou sazbu - jak zalamat dlouhe "binarni" radky, nadefinovat vlastni graficke znacky pro binarni cislice atp.