<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18783">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>E há como eu pegar somente a primeira linha do
arquivo sem associá-lo à um array?</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>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 size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>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 size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>faço assim:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>while ($linha = <ARQUIVO>) {</FONT></DIV>
<DIV><FONT size=2 face=Arial> print $linha;</FONT></DIV>
<DIV><FONT size=2 face=Arial>}</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>ou então:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>print while (<ARQUIVO>);</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>ou seja, </FONT><FONT size=2 face=Arial>para pegar
a primeira linha faço:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>@textocompleto = <ARQUIVO>;</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>print $textocompleto[0]; # imprime a primeira
linha</FONT></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=otaviof@gmail.com href="mailto:otaviof@gmail.com">Otávio
Fernandes</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=cascavel-pm@pm.org
href="mailto:cascavel-pm@pm.org">Cascavel Perl Mongers</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Tuesday, June 16, 2009 8:04
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Cascavel-pm] Tamanho de uma
string</DIV>
<DIV><BR></DIV>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">gmail.com</A>><BR><A
href="http://otaviof.blogspot.com/">http://otaviof.blogspot.com/</A><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Cascavel-pm mailing
list<BR>Cascavel-pm@pm.org<BR>http://mail.pm.org/mailman/listinfo/cascavel-pm</BLOCKQUOTE></BODY></HTML>