Hi.<br><br>Blablos, como disse, o script ali não foi pra ficar bonito e sim pra resolver o mini challange que fazemos. No caso, sempre tentamos deixar os scripts o menor possível. Por isso a manipulação direta do @_, entre outras 'bad practices'. =p<br>
<br>Aureliano, ali eu só repasso a string, o arrayref modificado e um 'index' pra manipular o restante, chamando a função recursivamente.<br><br>[]'s<br><br><div class="gmail_quote">Em 23 de março de 2012 11:25, Blabos de Blebe <span dir="ltr"><<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Por que o & antes do re?<br>
<div class="im"><br>
> &re($_[0], $_[1], $_[2] + 1);<br>
<br>
</div>E por que raios vc esta manipulando diretamente o @_?<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
2012/3/23 Junior Moraes <<a href="mailto:juniiior182@gmail.com">juniiior182@gmail.com</a>><br>
><br>
> Hi.<br>
><br>
> Acp, você conseguiu entender o script que postei lá?<br>
> Tá que eu não fiz ele pra ficar bonito e ser entendido e sim pra resolver o mini challenge, mas no caso:<br>
><br>
> use strict;<br>
> use warnings;<br>
><br>
> sub re {<br>
> if($_[2] != length($_[0])) {<br>
> my $ch = (split(//, $_[0]))[$_[2]];<br>
> for((lc($ch), uc($ch))) {<br>
> $_[1]->[$_[2]] = $_;<br>
> &re($_[0], $_[1], $_[2] + 1);<br>
> }<br>
> return;<br>
> }<br>
> print join(q(), @{$_[1]}), "\n";<br>
> }<br>
> re('ola', [], 0);<br>
><br>
> Ou conseguiu utilizar a lógica binária pra fazer o mapeamento e mudar os cases?<br>
> Por exemplo:<br>
> :~$ perl -E 'printf("%b\n", $_) for 0 .. 10'<br>
><br>
> 000 = ola<br>
> 001 = olA<br>
> 010 = oLa<br>
> 011 = oLA<br>
> 100 = Ola<br>
> 101 = OlA<br>
><br>
> E por aí vai...<br>
><br>
> []'s<br>
><br>
> Em 23 de março de 2012 10:45, Aureliano Guedes <<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>> escreveu:<br>
>><br>
>> Boma dia, monges.<br>
>><br>
>> Estou tentando fazer uma função que faça a combinação de cases sem usar o Set::CrossProduct.<br>
>><br>
>> Exemplo, tenho [A-F] e [1-6], e uma string com 6 caracteres (_ _ _ _ _ _), ou seja 6 posições<br>
>> na primeira posição pode ser 1 ou A, na segunda 2 ou B ... na ultima 6 ou B, dai<br>
>> quero que a saida seja todas as combinações possiveis, oou seja, todas as possibilidades da string.<br>
>><br>
>> Ja estou tentando a 2 dias, mas nada vem em mente.<br>
>><br>
>> Caso eu tenha me expressado mal (como o de costume), eu tento explicar melhor.<br>
>><br>
>> Aguardando alguma ajuda, desde ja obrigado.<br>
>><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>
><br>
><br>
><br>
><br>
> --<br>
> Junior Moraes (fvox)<br>
> Perl Developer<br>
> <a href="http://www.unsecurity.com.br/" target="_blank">http://www.unsecurity.com.br/</a><br>
><br>
><br>
><br>
><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>
_______________________________________________<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>
</div></div></blockquote></div><br><br clear="all"><br>-- <br><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><font>Junior Moraes (fvox)<br>
Perl Developer<br><a href="http://www.unsecurity.com.br/" target="_blank">http://www.unsecurity.com.br/</a><br><br></font></span><span style="color:rgb(0,0,0);font-family:'Times New Roman';font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:-webkit-auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><a href="http://www.twitter.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/yIS1c.png"></a><span> </span><a href="http://pt-br.facebook.com/juniiormoraes" target="_blank"><img src="http://i.imgur.com/BhlCG.png"></a><span> </span><a href="http://plus.google.com/104958988925423385684" target="_blank"><img src="http://i.imgur.com/y1VgL.png"></a><span> </span><a href="http://www.lastfm.com.br/user/juniior182" target="_blank"><img src="http://i.imgur.com/UgjTP.png"></a><span> </span><a href="http://www.delicious.com/fvox" target="_blank"><img src="http://i.imgur.com/Xmoky.png"></a><span> </span><a href="http://github.com/fvox" target="_blank"><img src="http://i.imgur.com/qK5SU.png"></a></span><br>
<br>