divertido
agora saca so como vc pode fazer "diferente""
1 ao inves de
print "PALAVRA: " . $ARGV[0] . "\n";
podes fazer
say "PALAVRA: $ARGV[0]";
2- usa funcao isalpha pode ser simplificada (return 1 if ... )
sub isalpha { chr($_[0]) =~ /[a-zA-Z]/ }
3- use map :)
ao inves de
my @b = split (//, $c);
for (my $i = 0; $i < @b; $i++){
$b[$i] = ord $b[$i];
}
podes fazer
return map { ord } split //, $c;
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.
2013/11/10 Aureliano Guedes <guedes_1...@hotmail.com>
> Fiz um algoritimo para encodar e decodar alguma coisa codificada de acordo
> com a Cifra de Vigenère.
>
> Cheio de POG's mas a titulo só de distração.
>
> http://pastebin.com/ZzT9zZGb
>
> Exemplo:
> Texto:ATACARBASESULChave: LIMAOLIMAOLIMTexto cifrado:LBMCOCJMSSDCX
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm@pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
--
Tiago B. Peczenyj
Linux User #405772
http://about.me/peczenyj
_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm
