Rodrigo Almeida Segunda-feira, 16 de setembro de 2002

Oracle vs Perl

Olá !

Nesta e nas próximas colunas iremos falar sobre a comunicação do Oracle com diversas tecnologias que utiliza banco de dados. Agora iniciaremos a integração do Oracle com o Perl.

		Código
		Comentários

use DBI;

##Parametros
$doDebug = 0;
$| = 1;

##Tipo de Variável no Oracle
$LONG_RAW_TYPE=24;

##Enviando Argumentos
( $connectString) = @ARGV;

##String Comunicação
($tmp, $dbName) = split(/@/, $connectString);
($dbUser, $dbPasswd) = split(///, $tmp);
$doDebug && print "user/passwd@db = $dbUser/$dbPasswd@$dbName ";

##Conectando o Banco de Dados
$dataSource = "dbi:Oracle:${dbName}"; # interface:driver:db_name
$doDebug && print "dataSource = $dataSource";
$db = DBI->connect($dataSource, $dbUser, $dbPasswd);
$db || die "Error connecting to db: $DBI::errstr ";

$attrib{'ora_type'} = $LONG_RAW_TYPE;

Pronto, com este código acima conseguimos abrir conexão com o banco de dados pelo PERL, agora basta você saber programar em PERL e criar seus próprios códigos.

Na Próxima coluna, irei explicar a conectar o Oracle 9i com o Delphi 6.0.

Se você quiser saber como abrir conexão do Oracle com a tecnologia ASP basta você acessar este endereço. Clique Aqui.

Um abraço!