typglob problem

[vinoth.ree]

 use strict;
use warnings;

my $cure = "cure";
my @cure = ('one', 'two', 'three');

&cure(*cure);

sub cure {
    my $new = shift;
    print $$new;
}

Why this code does not print anything ?

[almut]

There are no typeglobs for lexical (my) variables. Try our instead.

[ikegami]

Globs are symbol table entries, and only package variables are in the symbol table. Lexical (my) variables are not in the symbol table.

But there's no reason for you to be using globs anyway.

use strict;
use warnings;

my $cure = "cure";
my @cure = ('one', 'two', 'three');

cure(\$cure);

sub cure {
    my $new = shift;
    print $$new;
}

perlref, perlreftut

[nagalenoj]

Dear Monk, Try the below,

 use strict;
 use warnings;

 our $cure = "cure";
 our @cure = ('one', 'two', 'three');

 &cure(*cure);

 sub cure {
         my $new = shift;
         print "$$new";
         print "@$new";
 }

I hope, you would have understood by seeing the code. Yes, ofcourse my variables won't available in symbol table.

Also, read the Variables and Scoping tutorials for more.

[tilly]

While others have pointed you towards a solution, I'm going to very, very strongly suggest that you avoid using symbolic references. Read this article and follow the links to follow-ups 2 and 3.

Instead of that approach go read references quick reference and use real references instead.

[ikegami]

Noone used or suggested using symbolic references. I wouldn't advise using globs either, though.

[tilly]

Oops, I just looked at the $$new and didn't look at the calling code.

But the problems raised are similar.

[Anonymous Monk]

It prints

Use of uninitialized value in print at - line 11.

which is a clue that ${*cure} is undefined