Lecture d'une autre table de symboles de paquets en Perl

Question

J'essaie de lire un symbole global d'un autre paquet. J'ai le nom du paquet sous forme de chaîne. J'utilise qualify_to_ref de Symbol Module

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

me donne Not an ARRAY reference at ...... Je suppose que je reçois le format du déréférencement mal.

Voici un exemple de programme complet.

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

La fonction qualify_to_ref renvoie une référence typeglob, que vous pouvez de référence comme celui-ci:

my @array = @{*$ref}; 

La syntaxe typeglob déréférencement est documentée here.

Answer 2

Vous devez déréférencer: @ $$ ref au lieu de @ $ ref

Answer 3

Vous pouvez aussi le faire sans utiliser un module externe, tel que discuté dans perldoc perlmod sous la rubrique "Tableaux" Symbole:

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"; 

Cependant, que ce soit une bonne idée dépend du contexte de votre programme. Généralement, il serait préférable d'utiliser une méthode accesseur pour obtenir les valeurs de Mypackage ou exporter la variable vers votre espace de noms avec Exporter.

Answer 4

A côté de la manière que FM a déjà noté, vous pouvez accéder à certaines parties d'un typeglob à travers son interface comme hachage:

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

Cela peut être pratique pour obtenir les pièces, telles que les IO parties , qui n'ont pas de sceau. J'ai un chapitre sur ce genre de choses en Mastering Perl.