Re: using strict refs

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";
}
[download]

Or use eval:

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

--bwana147

Comment on Re: using strict refs Select or Download Code

Replies are listed 'Best First'.
Re: Re: using strict refs by Hofmator (Curate) on Aug 28, 2001 at 18:02 UTC
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"; }` [download] -- Hofmator	[reply] [d/l]