...e funciona com strings maiores de 8 bytes :)<br clear="all"><br>ABS()<br><br>
<br><br><div class="gmail_quote">On Fri, Mar 23, 2012 at 15:26, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

O meu é menor...<div class="im HOEnZb"><br clear="all"><br><br><br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<br><br></div><div class="HOEnZb"><div class="h5"><div class="gmail_quote">2012/3/23 Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



<div>perl -E '$z=shift;$x=$z=~y/A-Za-z/\0/cr;$y=$z=~y/A-Za-z/\0/r;say for keys{map{$y|($x^(unpack"b8",chr)=~y/10/\0 /r)=~y/ /\0/r,1}(0..255)}' 'ola!'</div></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>