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

[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 
  To: Cascavel Perl Mongers 
  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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20080826/ae592f26/attachment.html>