[Cascavel-pm] coincidência de padrões e um lugar específico numa string

[Fernando Oliveira]

Qual dos "?"?

2008/8/26 <fernandolouis em terra.com.br>

>  Perfeito Fernando!
> Já estou usando seu exemplo... só não entendi qual a função das "?" nele.
> Poderia me explicar?
>
> []s,
> Fernando
>
> ----- Original Message -----
> *From:* Fernando Oliveira <fernandocorrea em gmail.com>
> *To:* Cascavel Perl Mongers <cascavel-pm em pm.org>
> *Sent:* Monday, August 25, 2008 4:26 PM
> *Subject:* Re: [Cascavel-pm]coincidência de padrões e um lugar específico
> numa string
>
> eu faria algo assim:
>
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > perl
> procura.pl 3 palavra
> SIM! existe palavra na 3a linha
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > perl
> procura.pl 2 palavra
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > perl
> procura.pl 1 lalala
> SIM! existe lalala na 1a linha
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > perl
> procura.pl 3 lalala
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > perl
> procura.pl 4 lalala
> SIM! existe lalala na 4a linha
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 > cat
> procura.pl
> $linha=shift() - 1;$palavra=shift;
> $a=join"",<DATA>;
> print "SIM! existe $palavra na ".($linha+1)."a linha$/" if
> $a=~/^(?:.*?\n){$linha}[^\n]*?$palavra/
> __DATA__
> lalala lelele
> lilili lololo
> abc palavra def
> lululu lalala
> lelele lilili
> oidvap15"@"abrdev01:/apl/dv/bp_aplic/desenv/fernando-novo/DS32788 >
>
> 2008/8/25 Luis Motta Campos <luismottacampos em yahoo.co.uk>
>
>> fernandolouis em terra.com.br wrote:
>>
>>> Gostaria de reconhecer determinada palavra dentro de uma string, mas
>>> somente fazer essa verificação na terceira linha.
>>>
>>> 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?
>>>
>>
>> http://xkcd.com/208/
>>
>> sub have_word_in_third_line {
>>  my ( $ word, $text ) = @_;
>>  return $text =~ m{^(?:[^\n\v].*){3}$word}xsm;
>> }
>>
>> Como eu não testei, não sei dizer se funciona. :) Mas eu começaria assim.
>>
>> Putamplexos!
>> --
>> Luis Motta Campos is a software engineer,
>> Perl Programmer, foodie and photographer.
>>
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>>
>
>
>
> --
> Just another Perl Hacker,
> Fernando (SmokeMachine)
> http://perl-e.org
>
> ------------------------------
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Just another Perl Hacker,
Fernando (SmokeMachine)
http://perl-e.org
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20080826/228a0f1c/attachment-0001.html>