<div dir="ltr">divertido<div><br></div><div>agora saca so como vc pode fazer "diferente""
</div><div><br></div><div>1 ao inves de </div><div><br></div><div>print "PALAVRA: " . $ARGV[0] . "\n"; <br></div><div><br></div><div>podes fazer</div><div><br></div><div>say "PALAVRA:  $ARGV[0]";</div>

<div><br></div><div>2- usa funcao isalpha pode ser simplificada (return 1 if ... )</div><div><br></div><div>sub isalpha { chr($_[0]) =~ /[a-zA-Z]/ } <br></div><div><br></div><div>3- use map :)</div><div><br></div><div>ao inves de </div>

<div><br></div><div><div>        my @b = split (//, $c);</div><div>        for (my $i = 0; $i < @b; $i++){</div><div>                $b[$i] = ord $b[$i];</div><div>        }</div></div><div><br></div><div>podes fazer</div>

<div><br></div><div>return map { ord } split //, $c;</div><div><br></div><div>agora é importante vc fazer um script de teste, onde vc chama as funcoes de encode e decode na mão e testa os valores. assim vc pode refatorar o script sem medo de errar alguma coisa.</div>

</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/11/10 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div><div dir="ltr">Fiz um algoritimo para encodar e decodar alguma coisa codificada de acordo com a Cifra de Vigenère.<div><br></div><div>Cheio de POG's mas a titulo só de distração.</div><div><br></div><div><a href="http://pastebin.com/ZzT9zZGb" target="_blank">http://pastebin.com/ZzT9zZGb</a></div>

<div><br></div><div>Exemplo: </div><table style="line-height:19.1875px;font-size:13px;font-family:sans-serif"><tbody><tr><td>Texto:</td><td><tt style="font-family:monospace,Courier">ATACARBASESUL</tt></td></tr><tr><td>Chave:</td>

<td><tt style="font-family:monospace,Courier">LIMAOLIMAOLIM</tt></td></tr><tr><td>Texto cifrado:</td><td><tt style="font-family:monospace,Courier">LBMCOCJMSSDCX</tt></td></tr></tbody></table>                                     </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><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>

<br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</div>