<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16705" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Perfeito Fernando!</FONT></DIV>
<DIV><FONT face=Arial size=2>Já estou usando seu exemplo... só não entendi qual 
a função das "?" nele. Poderia me explicar?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><FONT face=Arial size=2>[]s,</FONT></DIV>
<DIV><FONT face=Arial size=2>Fernando</FONT></DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; 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> Monday, August 25, 2008 4:26 
  PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [Cascavel-pm]coincidência de 
  padrões e um lugar específico numa string</DIV>
  <DIV><BR></DIV>
  <DIV dir=ltr>eu faria algo 
  assim:<BR><BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; perl procura.pl 3 palavra<BR>SIM! existe palavra na 3a 
  linha<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; perl procura.pl 2 
  palavra<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; perl procura.pl 1 lalala<BR>SIM! existe lalala na 1a 
  linha<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; perl procura.pl 3 
  lalala<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; perl procura.pl 4 lalala<BR>SIM! existe lalala na 4a 
  linha<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt; cat procura.pl<BR>$linha=shift() - 
  1;$palavra=shift;<BR>$a=join"",&lt;DATA&gt;;<BR>print "SIM! existe $palavra na 
  ".($linha+1)."a linha$/" if 
  $a=~/^(?:.*?\n){$linha}[^\n]*?$palavra/<BR>__DATA__<BR>lalala lelele<BR>lilili 
  lololo<BR>abc palavra def<BR>lululu lalala<BR>lelele 
  lilili<BR>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 
  &gt;<BR><BR>
  <DIV class=gmail_quote>2008/8/25 Luis Motta Campos <SPAN dir=ltr>&lt;<A 
  href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</A>&gt;</SPAN><BR>
  <BLOCKQUOTE class=gmail_quote 
  style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
    <DIV class=Ih2E3d><A href="mailto:fernandolouis@terra.com.br" 
    target=_blank>fernandolouis@terra.com.br</A> wrote:<BR>
    <BLOCKQUOTE class=gmail_quote 
    style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">Gostaria 
      de reconhecer determinada palavra dentro de uma string, mas somente fazer 
      essa verificação na terceira linha.<BR><BR>Há uma maneira simples? Ou devo 
      separar cada linha em um vetor e então pegar o vetor[3] e fazer o 
      reconhecimento de padrão?<BR></BLOCKQUOTE><BR></DIV><A 
    href="http://xkcd.com/208/" 
    target=_blank>http://xkcd.com/208/</A><BR><BR>sub have_word_in_third_line 
    {<BR>&nbsp;my ( $ word, $text ) = @_;<BR>&nbsp;return $text =~ 
    m{^(?:[^\n\v].*){3}$word}xsm;<BR>}<BR><BR>Como eu não testei, não sei dizer 
    se funciona. :) Mas eu começaria assim.<BR><BR>Putamplexos!<BR><FONT 
    color=#888888>-- <BR>Luis Motta Campos is a software engineer,<BR>Perl 
    Programmer, foodie and photographer.</FONT>
    <DIV>
    <DIV></DIV>
    <DIV 
    class=Wj3C7c><BR>_______________________________________________<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><BR></DIV></DIV></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></DIV>
  <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>