Doubt in assigning hash reference values for Constant pragma declaration ?

There are two code snippets pasted below for pragma constant. First program works fine. And second seems not working. Pour your Ideas.

First Program below :

#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash = ( 'a' => 2 );
use constant A => \%hash;
print A->{a};
[download]

Second Program below :

#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;

my $hash = { 'a' => 2 };

use constant A => $hash;
print A->{a};
[download]

Gubs

Nice to Breathe with Perl :-) Just try

Comment on Doubt in assigning hash reference values for Constant pragma declaration ? Select or Download Code
Re: Doubt in assigning hash reference values for Constant pragma declaration ? by Anonymous Monk on Sep 21, 2007 at 07:03 UTC
The assignment my $hash = { 'a' => 2 }; is wrong way of initilising the hash and my %hash = ( 'a' => 2 ); is the right way thats why it dosent work	[reply]
Re^2: Doubt in assigning hash reference values for Constant pragma declaration ? by chromatic (Archbishop) on Sep 21, 2007 at 08:48 UTC
The first example initializes a hash reference. What's wrong with that, or are you just objecting to the terms?	[reply]
Re: Doubt in assigning hash reference values for Constant pragma declaration ? by salva (Monsignor) on Sep 21, 2007 at 07:08 UTC
`use constant A => $hash;` [download] is evaluated at compilation time, before `my $hash = { 'a' => 2 };` [download] has been executed. Yo can use a `BEGIN` block to make the assignment at compile time: `my $hash; BEGIN { $hash = { 'a' => 2 } } use constant A => $hash;` [download] Or also: `my $hash; use constant A => $hash = {'a' => 2};` [download]	[reply] [d/l] [select]
Re^2: Doubt in assigning hash reference values for Constant pragma declaration ? by gube (Parson) on Sep 21, 2007 at 10:08 UTC
The above given information and example was very nice. Thanks Gubs	[reply]


No such thing as a small change
	PerlMonks