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

[Zdenek Wagner]

2010/1/20 Michal Růžička <xruzick7 at fi.muni.cz>:
> 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.
>
To je sice pravda, ale uvedený příklad nepotřebuje nic zvláštního.
Narazil jsem však s tím, když jsem napsal program v PerlTk, že ta
verze pro Windows v TL není kompletní. Ač je tlmgr psán v PerlTk, můj
program tam nechodí.

> 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
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> http://lists.felk.cvut.cz/mailman/listinfo/cstex
>



-- 
Zdeněk Wagner
http://hroch486.icpf.cas.cz/wagner/
http://icebearsoft.euweb.cz