Alias de uma olhada https://metacpan.org/source/PACMAN/Acme-Lelek-1.003/lib/Acme/Lelek.pm
eu fiz este modulo pra brincar com o autobox::Core. 2013/11/10 Tiago Peczenyj <[email protected]> > 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 <[email protected]> > >> 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 >> [email protected] >> http://mail.pm.org/mailman/listinfo/rio-pm >> > > > > -- > Tiago B. Peczenyj > Linux User #405772 > > http://about.me/peczenyj > -- Tiago B. Peczenyj Linux User #405772 http://about.me/peczenyj
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
