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

Blabos de Blebe blabos em gmail.com
Quinta Fevereiro 21 08:07:41 PST 2008


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
>


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