<div dir="ltr">Qual dos "?"?<br><br><div class="gmail_quote">2008/8/26 <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 size="2" face="Arial">Perfeito Fernando!</font></div>
<div><font size="2" face="Arial">Já estou usando seu exemplo... só não entendi qual
a função das "?" nele. Poderia me explicar?</font></div>
<div><font size="2" face="Arial"></font> </div>
<div><font size="2" face="Arial">[]s,</font></div>
<div><font size="2" face="Arial">Fernando</font></div>
<blockquote style="border-left: 2px solid rgb(0, 0, 0); padding-right: 0px; padding-left: 5px; margin-left: 5px; margin-right: 0px;"><div><div></div><div class="Wj3C7c">
<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%; -moz-background-clip: -moz-initial; -moz-background-origin: -moz-initial; -moz-background-inline-policy: -moz-initial; 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>From:</b>
<a title="fernandocorrea@gmail.com" href="mailto:fernandocorrea@gmail.com" target="_blank">Fernando Oliveira</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> Monday, August 25, 2008 4:26
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]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
> perl procura.pl 3 palavra<br>SIM! existe palavra na 3a
linha<br>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788
> perl procura.pl 2
palavra<br>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788
> perl procura.pl 1 lalala<br>SIM! existe lalala na 1a
linha<br>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788
> perl procura.pl 3
lalala<br>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788
> perl procura.pl 4 lalala<br>SIM! existe lalala na 4a
linha<br>oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788
> cat procura.pl<br>$linha=shift() -
1;$palavra=shift;<br>$a=join"",<DATA>;<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
><br><br>
<div class="gmail_quote">2008/8/25 Luis Motta Campos <span dir="ltr"><<a href="mailto:luismottacampos@yahoo.co.uk" target="_blank">luismottacampos@yahoo.co.uk</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><a href="mailto:fernandolouis@terra.com.br" target="_blank">fernandolouis@terra.com.br</a> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">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> my ( $ word, $text ) = @_;<br> 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><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" target="_blank">http://perl-e.org</a><br></div>
</div></div><p>
</p><hr><div class="Ih2E3d">
<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>
</div>