Perl simulierte Zeilenfunktion

In diesem Beispiel wird der folgende Dateiname verwendet: ' TimeSplit.pm

Code erstellen

package TimeSplit;
use nzae::Ae;
use strict;
use autodie;
our @ISA = qw(nzae::Ae);
my $ae = TimeSplit->new();
$ae->run();
sub _getFunctionResult(@)
{
my $self = shift;
my @currentTime = @_;
my @time = split(/:/, $currentTime[0]);
return (@time);
}
1;

Bereitstellung

Setzen Sie das Skript ein:

$NZ_EXPORT_DIR/ae/utilities/bin/compile_ae --language perl --version 3 \
--template deploy TimeSplit.pm

Registrierung

Da es kein eingebautes Konzept einer Zeilenfunktion in Netezza SQL gibt - obwohl es eines in der Perl gibt - wird diese Funktion als Tabellenfunktion registriert, obwohl sie nur eine Zeile pro Eingabezeile ausgibt:

$NZ_EXPORT_DIR/ae/utilities/bin/register_ae --language perl --version 3 \
--template udtf --exe TimeSplit.pm --sig "time_split(varchar(20))" \
--return "table(hour varchar(2), minute varchar(2), second varchar(2))"

Aktiv

Führen Sie die Abfrage in nzsql aus:

SELECT * FROM TABLE WITH FINAL(time_split('13:22:47'));
HOUR | MINUTE | SECOND
-----------+--------------+--------
13 | 22 | 47