Comment débrider un objet en Perl ?

Question

De perldoc -f bless :

bless REF,CLASSNAME

Cette fonction indique à la chose référencée par REF qu'il est maintenant
un objet dans le CLASSNAME l'emballage.

Existe-t-il un moyen d'obtenir une structure non bénite sans faire de copies inutiles ?

Answer 1

Data::Structure::Util

unbless($ref)

Retirer la bénédiction de tous les objets trouvés dans la structure de données transmise.

#!/usr/bin/perl

use strict; use warnings;

use Scalar::Util qw( refaddr );
use Data::Structure::Util qw( unbless );

my $x = bless { a => 1, b => 2 } => 'My';

printf "%s : %s\n", ref $x, refaddr $x;

unbless $x;

printf "%s : %s\n", ref $x, refaddr $x;

Sortie :

My : 237356
HASH : 237356

Answer 2

Data::Structure::Util dispose d'un unbless qui le fera pour vous. Comme le souligne Erik, JSON::XS n'accepte normalement pas les références bénies (même si j'aimerais qu'il l'ignore et qu'il s'occupe de la structure de données). Il n'y a pas de moyen de contourner ce problème dans ce cas.

Mais réfléchissez à la raison pour laquelle vous pensez qu'il est nécessaire de le débloquer. Faites-vous cela pour l'une de vos propres classes ou pour une classe différente ? Cela ressemble étrangement à la mauvaise chose à faire. Il y a peut-être une meilleure solution.

Vous avez le même problème que la rupture de l'encapsulation car vous devez supposer que vous connaissez la structure interne de la référence. Si vous faites cela, vous pouvez simplement ignorer l'aspect orienté objet et accéder directement à la structure.

Si vous comptez le faire dans votre propre classe, envisagez de fournir une méthode permettant de renvoyer une structure de données (qui ne doit pas nécessairement être la structure d'origine) au lieu de modifier l'objet.

Vous mentionnez dans un commentaire de suivi que vous pourriez faire cela pour contourner certains comportements de Template Toolkit. J'ai fait face à cette situation de deux manières différentes, en fonction de la situation :

• Ne transmettez au modèle que les données dont vous avez besoin plutôt que l'objet entier.
• Ajoutez des méthodes à l'objet pour obtenir les données que vous souhaitez dans le modèle.

Perl est DWIM, mais TT est encore plus DWIM, ce qui est parfois regrettable.

---

Voici une petite astuce qui consiste à définir un fichier TO_JSON en UNIVERSAL et s'applique donc à tous les objets. Elle effectue une copie profonde, la débride et renvoie la structure de données.

#!perl
use v5.10;

sub UNIVERSAL::TO_JSON {
    my( $self ) = shift;

    use Storable qw(dclone);
    use Data::Structure::Util qw(unbless);

    my $clone = unbless( dclone( $self ) );

    $clone;
    }

my $data = bless {
    foo => bless( [], 'Local::Array' ),
    quack => bless( {
        map { $_ => bless [$_, $_**2], 'Local::Array' } 
            grep { is_prime } 1 .. 10
        }, 'Local::Hash' ),
    }, 'Local::Hash';

use JSON::XS;
my $jsonner = JSON::XS->new->pretty->convert_blessed(1);
say $jsonner->encode( $data );

Answer 3

Si vous savez par quoi votre objet est soutenu, vous pouvez le faire sans utiliser de paquets.

Hachures

$obj = bless {}, 'Obj';
print ref $obj, "\n";
$obj = { %$obj };
print ref $obj, "\n";

Tableau

$obj = bless [], 'Obj';
print ref $obj , "\n";
$obj = [ @$obj ];
print ref $obj, "\n";

Scalaire

$obj = bless \$a, "Obj";
print ref $obj, "\n";
$obj = \${ $$obj };
print ref $obj, "\n";

Answer 4

Acme::Malédiction :)

Mise à jour : Merci, Ivan ! J'ai confondu les modules. En fait, je voulais donner un lien vers Acme::Damn :))

P. S. Voir aussi Acme::Sneeze :)

P. P. S. Il n'a pas d'utilité réelle, c'est pourquoi il est Acme:: . Voir l'article de Brian.

Answer 5

my $x = {}

bless $x, __PACKAGE__

# stripping the blessing
$x = lc $x;

un jeu d'enfant ;-)