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

[Fernando Oliveira]

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! <http://www.amigosdomessenger.com.br>
> > >
> > > _______________________________________________
> > > 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080221/59a52dbd/attachment.html