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

[Joenio Marques]

Voce interpolar uma constante assim:

print "interpolando @{[ VAR ]}";

Sds,

Em 05/01/06, Alceu R. de Freitas Jr.<glasswalk3r em yahoo.com.br> escreveu:
> 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
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


--
Joenio Marques
- Salvador Perl Mongers