[Salvador-pm] Erro ODBC DB2 Perl

[breno]

Qual o encoding do seu terminal? Aparece assim em utf-8? E em latin1?

On Fri, Aug 21, 2015 at 7:01 PM Allisson Andrade Lima <
allissonlima1 em gmail.com> wrote:

> Ele aparece exatamente assim.
>
> Em 21 de agosto de 2015 18:57, breno <breno em rio.pm.org> escreveu:
>
>> Esse "▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒" é legível pra vc de alguma forma?
>>
>> On Fri, Aug 21, 2015 at 12:18 AM Allisson Andrade Lima <
>> allissonlima1 em gmail.com> wrote:
>>
>>> Breno, Boa Noite!
>>>
>>> Segue código abaixo:
>>>
>>> --------8<--------
>>>
>>> #!/usr/bin/perl
>>> use strict;
>>> use warnings;
>>> use 5.010;
>>> use DBI;
>>> use DBD::ODBC;
>>>
>>> my $databaseTcf = 'Coop_tcf';
>>> my $usr = 'usr111';
>>> my $pwd = '123';
>>>
>>> my $dbi = "dbi:ODBC:DSN=$databaseTcf";
>>>
>>> my $sqlTcf = "call COOPCONS.SPU_CLI_TIPOEMPRESA";
>>>
>>> my $dbConDb2 = DBI->connect("$dbi","$usr","$pwd") or die "Erro na
>>> Conexao:" . $DBI::errstr . "\n";
>>>
>>> my $dbResultDb2 = $dbConDb2->prepare($sqlTcf) or warn "Erro Prepare:
>>> $DBI::errstr\n";
>>> $dbResultDb2->execute;
>>> my $tCampos = $dbResultDb2->{NUM_OF_FIELDS};
>>>
>>> print $tCampos;
>>>
>>> --------->8-------------
>>>
>>> O erro apresentado é exatamente o que segue:
>>>
>>> DBI connect('DSN=Coop_tcf','usr111',...) failed: ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
>>> (SQL-) at ./teste2.pl line 16.
>>> Erro na Conexao:▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ (SQL-)
>>>
>>> Em 20 de agosto de 2015 19:52, breno <breno em rio.pm.org> escreveu:
>>>
>>>> Oi Allisson,
>>>>
>>>> pode compartilhar o código que está usando para testar? Imagino que
>>>> seja algo como:
>>>>
>>>> --------8<--------
>>>> use strict;
>>>> use warnings;
>>>> use DBI;
>>>> use DBD::DB2::Constants;
>>>> use DBD::DB2;
>>>>
>>>> $dbh = DBI->connect("dbi:DB2:db_name", $username, $password)
>>>>     or die $DBI::errstr;
>>>>
>>>> if ($dbh->{Active}) {
>>>>     print "conectado!\n";
>>>> } else {
>>>>     print "desconectado\n";
>>>> }
>>>> --------->8-------------
>>>>
>>>> Qual a mensagem de erro?
>>>>
>>>> []s
>>>>
>>>> -b
>>>>
>>>> On Thu, Aug 20, 2015 at 5:07 PM Allisson Andrade Lima <
>>>> allissonlima1 em gmail.com> wrote:
>>>>
>>>>> Caros Colegas,
>>>>>
>>>>> Estou enfrentando um problema ao conectar a um banco DB2 via ODBC,
>>>>> onde me retorna o erro abaixo:
>>>>>
>>>>> [image: image.png]
>>>>>
>>>>> Já tentei diversas coisas como codificação, módulos do Perl, versão...
>>>>> Pelo comando isql funciona normalmente.
>>>>>
>>>>> Peço  a ajuda de vocês neste caso.
>>>>>
>>>>> Atenciosamente,
>>>>>
>>>>> Allisson Lima
>>>>> _______________________________________________
>>>>> Salvador-pm mailing list
>>>>> Salvador-pm em pm.org
>>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>>
>>>>
>>>> _______________________________________________
>>>> Salvador-pm mailing list
>>>> Salvador-pm em pm.org
>>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>>
>>>>
>>> _______________________________________________
>>> Salvador-pm mailing list
>>> Salvador-pm em pm.org
>>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>>
>>
>> _______________________________________________
>> Salvador-pm mailing list
>> Salvador-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/salvador-pm
>>
>>
> _______________________________________________
> Salvador-pm mailing list
> Salvador-pm em pm.org
> http://mail.pm.org/mailman/listinfo/salvador-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/3e21fd71/attachment.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 3274 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/3e21fd71/attachment.png>