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

[Fernando Oliveira]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20080825/512fd2a1/attachment.html>