[Rio-pm] Bit-a-Bit

[breno]

2012/2/11 Aureliano Guedes <guedes_1000 em hotmail.com>:
> Desculpem por ter enviado o email repetido, na verdade eu faço biomedicina,
> e namoro Perl a 7 meses com trabalhos de bioinformatica na area de pesquisa
> em genética, formo esse ano!
>

Parabéns!

> Mas eu sou apaixonado por programação e Perl é minha primeira linguagens,
> apesar de ter noção basica de outras é a que eu sou apaixonado,
> porem esses assunto a nível binario me dão um nó na cabeça!
>

Venha no próximo Encontro Social então! Tivemos um essa quinta, foi
muito bacana.

> Mas agradeço a ajuda, foi otima, agora tentarei fazer o script.
>
> Eu ja havia feito usando as funções uc e lc.
>
> Ficou assim:
>

inverter? que tal assim:

sub inverter {
   my $string = shift;
   $string = ~ tr/a-zA-Z/A-Za-z/;
   return $string;
}

Mais fácil, né? :-)

[]s

-b