[Rio-pm] bigramas e regexp

Danillo Souza danillo012 em gmail.com
Quarta Março 14 07:49:03 PDT 2012


Opa, desculpa, esse unpack só ta separando pares de letras ao invéz de
bigramas, essa versão aqui ta fazendo certo:


$_ = q(anticonstitucionalissimamente);
my @pairs = $_ =~ m{ (?= (..) ) }xmsg;

print join(' ', @pairs);


Abs

Em 14 de março de 2012 11:41, Danillo Souza <danillo012 em gmail.com> escreveu:

> $_ = 'anticonstitucionalissimamente';
> my @pairs = unpack "(A2)*";
>
> print join(' ', @pairs);
>
>
> Abs
>
> Em 14 de março de 2012 11:29, Stanislaw Pusep <creaktive em gmail.com>escreveu:
>
>>  Estava testando o seguinte código, que quebra uma string em bigramas
>> (no caso, 'split //' quebra em unigramas):
>>
>> $_ = q(anticonstitucionalissimamente);
>> for (; /(.{2})/gx; --pos) {
>>     print qq($1 );
>> }
>>
>> O resultado é:
>>
>> 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
>>
>> Existe alguma forma mais bacana de se fazer isso? Talvez com uma única
>> regexp/split?
>>
>> ABS()
>>
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120314/b84a6085/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm