Vdaka aj za toto - obcas sa hram aj s Perlovskymi skriptmi.<br><br>Peter Knezel<br><br><div class="gmail_quote">2010/1/20 Milan Vancura <span dir="ltr"><<a href="mailto:milan@ucw.cz">milan@ucw.cz</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="im">> Zdravim,<br>
><br>
> da sa v texu napisat/pouzit taky skript,<br>
> v ktorom ako vstup sluzi textovy retazec, ktory sa prevedie<br>
> na ascii znaky, nasledne na jeho binarnu reprezentaciu a potom<br>
<br>
</div>$ perl -ne '$line=$_; chomp $line; print $line . "\n" . join(" ",unpack("c*",$line)) . "\n" . join(" ",unpack("(b8)*",$line)) . "\n";' <<a href="http://mail.in" target="_blank">mail.in</a><br>

<br>
<br>
Dobry den,<br>
68 111 98 114 121 32 100 101 110 44<br>
00100010 11110110 01000110 01001110 10011110 00000100 00100110 10100110 01110110 00110100<br>
proc radeji nepouzit<br>
112 114 111 99 32 114 97 100 101 106 105 32 110 101 112 111 117 122 105 116<br>
00001110 01001110 11110110 11000110 00000100 01001110 10000110 00100110 10100110 01010110 10010110 00000100 01110110 10100110 00001110 11110110 10101110 01011110 10010110 00101110<br>
vhodnejsi nastroj<br>
118 104 111 100 110 101 106 115 105 32 110 97 115 116 114 111 106<br>
01101110 00010110 11110110 00100110 01110110 10100110 01010110 11001110 10010110 00000100 01110110 10000110 11001110 00101110 01001110 11110110 01010110<br>
na zpracovani textu?<br>
110 97 32 122 112 114 97 99 111 118 97 110 105 32 116 101 120 116 117 63<br>
01110110 10000110 00000100 01011110 00001110 01001110 10000110 11000110 11110110 01101110 10000110 01110110 10010110 00000100 00101110 10100110 00011110 00101110 10101110 11111100<br>
<br>
<br>
<br>
S pozdravem<br>
83 32 112 111 122 100 114 97 118 101 109<br>
11001010 00000100 00001110 11110110 01011110 00100110 01001110 10000110 01101110 10100110 10110110<br>
<font color="#888888">    Milan Vancura<br>
32 32 32 32 77 105 108 97 110 32 86 97 110 99 117 114 97<br>
00000100 00000100 00000100 00000100 10110010 10010110 00110110 10000110 01110110 00000100 01101010 10000110 01110110 11000110 10101110 01001110 10000110<br>
</font><br>
<br>
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.<br>
<div><div></div><div class="h5">_______________________________________________<br>
csTeX mailing list<br>
<a href="mailto:csTeX@cs.felk.cvut.cz">csTeX@cs.felk.cvut.cz</a><br>
<a href="http://lists.felk.cvut.cz/mailman/listinfo/cstex" target="_blank">http://lists.felk.cvut.cz/mailman/listinfo/cstex</a><br>
</div></div></blockquote></div><br>