can't create symbolic references

[mike]

Can anyone tell me why the following script gives an error message stating
'use of uninitialized value in concatenation or string at line 20'?:

#!/usr/bin/perl -wT
#This is a.cgi, called by woxYNzucw.cgi
use strict;
no strict "refs";
use CGI::Carp qw(fatalsToBrowser);
use CGI qwstandard -no_xhtml);
use diagnostics;
my $co = new CGI;
print $co->header;
my @atoms = qw ();
print $co->start_html(-title=>'ref');
my $var=5;
my $refv=\$var;
print $co->h2("var = $var; dereferenced hard ref = $$refv");
my $varr=6;
my $varref="varr";
my $vv=$$varref;
print $co->h2("dereferenced varr is $vv");

With output:
var = 5; dereferenced hard ref = 5
dereferenced varr is

Thank you for any help. (I'm not sure why the color change)

 

[Matt Garrish]

Can anyone tell me why the following script gives an error message stating
'use of uninitialized value in concatenation or string at line 20'?:

There aren't twenty lines in the code you posted.

#!/usr/bin/perl -wT
#This is a.cgi, called by woxYNzucw.cgi
use strict;
no strict "refs";
use CGI::Carp qw(fatalsToBrowser);
use CGI qwstandard -no_xhtml);
use diagnostics;
my $co = new CGI;
print $co->header;
my @atoms = qw ();
print $co->start_html(-title=>'ref');
my $var=5;
my $refv=\$var;
print $co->h2("var = $var; dereferenced hard ref = $$refv");
my $varr=6;
my $varref="varr";
my $vv=$$varref;
print $co->h2("dereferenced varr is $vv");

With output:
var = 5; dereferenced hard ref = 5
dereferenced varr is

You can't use symbolic references with lexically scoped variables (see the
"Symbolic references" section in perlref).

Why do you need them, though? As said many times in the past, a hash is
almost always a better option to symrefs.

Matt