<!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>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial>Valeu Fernando!</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT>&nbsp;</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 = &lt;$ARQ&gt;;<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 &lt;$ARQ&gt;);<BR><BR>ou<BR><BR>push @linhas, 
  scalar &lt;$ARQ&gt;;<BR><BR>
  <DIV class=gmail_quote>2009/6/17 Fernando <SPAN dir=ltr>&lt;<A 
  href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</A>&gt;</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>&nbsp;</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>&nbsp;</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>&nbsp;</DIV>
    <DIV><FONT size=2 face=Arial>faço assim:</FONT></DIV>
    <DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>
    <DIV><FONT size=2 face=Arial>while ($linha = &lt;ARQUIVO&gt;) {</FONT></DIV>
    <DIV><FONT size=2 face=Arial>&nbsp; print $linha;</FONT></DIV>
    <DIV><FONT size=2 face=Arial>}</FONT></DIV>
    <DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>
    <DIV><FONT size=2 face=Arial>ou então:</FONT></DIV>
    <DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>
    <DIV><FONT size=2 face=Arial>print while (&lt;ARQUIVO&gt;);</FONT></DIV>
    <DIV><FONT size=2 face=Arial></FONT>&nbsp;</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>&nbsp;</DIV>
    <DIV><FONT size=2 face=Arial>@textocompleto = &lt;ARQUIVO&gt;;</FONT></DIV>
    <DIV><FONT size=2 face=Arial></FONT>&nbsp;</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 &lt;otaviof at <A 
      href="http://gmail.com" target=_blank>gmail.com</A>&gt;<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>