Discussion :

[astrotouf]

Salut à tous. Voila j'ai trouvé un code que je n'arrive pas à comprendre. ça concerne les références symboliques :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

*{$name}  = sub { $class->new(@_) };

sachant que $name contient le nom d'une classe.
voila en faite je ne comprends pas les acolades qui entourent le $name.
Si vous pouviez m'expliquer ou m'orienter vers un texte à lire ça serait gentil.
merci d'avance.

[Schmorgluck]

Ben, perso, ce ne sont pas les accolades qui me troublent, elle m'ont l'air typiquement utilisées pour empêcher une ambiguité dans une opération de type déréférencement, ou quelque chose du genre. Non, moi, ce qui me rend perplexe, c'est cette étoile devant. Je ne vois pas du tout à quoi elle correspond, et comme il est strictement impossible de trouver de la doc à ce sujet sur le net, ça m'intéresserait d'en savoir plus.

[astrotouf]

le signe * sert a définir le type typeglob.
c'est une sorte de conteneur qui permet d'accueillir plusieurs types de variables en même temps. ce type n'est pas très utilise de nos jours car les références sont plus puissantes.

[Jedai]

Le typeglob sert surtout à gérer les espaces de noms et à réaliser des aliasing, ici il s'agit probablement d'une opération d'importation de module, dans lequel on crée un constructeur du nom de la classe qu'il construit. C'est de la magie noire en bref, normalement vous devriez laissez Exporter s'occuper de tout ça, mais pour certains modules qui veulent achever des effets particulier quand on les importe, une fonction import() spécialisée doit être créée.

Pour comprendre vraiment ce qui se passe, je vous recommande la lecture de perlmod (mais vous pouvez sans doute vous en passer).

--
Jedaï

[astrotouf]

est ce que je pourrai remplacer le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

*{$class}

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

*$class

?
sachant que $class est une référence symbolique.

[Jedai]

Oui.

--
Jedaï

[astrotouf]

merci Jedai ! Tu me sauves la mise encore une fois

[astrotouf]

une autre question concernant ce code :
est ce que la méthode new est invoquée?
non parce que j'ai pas bien compris son utilité.

[Jedai]

Non, new() n'est pas invoquée, le sub {} crée une fonction anonyme. Ce que ce code fait, c'est créer un méthode du nom de la classe qui crée un objet de la classe.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$class = 'CGI';
$name = 'CGI';
*{$name}  = sub { $class->new(@_) };
 
my $cgi_object = CGI();

--
Jedaï

[astrotouf]

si j'ai bien compris cela va aller ajouter une entrée dans la table des symboles de ce package qui permettra d'appeler la méthode new rien qu'en écrivant CGI?