Opa, desculpa, esse unpack só ta separando pares de letras ao invéz de bigramas, essa versão aqui ta fazendo certo:<div><br><div><br></div><div><div>$_ = q(anticonstitucionalissimamente);</div><div>my @pairs = $_ =~ m{ (?= (..) ) }xmsg;</div>

<div><br></div><div>print join(' ', @pairs);</div><div><br></div><div><br></div><div>Abs</div><br><div class="gmail_quote">Em 14 de março de 2012 11:41, Danillo Souza <span dir="ltr"><<a href="mailto:danillo012@gmail.com">danillo012@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>$_ = 'anticonstitucionalissimamente';</div><div>my @pairs = unpack "(A2)*";</div><div><br></div>

<div>print join(' ', @pairs);</div><div><br></div><div><br></div><div>Abs</div><br><div class="gmail_quote">
Em 14 de março de 2012 11:29, Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com" target="_blank">creaktive@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><div class="h5">
<div>Estava testando o seguinte código, que quebra uma string em bigramas (no caso, 'split //' quebra em unigramas):</div><div><br></div><div>$_ = q(anticonstitucionalissimamente);</div><div>for (; /(.{2})/gx; --pos) {</div>




<div>    print qq($1 );</div><div>}</div><div><br></div><div>O resultado é:</div><div><br></div><div>an nt ti ic co on ns st ti it tu uc ci io on na al li is ss si im ma am me en nt te <br></div><div><br></div><div>Existe alguma forma mais bacana de se fazer isso? Talvez com uma única regexp/split?</div>




<div><br></div>ABS()<br>
<br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">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>
</blockquote></div><br></div></div>