<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">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 class="Ih2E3d"><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 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>