using strict refs

[c]

I knew this one would be a problem, but I have actually seen it used with use strict no strict refs before. i'd rather not cop out though, so if someone could explain the right way to do it, i'd appreciate it.

#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
print "$$i\n";

humbly -c

[bwana147]

Locally disable the strict (UPDATE: NO, DON'T! Praises go to Hofmator for correcting this goof):

#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
{
    no strict 'refs';
    print "$$i\n";
}

Or use eval:

#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
print eval qq{"\$$i\\n"};

--bwana147

[Hofmator]

The eval version works, the other version doesn't work because symbolic references only work for package variables - not for lexical variables declared with my. So:

#!/usr/bin/perl -w
use strict;
my $i = "test";

# this is now a package variable and requrires an explicit
# package name because of use strict
$main::test = "success";
{
    no strict 'refs';
    print "$$i\n";
}

-- Hofmator

[dragonchild]

The question is what are you trying to do? It looks like your trying to create a soft reference. That's exactly what strict 'refs' tries to stop. I would just create a hash that has 'test' as a key and 'success' as a value. Easy enough, huh?

------
/me wants to be the brightest bulb in the chandelier!

Vote paco for President!

[Graham]

#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
{
    no strict 'refs';
    print "$$i\n";
}

should do what you're after

UPDATE: Beaten to it by bwana147. Must type faster...

UPDATE: and correctly as Hofmator rightly points out,symbolic references will not work for lexical variables.