Comment puis-je obtenir un travail Data :: Alias ​​en Perl 5.12?

Question

J'aime Data::Alias. Il semble être cassé en 5.12. Peut-il être réparé? Sera-t-il réparé bientôt? Y a-t-il une bonne alternative?

Answer 1

Toute version de Data::Alias construite avant la version 1.08 (publiée le 22 octobre 2010 BST) ne fonctionnera pas avec Perl 5.12 car Data::Alias avant que 1.08 soit interrompu dans Perl 5.12. Mettez à niveau vers la dernière version (1.08 ou plus récente) et cela devrait fonctionner! Comme une note intéressante, il semble que l'on puisse faire des alias à Perl en tant que fonctionnalité de langue dans le futur, avec le nettoyage de :=no longer meaning an empty attribute list. Hâte d'y! :)

Answer 2

Le module n'a pas été mis à jour depuis 2007 mais vous pouvez toujours envoyer un message à l'auteur (Matthijs van Duin: xmath@cpan.org) ou déposer un rapport de bug comme Robert l'a mentionné dans sa réponse.

Voici quelques alternatives:

• En ce qui concerne les modules CPAN supplémentaires pour aliasing qui travaillent dans 5.12+:

  • Variable::Alias - syntaxe propre
  • Tie::Alias - une solution perl pur
  • Lexical::Alias - syntaxe propre
  • Devel::LexAlias - un peu plus bas niveau

  et la recherche de « alias » sur CPAN tourne un peu plus, aucun ne semble fournir le « tout faire avec des alias dans cette déclaration » caractéristique de données :: Alias ​​si . Donc, jusqu'à ce que Data::Alias soit fixé, vous pouvez utiliser l'une des méthodes Perl ci-dessus, ou les suivantes:

• Perl a pris en charge l'aliasing de toute variable aux variables qui existent dans la table de symboles. Cela se fait comme suit:

  my $x = 1; 
  our $y; # declare $y in the symbol table for the current package 
  { 
      local *y = \$x; # make $y an alias of $x in the current scope 
      $y++; 
  } 
  print $x; # prints 2 
  

  Mais comme toujours, soyez conscient de ce que la portée dynamique/local fait réellement avant de l'utiliser.

• On peut utiliser un scalaire lexical comme un alias dans le cadre d'une boucle for:

  my $x = 1; 
  for my $y ($x) { 
      $y++; 
  } 
  print $x; # prints 2 
  

  ce type d'alias lexical peut même être passé hors de la boucle dans une fermeture en cas de besoin

• vous pouvez créer des alias de tableau en utilisant la magie aliasing de Perl pour les listes d'arguments de sous-programme:

  my $x = 1; 
  my $alias = sub{\@_}->($x); # return a reference to its argument list, 
            # which maintains its aliases 
  $$alias[0]++; 
  print $x;  # prints 2 
  

  mais cela ne vous donne pas vraiment m fonctionnalité plus que des références, juste avec une syntaxe différente.

• Et un exemple en utilisant les références de Perl:

  my $x = 1; 
  my $y = \$x; # take a reference to $x 
  $$y++;  # dereference $y 
  print $x;  # prints 2 
  

Answer 3

Je viens de trouver une autre option possible: Scalar::Alias, qui semble fonctionner en Perl 5.12. Évidemment, il ne fait qu'aliaser les scalaires, mais il ne nécessite pas une grosse virgule à la place d'un signe égal.