[Cascavel-pm] Re: aih estah o arquivo em ascii...
Luis Campos de Carvalho
lechamps em terra.com.br
Quinta Abril 15 08:34:11 CDT 2004
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.
}
Mais detalhes sobre a lista de discussão Cascavel-pm