Comment puis-je déterminer le type d'un bienheureux de référence en Perl?

En Perl, un objet est une référence à l'une de base de Perl, les types de données qui a été béni d'une classe donnée. Lorsque vous utilisez le ref() fonctionnent sur un sans être bénis de référence, on vous dit quel type de données de points de référence. Toutefois, lorsque vous appelez ref() sur un béni de référence, vous obtenez le nom du package de référence a été béni dans.

Je veux bien le type sous-jacent de la bienheureuse référence. Comment puis-je savoir cela?

InformationsquelleAutor Ryan Olson | 2008-08-14
  1. 20

    Scalar::Util::reftype() est la solution la plus propre. Le Scalar::Util module a été ajouté à la Perl de base dans la version 5.7, mais est disponible pour les versions plus anciennes (5.004 ou plus) à partir de CPAN.

    Vous pouvez également sonde avec UNIVERSAL::isa():

    $x->isa('HASH')             # if $x is known to be an object
UNIVERSAL::isa($x, 'HASH')  # if $x might not be an object or reference

    Évidemment, vous pouvez également vérifier la ARRAY et SCALAR types. Le module UNIVERSEL (qui sert de classe de base pour tous les objets) a été l'une des principales depuis Perl 5.003.

    Une autre façon -- facile, mais un peu sale -- est-à-stringify la référence. En supposant que la classe n'a pas surchargé stringification vous allez obtenir quelque chose ressemblant à Class=HASH(0x1234ABCD), que vous pouvez analyser pour en extraire les données sous-jacentes type:

    my $type = ($object =~ /=(.+)\(0x[0-9a-f]+\)$/i);
    • Vous voulez juste eval { $x->isa($type) }; Si ce n'est pas un objet, vous obtenez de retour faux. Si c'est pas le bon type, vous obtenez un faux, et si c'est le bon type, vous bénéficiez d'une véritable. 🙂
    InformationsquelleAutor Michael Carman
  2. 6

    Vous ne devriez probablement pas le faire. Le type sous-jacent d'un objet est un détail d'implémentation, vous ne devriez pas jouer avec. Pourquoi voudriez-vous savoir cela?

    • D'accord, et je savais que quelqu'un allait faire ce commentaire. Je n'ai vraiment besoin de ce alors essayer de comprendre une structure un module a été créer afin que je puisse modifier le module. J'ai voulu supprimer une clé de tout hachages dans la structure, car ils contiennent un raw JPEG.
    • Plus tard, j'ai découvert que je pouvais utiliser Data::Dumper::sortkeys de filtrer ces données de sorte Data::Dumper ne produisent pas de méga-octets de sortie binaire.
    InformationsquelleAutor Leon Timmermans
  3. 2

    Et ma première réflexion a été: "les Objets en Perl sont toujours de hachage refs, de sorte que le hack?"

    Mais, Scalar::Util::reftype est la réponse. Merci de mettre la question ici.

    Voici un extrait de code pour le prouver.. (dans le cas où il est de toute utilisation de n'importe qui).

    $> perl -e 'use strict; utilisez les mises en garde "tous"; 
my $x = [1]; bless ($x, "ABC::Def"); 
utiliser Data::Dumper; print Dumper $x; 
imprimer ref($x) . "\n"; 
utilisation Scalar::Util "reftype"; print reftype($x) . "\n""

    De sortie:

    $VAR1 = bénir( [ 
1 
], "ABC::Def' ); 
ABC::Def 
TABLEAU
    • Les objets sont souvent mis en œuvre en tant que de hachage références, mais ce n'est pas une exigence. Un objet peut être n'importe quel type de référence.
    InformationsquelleAutor Jagmal