Fonction scalaire en langage Perl

1. Nommez la classe d'exemple à l'aide de la commande Perl package :

   package ApplyOp;

2. Importez le paquetage " nzae::Ae et définissez la classe exemple comme une classe enfant de la classe " nzae::Ae.

   use nzae::Ae;
   our @ISA = qw(nzae::Ae);

3. Définir la classe. Comme dans les exemples Python, la classe de base se charge de la majeure partie du travail. En règle générale, la méthode " new() est appelée pour initialiser la classe, puis la méthode " run() est appelée. La méthode " run() appelle la fonction dérivée appropriée. Pour les AE basés sur l'UDF comme celui-ci, la fonction " _getFunctionResult() doit être remplacée, car elle est appelée par défaut une fois pour chaque ligne d'entrée :

   package ApplyOp;
   use strict;
   use autodie;
   use nzae::Ae;
   our @ISA = qw(nzae::Ae);
   my $ae = ApplyOp->new();
   $ae->run();
   sub _getFunctionResult(@)
   {
   #User defined function code goes here
   }
   1;

4. Ajouter le code Perl personnalisé. Dans cet UDF, un opérateur de chaîne est transmis, qui est soit un signe plus (+) pour ajouter, soit un astérisque (*) pour multiplier, et deux nombres entiers. Le code renvoie soit le produit, soit la somme des nombres entiers. En SQL, une version simple de cette fonction peut être appelée par l'une ou l'autre des méthodes suivantes :

   SELECT applyopPl('+', 3, 5);

   ou

   SELECT applyopPl('*', 3, 5);

   Alors que l'exemple mentionné ne comporte qu'une seule entrée, le système NPS traite des flux d'entrées. Par conséquent, le système NPS est plus susceptible d'être utilisé :

   SELECT applyopPl(mytable.operator, mytable.value1, mytable.value2) FROM mytable;

   Dans le premier exemple, le système NPS prend les constantes "+", 3 et 5 et les transforme en un flux de longueur 1 contenant trois éléments. Une ligne est "vue" par " getFunctionResult() avec les trois éléments qu'elle contient. En outre, comme dans la convention Perl, l'objet appelant est transmis en tant que premier argument de la fonction. La fonction reprend cette information en utilisant la variable " $self. En interne, tous les cas mentionnés sont traités de la même manière et l'on peut supposer qu'il y a plusieurs entrées dans l'AE " applyop

5. Saisir un code personnalisé pour gérer une ligne d'entrée, car la gestion de la boucle d'entrée est nécessaire pour transmettre une ligne à la fonction à la fois :

   package ApplyOp;
   use nzae::Ae;
   use strict;
   use autodie;
   our @ISA = qw(nzae::Ae);
   my $ae = ApplyOp->new();
   $ae->run();
   sub _getFunctionResult(@)
   {
   my $self = shift;
   # BREAK APART OUR ROW OF INPUT.
   my ($operator, $leftInput, $rightInput) = @_;
   # HANDLE ADDITION.
   if ($operator eq "+")
   {
   return $leftInput + $rightInput;
   }
   # HANDLE MULTIPLICATION.
   if ($operator eq "*")
   {
   return $leftInput * $rightInput;
   }
   # ERROR ON ALL OTHER.
   croak(nzae::Exceptions::AeInternalError->new("Unhandled operator to ApplyOp: '" .
   $operator . "'."));
   }
   1;

   La fonction " croak signale l'erreur à l'utilisateur SQL et, si la journalisation est activée, renvoie une trace jusqu'à la ligne d'erreur.

   Vous pouvez utiliser la fonction " cluck à la place de " croak pour écrire des avertissements dans le fichier journal. Pour rattraper automatiquement toute exception non gérée, utilisez " autodie. Die et 'warn peuvent également être utilisés pour signaler une erreur ou un avertissement sur une seule ligne, si la journalisation est activée. Die interrompt l'exécution de l'AE. Définissez le niveau d'enregistrement en utilisant l'option '--level lors de l'enregistrement. Ce qui est renvoyé par " _getFunctionResult() est le résultat de l'opération SQL, et comme il s'agit d'un UDF, le résultat ne peut comporter qu'une seule colonne.

   En résumé, pour écrire un UDF en ajoutant uniquement la fonctionnalité réelle sans personnaliser les méthodes d'exécution, suivez les étapes suivantes :

   1. Créez un fichier module Perl (ApplyOp.pm dans l'exemple cité).
   2. Importez et instanciez la classe " nzae::Ae dans le fichier.
   3. Importer " autodie pour gérer les exceptions non gérées pendant l'exécution.
   4. Remplacer " _getFunctionResult pour mettre en œuvre une fonctionnalité personnalisée pour l'UDF. Traiter les erreurs à renvoyer à l'utilisateur en utilisant la méthode " croak()
   5. Exécute la méthode " run() de l'objet " nzae::Ae.
   6. Comme il s'agit d'un module Perl, ajoutez un "1" à la fin du fichier " ApplyOp.pm.

   Lorsque le code est complet, il doit être déployé et enregistré.

Les AE Perl ne nécessitent pas de compilation.