Reading another package symbol table in Perl

Question

I am trying to read a global character from another package. I have a package name as a string. I use qualify_to_reffrom Symbolmodule

    my $ref  = qualify_to_ref ( 'myarray', 'Mypackage' ) ;
    my @array =  @$ref ;

gives me I Not an ARRAY reference at ......guess the wrong dereferencing format is wrong.

Here is a complete sample program.

    use strict;
    use Symbol ;

    package Mypackage ;
    our @myarray = qw/a b/ ;

    package main ;

    my $ref  = qualify_to_ref ( 'myarray', 'Mypackage' ) ;
    my @array =  @$ref ;

Answer 1

The function qualify_to_refreturns a reference to the type glob, which you can disable, for example:

my @array =  @{*$ref};

The glob dereferencing syntax is documented here .

Answer 2

, , perldoc perlmod " ":

package Mypackage;
use strict;
use warnings;
our @myarray = qw/a b/;

package main;

our @array;
*array = \@Mypackage::myarray;
print "array from Mypackage is @array\n";

, , . , Mypackage Exporter.

Answer 3

, FM , glob -:

my $array =  *{$ref}{ARRAY};

, IO, . Perl.

Answer 4

: @$$ ref @$ref