Perl

Question sur le "use fields" pragma

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Question sur le "use fields" pragma

Yoyo@

Salut,

Je lisais un peu de doc Perl concernant la création d'objets, et plus particulièrement la possibilité d'avoir des "objets rapides, en utilisant des tableaux sous jacents, avec un "use fields"

Voici le code sous jacent issue de la doc perl:

Code :

{
package Foo;
use fields qw(foo bar _Foo_private);
sub new {
my Foo $self = shift;
unless (ref $self) {
$self = fields::new($self);
$self->{_Foo_private} = "this is Foo's secret";
}
$self->{foo} = 10;
$self->{bar} = 20;
return $self;
}
}

En fait, ma question concerna la ligne my Foo $self = shift;

Je voudrais comprendre ce que ça chandge de mettre un "my Foo $self" au mieu d'un "my $self". J'ai toujours vu cette dernière syntaxe... J'ai essayé d'enlever le Foo et j'ai exactement le même résultat... Ai-je raté une marche?

Ca vous dit quelque chose?

Publicité

pospos

tout d'abord le fait de recuperer self dans un new a pour but de pouvoir creer un objet à partir d'un autre, en faisant $obj->new() au lieu de CLASS->new. (d'ou le ref)
Perso je n'aime pas trop cette technique

Le second point propre à fields est le fait de typer ton objet à chaque fois (dans les methodes egalements) au moment du my. Ca n'est pas obligatoire, mais ca permet de profiter du gain de vitesse de fields: la hash table est en fait remplacée par une liste (pseudo hash, plus ou moins deprecated dans les versions actuelles de perl...)

Perso je te deconseil d'utiliser ce truc: le gain en vitesse est minim, il n'y a aucun gain en memoire, et la creation de l'objet est plus lente...

Le top du top à mon avis c'est d'utiliser le pragma enum::fields (sur CPAN). La tu a un vrai gain en vitesse et en memoire, aucune perte à la creation de l'objet (au contraire), et aucune besoin de typage pour enprofiter. Et tu a egalement l'encapsulation gratos.

Yoyo@

Salut,

Merci pour ta réponse.

Je suis assez débutant en Perl, et je dois travailler sur du code existant, donc, je vais éviter l'utilisation de pragmas "externes".

Donc, pour en revenir à ce que tu disais, il y aura une réelle différence entre un "my Foo $self = shift;" et un "my $self = shift;" dans la méthode new? Je n'arrive pas à comprendre comment, sachant que de toute manière, le shift récupère une string contenant le nom de la "classe"?

Sinon, j'ai un peu regardé ce qu'il se passait de manière interne et effectivement, un "objet" créé avec un fields correspond à un tableau dans le premier élement est un pseudo hash renvoyant sur les éléments du tableau suivant. Par contre, d'après ce que j'ai lu, les accès sont résolus à la compilation, donc, ça doit être plutôt rapide...

pospos

oui,etc'est pour ca que tu dois le typer: pour qu'il sache que c'est un objet field et qu'il utilise le pseudo hash

Yoyo@

Oui, mais quand je fais un $self = fields::new($self); dans mon new, même si je ne l'ai pas typée lors de la déclaration du my, il va bien savoir que c'est un objet fields, non?

Quel test pourrait me donner confirmation que ça apporte quelque chose?

pospos

oui, mais tu dois le retyper à chaque fois

pour tester tu peux faire un truc comme ca:

Code :

package Foo;
use Benchmark;
sub new {
....
}
sub m1 {
my Foo $self = shift;
for (1..100) {
$self->{foo}
}
}
sub m2 {
my $self = shift;
for (1..100) {
$self->{foo}
}
}
sub bench_it {
my Foo $self = shift;
my $iterations = shift || 1000;
timethese($iterations, {
avec_typage => sub{$self->m1},
sans_typage => sub{$self->m2},
});
}

FORUM HardWare.fr

Programmation

Perl

Question sur le "use fields" pragma

Sujets relatifs
[JavaScript] question très bête !!!	[résolu]Menus - Question de débutant
[VBS] question d'noub sur les variables tab	Afficher du code dans une page HTML : question de sémantique
tableaux 2d ...question de madame bellepaire de loche	Question existentielle
[Question simple HTML] plus d'espace entre les images	Question installation Mozilla Firefox svp
Une petite question sur une requete mysql. ;)	question sur les free ..
Plus de sujets relatifs à : Question sur le "use fields" pragma

Page générée en 0.059 secondes