Uso do CPAN (Comprehensive Perl Archive Network)

Saiba como usar o CPAN.

Sobre esta tarefa

Para adicionar um módulo Perl do CPAN, você deve executar o comando nzcpan e, em seguida, instalar o módulo usando os comandos do aplicativo CPAN. Quando você instalou os pacotes de análise Netezza, configure o CPAN para hosts e SPU e instale um módulo para testar.

Procedimento

Em uma linha de comando, execute ' nzcpan host.
Se você nunca executou o comando antes, aceite os padrões escolhidos pelo comando.
```
[nz@host]$ nzcpan host
```
Emita o seguinte comando no prompt ' cpan.
```
install String::Util
```
Aguarde até que o comando seja concluído.
Execute " nzcpan spu na linha de comando.
Se você nunca executou o comando antes, aceite os padrões escolhidos pelo comando.
```
[nz@host]$ nzcpan spu
```
Emita o seguinte comando no prompt ' cpan.
```
force install String::Util
```
Nesse caso, você deve usar ' force porque os recursos do CPAN são compartilhados (embora os caminhos para o Perl sejam diferentes).

Quando as instalações forem concluídas, saia do ' nzcpan e crie o seguinte AE.

#########################################################################
package Unquote;
use nzae::Ae;
use strict;
use String::Util ':all';
use autodie;
our @ISA = qw(nzae::Ae);
my $ae = Unquote->new();
$ae->run();
sub _getFunctionResult(@)
{
my $self = shift;
# BREAK APART OUR ROW OF INPUT.
my $str = $_[0];
return unquote($str);
}
1;
#########################################################################

Compile e registre o programa usando o seguinte.

commands:/nz/export/ae/utilities/bin/compile_ae --language perl --version 3
--template deploy Unquote.pm
/nz/export/ae/utilities/bin/register_ae --language perl --version 3 --template
udf --exe Unquote.pm --sig "unquote(varchar(10000))" --return "varchar(10000)"
--level 4

Testar a instalação.

[nz@host]$ nzsql

Exemplo:

[nz@host]$ nzsql
Welcome to nzsql, the IBM Netezza SQL interactive terminal.
Type: \h for help with SQL commands
? for help on internal slash commands
\g or terminate with semicolon to execute query
\q to quit
SYSTEM(ADMIN)=> select unquote('"hello"');
UNQUOTE
hello
(1 row)