Hum.<br><br>Para a dúvida da matriz (que eu ainda acho que é uma dúvida de listas, já que pelo que lembro matrizes são multidimensionais). Quando você vai iterar um arquivo, você tem que lembrar que ele pode ser muito grande - pode não ser em todas as situações, mas é uma boa prática evitar que possa haver um estouro de memória. Temos algumas situações:
<br><br>open my $fh, "<", "arquivo.txt" or die $!; <br><br># não bom, pois pode exceder o limite de memória, já que o<br># Perl irá transformar todo o conteúdo do arquivo em um array,<br># quebrando na posição em que existir $/ (perldoc perlvar)
<br>foreach (<$fh>) { ... } <br><br># bom, pois pega cada linha do arquivo (podendo mudar o delimitador padrão $/)<br># por vez, não gerando um array temporário<br>while (defined(my $line = <$fh>)) { ... }<br>
<br># ou utilizando a variável mágica $_<br>while (<$fh>) { ... }<br><br>Agora voltando ao EOF, quando você executa <$fh> em contexto escalar, ele retorna 'undef' quando não existem mais linhas (ou elementos) para retornar. Isto serve para arrays também:
<br><br>my @array = qw/1 2 3 4 5/;<br>foreach my $e (@array) { ... }<br><br>Acho que outros monges podem contribuir com isso também.<br><br><div><span class="gmail_quote">Em 28/07/06, <b class="gmail_sendername">Thomas Britis
</b> <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</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;">my @matriz;
<br>open (F, "<$file");<br>@matriz = <F>;<br>my $num = $#matriz + 1;<br><br>ou:<br><br>foreach (@matriz) { # Vai até o fim de @matriz, alocando a linha na<br>variavel $_<br>ou ainda:<br>for ($x = 0; $matrix[$x]; $x++) { # Ai vc lê a linha com: $matrix[$x]
<br><br>Paola Montini wrote:<br>> Olha eu novamente, vcs ainda não se livraram de mim<br>> Tenho um arquivo texto o qual coloquei dentro de uma matriz, cada linha<br>> desse arquivo é um caminho diferente que deve ser lido um de cada vez,
<br>><br>> não sei quantas linhas possue essa matriz.....<br>> no perl existe a função While not EOF ????<br>> Não quero fazer besteira!!!!<br>><br>> bPaola Montini<br>> YMF-Consultoria<br>> Fone: 5010-9220
<br>><br>><br>> ------------------------------------------------------------------------<br>><br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>
_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br></blockquote></div><br><br clear="all"><br>-- <br>Igor Sutton Lopes<br>t: +55 51 9627.0779<br>e: <a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>