[Cascavel-pm] Mais_um_dúvida_de_REGEX_!!!
Luis Campos de Carvalho
lechamps em terra.com.br
Sexta Maio 7 08:57:45 CDT 2004
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/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Mais detalhes sobre a lista de discussão Cascavel-pm