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

[Michal Růžička]

Ad Perl v TeX Live – pozor, v dokumentaci je myslím napsáno, že se
jedná o silně ořezanou verzi určenou jen pro potřeby tlmgr. Nehodí se
tedy pro běžné použití. Na to by bylo potřeba nainstalovat
plnohodnotnou distribuci Perlu pro Windows.

S pozdravem
Michal Růžička


Dne 20.1.2010 14:58, Milan Vancura napsal(a):
>> 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.


-- 
Michal Růžička <xruzick7 at fi.muni.cz>
https://www.fi.muni.cz/~xruzick7/pgp-klic/
PGP key fingerprint: 1CB2 41B9 F029 4B47 EECD  9BDA 90C9 CEB0 524C DACB