[Rio-pm] Combinação

[Stanislaw Pusep]

Chutando o pau da barraca:

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!'

(repare que presença de '!' não duplica a quantidade de resultados)
Conclusão: esse *NÃO É* o jeito certo!!!

ABS()



On Fri, Mar 23, 2012 at 14:33, Fernando Oliveira
<fernandocorrea em gmail.com>wrote:

> não independe da string...
>
>
>
>
> Just another Perl Hacker,
> Fernando (SmokeMachine)
>
>
> 2012/3/23 Stanislaw Pusep <creaktive em gmail.com>
>
>> perl -E 'for(0..63){$_=unpack"b6",chr;y/10/\0 /;say"qwerty"^$_}'
>>
>
>
> _______________________________________________
> 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/20120323/8a7276dc/attachment-0001.html>