constant variable using scaler variable

[luckypower]

hellow,

use constant A1 => "abc";
my $var = "A1";

now i want to print "abc" usig $var...

Thanks

[lamp]

The following code will print 'abc'.

use constant A1 => "abc";
my $var = A1;        # remove double quotes
print $var;

Please go through constant for more information.

[Corion]

Alternatively, set up a hash with your error messages:

use strict;

use constant ERR => 'Some error happened.';
use constant OK  => 'All is fine.';

my %messages = (
    'ERR' => ERR(),
    'OK'  => OK(),
);

my $res = some_func();
print $messages{ $res }, "\n";

Alternatively, you can invite the demons of symbolic references into your house, but they will eat your children:

use strict;

use constant ERR => 'Some error happened.';
use constant OK  => 'All is fine.';

my $res = some_func();
{
    no strict 'refs';
    print &$res(), "\n";
};

[rovf]

I guess you have a good reason to say $var="A1" instead of $var=A1, so

print(eval($var));

would be one way to solve the problem.

[merlyn]

That's one way to solve the problem, in the same way that using a flamethrower to light a cigarette is "one way to solve the problem". Not good. Dangerous. Expensive. The other solutions in this thread are far better.

[Tanktalus]

I dunno, I think using a flamethrower to light a cigarette is a great way to solve the problem of being addicted to cigarettes...

/me ducks, runs, and hides

[Popcorn Dave]

But a pastry torch is a fine way to light a cigar. ;)