[Cascavel-pm] usar constantes com operadores de expressão regulares

[Alceu R. de Freitas Jr.]

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