<!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> </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
> 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="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> 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>
<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>