[Cascavel-pm] Re: aih estah o arquivo em ascii...

[Luis Campos de Carvalho]

Gabriel Rodrigues wrote:
>  Aí está o arquivo com as linhas de genes. Tem 911k, é
> grandinho. Aquele "uv" é realmente único e verá que o
> código de todos sempre termina com um espaço.

   [snip]

   Obrigado pela "amostra", Gabriel.
   Tem montes de coisas que você esqueceu de contar antes, mas que com a 
amostra fica simples de encontrar.

   Segue a biblioteca GATTACA.pm e um programa-exemplo, didático, 
nomeado "gattaca". (:

   Quem nunca assistiu a este filme, deve fazer isso tão breve quanto 
possa. É genial... (:

   Gabriel:
     1) O programa didático é capaz de separar todas as "amostras"
        que você mandou para mim em aproximadamente 2 segundos,
        sem erros ou warnings. Deve ser suficiente para você.

     2) Ainda é possivel realizar algumas otimizações. (:

     3) Se você tiver qualquer problema, por favor me avise.
        Eu vou ficar contente em poder ajudar.

     4) Putamplexos, e vejo você no II Encontro dos
        Perl M[ou]ngers Paulistanos! (:

   map $_->putamplexos, ORG::PM::Cascavel->retrieve_all;
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is BSc in Comp Science,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : GATTACA.pm
Tipo  : application/x-perl
Tam   : 3031 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20040415/8d2e31e4/GATTACA.bin
-------------- Próxima Parte ----------
#!/usr/bin/perl

#     This program is free software; you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation; either version 2 of the License, or
#     (at your option) any later version.

#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.

#     You should have received a copy of the GNU General Public License
#     along with this program; if not, write to the Free Software
#     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

#     Copyleft Luis Campos de Carvalho
#     <champs _at_ users _dot_ sourceforge _dot_ net>
#     April / 2004

use warnings;
use strict;
use lib '.';
use GATTACA;

# Isto serve como separador de registros.
# Instrui o Perl a ler uma "linha" de cada vez, comecada com
# isto e terminada com a mesma coisa (ou fim-de-arquivo).
local $/ = "\n>";
while(<>){
  my $hash = gattaca( $_ ); 
  print $hash->{Nome}, "\n";
  # Coloque aqui seu codigo de acesso a banco de dados.
  # Use os valores armazenados em $hash para acessar os campos capturados.
}