Name of constant in variable

[fagga]

Good day,

is there any way to store the name of a constant (not the value) in a variable and access the value of this constant through the variable?
For example, if I had a constant named FOO.

my $var = 'FOO';  # FOO contains "bar"
print $var;       # should print "bar", prints "FOO"

I know, it would work if I'd just remove the quotes, but I just get the name of the constant from a function, not the value.

Hope you can understand me. And thanks in advance.

 

[arcnon]

$foo = 'bar';
$var = \$foo;

print "$$var";

 

[fagga]

Well, if I try this, it print's 'bar'. But in your example 'bar' is the name of the constant and I need the value.

constant ANSWER => 42;          # some constant
$name_of_constant = 'ANSWER';   # $name_of_constant contains 'ANSWER', not '42'
print magic($name_of_constant); # prints magically '42'

Now I just need to know what this strange magic function looks like.

 

[arcnon]

if you are wanting more examples google perl constant. as it stands this bit of code won't execute. sorry I cant be more help

 

[Coderifous]

Constants in perl are just subroutines that return the value. So you probably are wanting to do a soft dereference.

use constant FOO => 'bar';
my $con = 'FOO';
print &$con;  # gives 'bar'

--jim

 

[fagga]

Yes, this works fantastic. Thank you all very much for your help. I'm highly satisfied.