não... por ser em contexto de lista, o array vai receber todo o arquivo...<br>Pq vc quer a 1a linha num array? pq não num scalar?<br>se servir num scalar, vc poderia fazer assim:<br><br>$linha = <$ARQ>;<br><br>mas se tiver q ser num array mesmo (q eu não vejo o pq), vc poderia fazer assim:<br>
<br>@linhas = (scalar <$ARQ>);<br><br>ou<br><br>push @linhas, scalar <$ARQ>;<br><br><div class="gmail_quote">2009/6/17 Fernando <span dir="ltr"><<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div bgcolor="#ffffff">
<div><font face="Arial" size="2">E há como eu pegar somente a primeira linha do
arquivo sem associá-lo à um array?</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Essa flexibilidade que o Perl tem em fazer diversas
coisas de maneiras diferentes é incrível... e muitas vezes fico na
"mesmice"</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">Ao abrir determinado arquivo com a função open(),
para ler o arquivo e imprimi-lo, é feito linha por linha, ou estou
engando?</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">faço assim:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">while ($linha = <ARQUIVO>) {</font></div>
<div><font face="Arial" size="2"> print $linha;</font></div>
<div><font face="Arial" size="2">}</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">ou então:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">print while (<ARQUIVO>);</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">ou seja, </font><font face="Arial" size="2">para pegar
a primeira linha faço:</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">@textocompleto = <ARQUIVO>;</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">print $textocompleto[0]; # imprime a primeira
linha</font></div>
<blockquote style="border-left: 2px solid rgb(0, 0, 0); padding-left: 5px; padding-right: 0px; margin-left: 5px; margin-right: 0px;"><div class="im">
<div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;">----- Original Message ----- </div>
<div style="background: rgb(228, 228, 228) none repeat scroll 0% 0%; font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial;">
<b>From:</b>
<a title="otaviof@gmail.com" href="mailto:otaviof@gmail.com" target="_blank">Otávio
Fernandes</a> </div>
<div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>To:</b> <a title="cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org" target="_blank">Cascavel Perl Mongers</a> </div>
<div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Sent:</b> Tuesday, June 16, 2009 8:04
PM</div>
<div style="font-family: arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 10pt; line-height: normal; font-size-adjust: none; font-stretch: normal;"><b>Subject:</b> Re: [Cascavel-pm] Tamanho de uma
string</div>
<div><br></div></div><div><div></div><div class="h5">Fernando,<br><br>Me parece até obvio, mas eu tenho que
perguntar: se você vai apenas fazer testes com a primeira linha do arquivo,
porque guardar o arquivo inteiro neste array?<br><br>um abraço,<br clear="all"><br>-- <br>Otávio Fernandes <otaviof at <a href="http://gmail.com" target="_blank">gmail.com</a>><br><a href="http://otaviof.blogspot.com/" target="_blank">http://otaviof.blogspot.com/</a><br>
</div></div><p>
</p><hr><div class="im">
<p></p>_______________________________________________<br>Cascavel-pm mailing
list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></div></blockquote>
</div>
<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" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br>
<a href="http://perl-e.org">http://perl-e.org</a><br>