<!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>Eu não sabia que dessa forma ele já pega a primeira
linha do arquivo.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Valeu Fernando!</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>[]s</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=fernandocorrea@gmail.com
href="mailto:fernandocorrea@gmail.com">Fernando Oliveira</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> Wednesday, June 17, 2009 8:48
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Cascavel-pm] Tamanho de uma
string</DIV>
<DIV><BR></DIV>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
style="BORDER-LEFT: rgb(204,204,204) 1px solid; MARGIN: 0pt 0pt 0pt 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>
<DIV 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: rgb(0,0,0) 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV class=im>
<DIV
style="FONT: 10pt arial; font-size-adjust: none; font-stretch: normal">-----
Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: rgb(228,228,228); 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: 10pt arial; 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: 10pt arial; font-size-adjust: none; font-stretch: normal"><B>Sent:</B>
Tuesday, June 16, 2009 8:04 PM</DIV>
<DIV
style="FONT: 10pt arial; 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>
<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>