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

[fernandolouis em terra.com.br]

*? e (?

O "?" é um quantifdicador nessa expressão? Desconnheço outra função do "?" se não esta.
  ----- Original Message ----- 
  From: Fernando Oliveira 
  To: Cascavel Perl Mongers 
  Sent: Tuesday, August 26, 2008 9:53 AM
  Subject: Re: [Cascavel-pm]coincidência de padrões e um lugar específico numa string


  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 
      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

    _______________________________________________
    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/13b51e94/attachment.html>