[Rio-pm] Pegar apenas alguns dados de um arquivo

Fernando Oliveira fernandocorrea em gmail.com
Quinta Fevereiro 21 08:09:17 PST 2008


já tô no 3o... pedí um adiantamento...

Em 21/02/08, Blabos de Blebe <blabos em gmail.com> escreveu:
>
> Propaganda de blog, só depois do 10° post :P
>
> 2008/2/21 Fernando Oliveira <fernandocorrea em gmail.com>:
>
> > Escreví um post no meu blog sobre isso. Como ele (o blog) é novo, e é só
> > sobre perl eu achei q podia fazer propaganda aqui. Caso esteja errado,
> me
> > desculpem. a url é: http://perl-e.org/blog
> >
> > Em 21/02/08, Fernando Oliveira <fernandocorrea em gmail.com> escreveu:
> >
> > > independente de serem espaços ou tabs, poderia usar:
> > > <code>
> > > ($array[$i], $nome) = split("\s+", $linha)
> > > </code>
> > >
> > >
> > > Em 21/02/08, Andre Luis <alpbs2003 em gmail.com> escreveu:
> > >
> > > > nao sei se o que tem entre os numeros e o nome sao espacos ou tabs
> mas
> > imaginando que sejan tabs
> > > > ($array[$i], $nome) = split("\t", $linha);
> > > >
> > > > assim $array[$i] tera os numeros e $nome os nomes
> > > > era isso ?
> > > >
> > > > abs
> > > >
> > > > Em 20/02/08, gabriel lima <gabriellima333 em hotmail.com> escreveu:
> > > > >
> > > > >
> > > > > Pessoal, estou com um problema que pode ser fácil de resolver para
> > vocês.
> > > > > Mas eu estou tendo um pouco de dificuldade para resolver o mesmo.
> Se
> > alguem
> > > > > me ajudar eu ficarei grato!
> > > > >
> > > > > Veja, tenho um arquivo .txt com o seguinte formato
> > > > >
> > > > > 63528   Gabriel Lima
> > > > > 537728  Outro Nome
> > > > > 645374  Fulano De Tal
> > > > > 637485  Beltrano Alvarenga
> > > > >
> > > > > Eu gostaria de ler este arquivo e armazenar, apenas os número, em
> um
> > $array[$i].
> > > > > Observe que o primeiro número tem um digito a menos que os demais.
> > Este número
> > > > > tem que ser armazena sem nenhuma espaço em branco, aliás, nenhum
> pode.
> > > > >
> > > > > Para isso eu já tentei de tudo, expressões regulares, usar um
> while e
> > ficar
> > > > > dando chop até chegar nos números, mas nenhuma das minhas
> tentavivas
> > deu certo.
> > > > > Aliás, minhas tacadas de Golf! (como dizem algumas pessoas aqui da
> > lista) passaram
> > > > > bem longe do "buraco".
> > > > >
> > > > > #!/usr/bin/perl
> > > > >
> > > > > use strict;
> > > > >
> > > > > my ($i, @array_emp, $linha);
> > > > >
> > > > >   # Abrindo arquivo para leitura
> > > > > open(EMP_LISTA, "< teste.txt") or die "Erro ao abrir arquivo: $!";
> > > > >
> > > > >     while($linha <EMP_LISTA>){
> > > > >        $i = 1;
> > > > >        $array_emp[$i] = $linha;
> > > > >        $i++;
> > > > >     }
> > > > >        for($i = 0; $i < 4; $i++){
> > > > >           print "$array_emp[$i]\n";
> > > > >        }
> > > > >   # Fechando arquivo
> > > > > close(EMP_LISTA);
> > > > >
> > > > >
> > > > > Era mais ou menos algo como isso que eu estava tentando, mas
> > > > > nem me lembro, escrevi rapido para vocês verem o caminho que
> > > > > eu estava tomando. Acho que está errado.
> > > > >
> > > > > Até mais =/
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > ________________________________
> > Conheça já o Windows Live Spaces, o site de relacionamentos do
> Messenger!
> > Crie já o seu!
> > > > > _______________________________________________
> > > > > Rio-pm mailing list
> > > > > Rio-pm em pm.org
> > > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > > >
> > > >
> > > >
> > > > _______________________________________________
> > > > Rio-pm mailing list
> > > > Rio-pm em pm.org
> > > > http://mail.pm.org/mailman/listinfo/rio-pm
> > > >
> > >
> > >
> > >
> > > --
> > > []'s Fernando
> >
> >
> >
> > --
> > []'s Fernando
> > _______________________________________________
> >  Rio-pm mailing list
> >  Rio-pm em pm.org
> >  http://mail.pm.org/mailman/listinfo/rio-pm
> >
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080221/c2fe1a4e/attachment.html 


Mais detalhes sobre a lista de discussão Rio-pm