[Cascavel-pm] Mais_um_dúvida_de_REGEX_!!!

[Luis Campos de Carvalho]

Alexandre de Abreu wrote:
> Assumindo $_
> 
> if(/foi pro saco/ && !/amarelo/) {
>   print "Boo";
> }
> 

   Se é jogo de adivinhas, a melhor forma de resolver é implementar logo 
um rule-based decision engine:

   use AI::Categorizer;

# Do Manual:
# AI::Categorizer is a framework for automatic text categorization.
# It consists of a collection of Perl modules that implement common
# categorization tasks, and a set of defined relationships among
# those modules. The various details are flexible - for example,
# you can choose what categorization algorithm to use, what
# features (words or otherwise) of the documents should be
# used (or how to automatically choose these features), what
# format the documents are in, and so on.
   __END__

   Outra forma de resolver é assim:

   open REGEXP, "/path/to/rules.regexp"
     or die;
   foreach $r( <REGEXP> ){ push @rules, qr/$r/; }
   close REGEXP;

   # enquanto isso, num pedaço de código nas proximidades...
   open D, '/path/to/data.bin'
     or die;
   local $_;
   DATA: while( <D> ){
     foreach $r ( @rules ){
       if( m/$r/ ){
         push @filtered_data, $_;
         next DATA;
       }
     }
   }
   close D;


-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is BSc in Comp Science,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=