[Salvador-pm] Erro ODBC DB2 Perl

[Allisson Andrade Lima]

Independente do encoding do terminal... eu teste com utf8 e latin1,
entretanto quando coloco no Perl "use utf8" ele retorna o seguinte:

[image: Imagem inline 1]

Em 21 de agosto de 2015 19:03, breno <breno em rio.pm.org> escreveu:

> 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
>>
>
> _______________________________________________
> 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/66b9928b/attachment-0001.html>
-------------- Próxima Parte ----------
Um anexo não-texto foi limpo...
Nome: image.png
Tipo: image/png
Tamanho: 2732 bytes
Descrição: não disponível
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20150821/66b9928b/attachment-0002.png>
-------------- 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/66b9928b/attachment-0003.png>