[Cascavel-pm] usar constantes com operadores de expressão regulares
Alceu R. de Freitas Jr.
glasswalk3r em yahoo.com.br
Quinta Janeiro 5 03:52:41 PST 2006
Olá monges,
Estou com uma dúvida com relação ao uso de
use constant VAR => 'algumacoisa';
Imaginem que eu queira usar, no decorrer do programa,
o conteúdo de VAR para determinar se uma palavra
corresponde a esse valor. Como fazer para que o Perl
interpole o conteúdo dessa constante?
Eu acabei resolvendo dessa forma:
use constant VAR => 'algumacoisa';
sub test_word {
my $word = shift;
my $var = VAR;
($word =~ /$var/) ? print "ok\n" : print "not
ok\n";
}
print 'Type a word to test: ';
my $word = <STDIN>;
chomp $word;
print 'Testing ', $word, ' with ', VAR, "\n";
test_word('elefante');
Algum outro jeito além de criar uma variável local?
Talvez usando uma referência?
Grato a todos,
Alceu Rodrigues de Freitas Junior
--------------------------------------
glasswalk3r em yahoo.com.br
http://www.imortais.cjb.net
-----------------------------------------------------------------------
A well-used door needs no oil on its hinges.
A swift-flowing stream does not grow stagnant.
Neither sound nor thoughts can travel through a vacuum.
Software rots if not used.
These are great mysteries -- The Tao Of Programming, 5.1
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
Mais detalhes sobre a lista de discussão Cascavel-pm