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