Continuando...<br><br>para verificação do conteúdo de uma variável:<br>- ao invés do NULL, utilize undef.<br>Ex.: print "vazio" if $x eq undef;<br><br>- outra opção é utilização a função 'defined' para verificar se uma string ou até subrotina está definida.
<br>Ex.: print "definido" if defined $x;<br>print "não definido" if !defined $x;<br><br>- ainda existe a função 'exists' para tratar hashs e arrays e, também, até subrotina.<br>Ex.: print "existe" if exists $bolo{chocolate};
<br>print "existe" if exists $matriz[1][3]; # creio que gostará de usar<br><br><br>Bom, creio que possa ajudar. :)<br>- Tomei a liberdade de usar esse estilo de ordenamento (resultado -> condição) para um melhor entendimento da função.
<br>- O ponto de exclamação nega uma função, ou pelo menos retorna o contrário dela. <br><br>É isso!<br><br>Abraços,<br><br>-<br><div><span class="gmail_quote">On 11/25/06, <b class="gmail_sendername">Breno G. de Oliveira
</b> <<a href="mailto:breno@clavis.com.br">breno@clavis.com.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Ramon Mendes wrote:
<br>><br>> Declarei um vetor.<br>> e li um arquivo da seguinte forma.<br>><br>> 1 2 3 4<br>> 5 6 7 8<br>> 9 10 11 12<br>><br>> quero acessar por exemplo somente o numero 8. Eu consigo fazer isto como
<br>> um array comu.. por exemplo.<br>><br>> my @arq=<FILE>;<br>> print $arq[1][3];<br>><br>> Desta forma consigo imprimir somente o numero 8?<br>><br><br>Seguindo a ótima recomendação do Nilson, após ler o "perlintro", se
<br>quiser começar a brincar com matrizes pode ler também o "perllol"<br><br>perldoc perllol<br><br>ou<br><br><a href="http://perl.org.br/bin/view/Perldoc/Perllol">http://perl.org.br/bin/view/Perldoc/Perllol</a>
<br><br>obs: supondo que as linhas que vc passou estejam em "matriz.txt", acho<br>que o que você quer é isso:<br><br>--------------------8<---------------------------<br>my @matriz = ();<br><br>open FILE, '<', '
matriz.txt' or die;<br>while (<FILE>) {<br> push @matriz, [ split ];<br>}<br><br>print $matriz[1][3]; # exibe '8'<br><br>--------------------8<---------------------------<br><br>[]s<br><br>breno<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>Gabriel Vieira