From joenio em gmail.com  Tue Sep  9 09:51:40 2014
From: joenio em gmail.com (Joenio Costa)
Date: Tue, 9 Sep 2014 13:51:40 -0300
Subject: [Salvador-pm] Fwd: Problema
In-Reply-To: <CACE0rhoLhA1umhyfMpMaLLk5UvXV7+Mj3E0tMZnf1bHcOBFkDg@mail.gmail.com>
References: <CAGgMDS+JtP-iW-ckPDFvNYPOo78yjbnqfLWsye7VYDUMj0_Npg@mail.gmail.com>
	<CACE0rhq5ekue-DNdrbHTF31ekP0fRQcHXBK2gKUz7CG9hO5EYA@mail.gmail.com>
	<CAGgMDSLsz51Tefsj8JwbWzUgmrKcKu5xg6zUr318EzbYGfTJzA@mail.gmail.com>
	<CAGgMDSKo=kPVDgSxG+8J-+Ts_aZoTHnXu4ENNcT-FXKGYs++dg@mail.gmail.com>
	<CAGgMDS+Ke2ycwJ8VzZn7kzJ+eJogbpNZC9mRQ62ic55D_WvK0A@mail.gmail.com>
	<CACE0rhoLhA1umhyfMpMaLLk5UvXV7+Mj3E0tMZnf1bHcOBFkDg@mail.gmail.com>
Message-ID: <CAGVGKQyLvrkgO8HnFrnL_ZX=wHbtgpwyaAREE_gyTbvdqTj7sQ@mail.gmail.com>

Oi Allisson,

Conseguiu resolver o seu problema? Nos conta como você resolveu caso
afirmativo...

2014-08-29 22:32 GMT-03:00 Hernan Lopes <hernanlopes em gmail.com>:

> Alisson,
>
> Se esse erro acontece apenas nessa coluna, tenta definir um resultado nulo
> em outra coluna, e veja se ele aparece corretamente.
> Tenta executar o comando usando outra ferramenta e verifica se obtem o
> mesmo resultado.
> Verifica a procedure tambem.
>
> Assim é possível ter mais certeza que o problema não está do lado do banco
>
>
>
> 2014-08-28 11:02 GMT-03:00 Allisson Andrade Lima <allissonlima1 em gmail.com>
> :
>
> Hernan e Joenio,
>>
>> Executei o código com o Data::Printer e foi retornado o
>> valor "\0\0\0\0\0\0\0" na variável nos casos de campos NULL. Pelo menos já
>> é uma luz... hehehehe.
>>
>> Segue abaixo a subrotina em questão para que vocês possam dar uma olhada.
>> Ela ainda está crua, pois como emperrei nesse problema, fiquei
>> exclusivamente nele.
>>
>>
>>
>> sub insereMy {
>>         my ($procedure,$database,$table) = @_;
>>
>>         my ($coluna, $dado, $camposSql, $valuesSql, $querySql,
>> $querySqlTrunc, $i, @tipoCampos, @row, @result);
>>
>>         if(!defined($procedure) or !defined($database) or
>> !defined($table) or ($procedure eq "") or ($database eq "") or ($table eq
>> "")){
>>                 print "Favor informar todos os parâmetros!\n";
>>                 print "P1: PROCEDURE\n";
>>                 print "P2: BANCO DESTINO!\n";
>>                 print "P3: TABELA DESTINO!\n";
>>                 return 0;
>>
>>         }elsif(defined($procedure) or defined($database) or
>> defined($table)){
>>
>>                 &conexaoTcf("$procedure");
>>
>>                 $querySqlTrunc = "TRUNCATE TABLE $table;";
>>
>>                 &conexaoMysql("$database", "$table", "$querySqlTrunc");
>>
>>                 $camposSql = join ", ", @{$dbResultDb2->{NAME}};
>>
>>                 for($coluna = 0; $coluna < $tCampos; $coluna = $coluna +
>> 1){
>>                           $tipoCampos[$coluna] =
>> $dbResultDb2->{TYPE}->[$coluna];
>>                 }
>>
>>                 while(@row = $dbResultDb2->fetchrow_array) {
>>                         $valuesSql = "";
>>
>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>> $coluna + 1){
>>                                  print "Tamanho:
>> ".length($row[$coluna])."\n";
>>                                 p $row[$coluna];
>>
>>                                 if (!$row[$coluna]){
>>
>>                                         $dado = 'NULL';
>>
>>                                 }else{
>>
>>                                         if (($tipoCampos[$coluna] == 3 or
>> $tipoCampos[$coluna] == 6 or $tipoCampos[$coluna] == 7) and
>> (defined($row[$coluna]))){
>>
>>                                                 $dado = $row[$coluna];
>>                                                 $dado =~ s/[,]/./;
>>
>>                                         }else{
>>
>>                                                 $dado = $row[$coluna];
>>                                         }
>>                                         }
>>
>>                                 }
>>
>>                         $result[$coluna] = $dado;
>>
>>                         #print "Dado: ".$dado;
>>                         #print "\n";
>>                         #print "Row: ".$row[$coluna];
>>                         #print "\n";
>>
>>                         }#FIM FOR COLUNA
>>
>>
>>                         ###Monta valores para insert
>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>> $coluna + 1){
>>                                 $valuesSql =
>> $valuesSql.'"'.$result[$coluna].'",';
>>                         }
>>                         ###Retira a virgula do ultimo valor
>>                         $valuesSql =~ s/,+$//;
>>                          $querySql = "insert into $table ($camposSql)
>> values ($valuesSql);";
>>                         &conexaoMysql("$database", "$table", $querySql);
>>
>>                 }#FIM WHILE
>>
>>                 $dbResultDb2->finish();
>>         }#FIM ELSEIF
>> }#FIM SUBROTINA
>>
>>
>>
>> Em 27 de agosto de 2014 18:56, Hernan Lopes <hernanlopes em gmail.com>
>> escreveu:
>>
>> Alisson,
>>>
>>> Pode mostrar o código que você está usando ?
>>> Está usando DBIx::Class ?
>>> ou DBI puro ?
>>>
>>> de qualquer maneira, não sei se vc está usando mas caso não esteja pode
>>> tentar usar o Data::Printer pra debugar teu problema...
>>>
>>> perl -e 'use Data::Printer; my @bla = (qw|aa bb cc|); warn p @bla;'
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2014-08-27 18:15 GMT-03:00 Allisson Andrade Lima <
>>> allissonlima1 em gmail.com>:
>>>
>>>> Olá,
>>>>
>>>> Gostaria de compartilhar e tentar identificar a causa de um problema
>>>> que estou passando em um Script que estou escrevendo em Perl.
>>>>
>>>> Este Script realiza a execução de uma Stored Procedure em um banco DB2
>>>> e importa os dados para um banco Mysql. Realizo um fetcharray e vou
>>>> percorrendo linha a linha, tratando as colunas e adicionando em um array. O
>>>> problema é que caso haja um campo NULL no resultado eu não tenho um retorno
>>>> undef. A variável inicialmente não possui valor, mas caso eu faça um length
>>>> eu tenho um retorno com um valor acima de zero, logo ela também não fica
>>>> undef.
>>>>
>>>> Com esse problema eu não estou conseguindo tratar esses casos para
>>>> campos com valor nulo. Gostaria que alguém me ajudasse caso saibam o que
>>>> pode estar acontecendo.
>>>>
>>>> Fico feliz pela ajuda,
>>>>
>>>> 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
>
>


-- 
Joenio Costa
- Colivre - Cooperativa de Tecnologias Livres
- Perl Brasil - Comunidade Brasileira de Usuários Perl
- PSL-BA - Projeto Software Livre Bahia
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20140909/f1b07b8e/attachment.html>

From allissonlima1 em gmail.com  Tue Sep 23 20:35:20 2014
From: allissonlima1 em gmail.com (Allisson Andrade Lima)
Date: Wed, 24 Sep 2014 00:35:20 -0300
Subject: [Salvador-pm] Fwd: Problema
In-Reply-To: <CAGVGKQyLvrkgO8HnFrnL_ZX=wHbtgpwyaAREE_gyTbvdqTj7sQ@mail.gmail.com>
References: <CAGgMDS+JtP-iW-ckPDFvNYPOo78yjbnqfLWsye7VYDUMj0_Npg@mail.gmail.com>
	<CACE0rhq5ekue-DNdrbHTF31ekP0fRQcHXBK2gKUz7CG9hO5EYA@mail.gmail.com>
	<CAGgMDSLsz51Tefsj8JwbWzUgmrKcKu5xg6zUr318EzbYGfTJzA@mail.gmail.com>
	<CAGgMDSKo=kPVDgSxG+8J-+Ts_aZoTHnXu4ENNcT-FXKGYs++dg@mail.gmail.com>
	<CAGgMDS+Ke2ycwJ8VzZn7kzJ+eJogbpNZC9mRQ62ic55D_WvK0A@mail.gmail.com>
	<CACE0rhoLhA1umhyfMpMaLLk5UvXV7+Mj3E0tMZnf1bHcOBFkDg@mail.gmail.com>
	<CAGVGKQyLvrkgO8HnFrnL_ZX=wHbtgpwyaAREE_gyTbvdqTj7sQ@mail.gmail.com>
Message-ID: <CAGgMDSKRPToO2A=Br3uCjF6jWUAoDe3O0qMET=2QtPwn=9N5_A@mail.gmail.com>

Olá Pessoal,

Desculpem a demora na resposta, mas esses últimos dias estão complicados...

Consegui resolver com a ajuda do modulo Data::Printer. Com ele consegui
identificar que, nos casos de campos nulos, o Perl preenchia a variável com
"\0" de acordo com o tipo e tamanho.

Por exemplo, uma variável de um campo do banco do tipo varchar(50), o Perl
preenche com 50 "\0".

Ai eu fiz as regras de filtragem e pronto.

Gostaria de agradecer a todos pela ajuda!

Em 9 de setembro de 2014 13:51, Joenio Costa <joenio em gmail.com> escreveu:

> Oi Allisson,
>
> Conseguiu resolver o seu problema? Nos conta como você resolveu caso
> afirmativo...
>
> 2014-08-29 22:32 GMT-03:00 Hernan Lopes <hernanlopes em gmail.com>:
>
>> Alisson,
>>
>> Se esse erro acontece apenas nessa coluna, tenta definir um resultado
>> nulo em outra coluna, e veja se ele aparece corretamente.
>> Tenta executar o comando usando outra ferramenta e verifica se obtem o
>> mesmo resultado.
>> Verifica a procedure tambem.
>>
>> Assim é possível ter mais certeza que o problema não está do lado do banco
>>
>>
>>
>> 2014-08-28 11:02 GMT-03:00 Allisson Andrade Lima <allissonlima1 em gmail.com
>> >:
>>
>> Hernan e Joenio,
>>>
>>> Executei o código com o Data::Printer e foi retornado o
>>> valor "\0\0\0\0\0\0\0" na variável nos casos de campos NULL. Pelo menos já
>>> é uma luz... hehehehe.
>>>
>>> Segue abaixo a subrotina em questão para que vocês possam dar uma
>>> olhada. Ela ainda está crua, pois como emperrei nesse problema, fiquei
>>> exclusivamente nele.
>>>
>>>
>>>
>>> sub insereMy {
>>>         my ($procedure,$database,$table) = @_;
>>>
>>>         my ($coluna, $dado, $camposSql, $valuesSql, $querySql,
>>> $querySqlTrunc, $i, @tipoCampos, @row, @result);
>>>
>>>         if(!defined($procedure) or !defined($database) or
>>> !defined($table) or ($procedure eq "") or ($database eq "") or ($table eq
>>> "")){
>>>                 print "Favor informar todos os parâmetros!\n";
>>>                 print "P1: PROCEDURE\n";
>>>                 print "P2: BANCO DESTINO!\n";
>>>                 print "P3: TABELA DESTINO!\n";
>>>                 return 0;
>>>
>>>         }elsif(defined($procedure) or defined($database) or
>>> defined($table)){
>>>
>>>                 &conexaoTcf("$procedure");
>>>
>>>                 $querySqlTrunc = "TRUNCATE TABLE $table;";
>>>
>>>                 &conexaoMysql("$database", "$table", "$querySqlTrunc");
>>>
>>>                 $camposSql = join ", ", @{$dbResultDb2->{NAME}};
>>>
>>>                 for($coluna = 0; $coluna < $tCampos; $coluna = $coluna +
>>> 1){
>>>                           $tipoCampos[$coluna] =
>>> $dbResultDb2->{TYPE}->[$coluna];
>>>                 }
>>>
>>>                 while(@row = $dbResultDb2->fetchrow_array) {
>>>                         $valuesSql = "";
>>>
>>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>>> $coluna + 1){
>>>                                  print "Tamanho:
>>> ".length($row[$coluna])."\n";
>>>                                 p $row[$coluna];
>>>
>>>                                 if (!$row[$coluna]){
>>>
>>>                                         $dado = 'NULL';
>>>
>>>                                 }else{
>>>
>>>                                         if (($tipoCampos[$coluna] == 3
>>> or $tipoCampos[$coluna] == 6 or $tipoCampos[$coluna] == 7) and
>>> (defined($row[$coluna]))){
>>>
>>>                                                 $dado = $row[$coluna];
>>>                                                 $dado =~ s/[,]/./;
>>>
>>>                                         }else{
>>>
>>>                                                 $dado = $row[$coluna];
>>>                                         }
>>>                                         }
>>>
>>>                                 }
>>>
>>>                         $result[$coluna] = $dado;
>>>
>>>                         #print "Dado: ".$dado;
>>>                         #print "\n";
>>>                         #print "Row: ".$row[$coluna];
>>>                         #print "\n";
>>>
>>>                         }#FIM FOR COLUNA
>>>
>>>
>>>                         ###Monta valores para insert
>>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>>> $coluna + 1){
>>>                                 $valuesSql =
>>> $valuesSql.'"'.$result[$coluna].'",';
>>>                         }
>>>                         ###Retira a virgula do ultimo valor
>>>                         $valuesSql =~ s/,+$//;
>>>                          $querySql = "insert into $table ($camposSql)
>>> values ($valuesSql);";
>>>                         &conexaoMysql("$database", "$table", $querySql);
>>>
>>>                 }#FIM WHILE
>>>
>>>                 $dbResultDb2->finish();
>>>         }#FIM ELSEIF
>>> }#FIM SUBROTINA
>>>
>>>
>>>
>>> Em 27 de agosto de 2014 18:56, Hernan Lopes <hernanlopes em gmail.com>
>>> escreveu:
>>>
>>> Alisson,
>>>>
>>>> Pode mostrar o código que você está usando ?
>>>> Está usando DBIx::Class ?
>>>> ou DBI puro ?
>>>>
>>>> de qualquer maneira, não sei se vc está usando mas caso não esteja pode
>>>> tentar usar o Data::Printer pra debugar teu problema...
>>>>
>>>> perl -e 'use Data::Printer; my @bla = (qw|aa bb cc|); warn p @bla;'
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> 2014-08-27 18:15 GMT-03:00 Allisson Andrade Lima <
>>>> allissonlima1 em gmail.com>:
>>>>
>>>>> Olá,
>>>>>
>>>>> Gostaria de compartilhar e tentar identificar a causa de um problema
>>>>> que estou passando em um Script que estou escrevendo em Perl.
>>>>>
>>>>> Este Script realiza a execução de uma Stored Procedure em um banco DB2
>>>>> e importa os dados para um banco Mysql. Realizo um fetcharray e vou
>>>>> percorrendo linha a linha, tratando as colunas e adicionando em um array. O
>>>>> problema é que caso haja um campo NULL no resultado eu não tenho um retorno
>>>>> undef. A variável inicialmente não possui valor, mas caso eu faça um length
>>>>> eu tenho um retorno com um valor acima de zero, logo ela também não fica
>>>>> undef.
>>>>>
>>>>> Com esse problema eu não estou conseguindo tratar esses casos para
>>>>> campos com valor nulo. Gostaria que alguém me ajudasse caso saibam o que
>>>>> pode estar acontecendo.
>>>>>
>>>>> Fico feliz pela ajuda,
>>>>>
>>>>> 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
>>
>>
>
>
> --
> Joenio Costa
> - Colivre - Cooperativa de Tecnologias Livres
> - Perl Brasil - Comunidade Brasileira de Usuários Perl
> - PSL-BA - Projeto Software Livre Bahia
>
> _______________________________________________
> 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/20140924/56154d24/attachment.html>

From joenio em gmail.com  Tue Sep 30 07:47:35 2014
From: joenio em gmail.com (Joenio Costa)
Date: Tue, 30 Sep 2014 11:47:35 -0300
Subject: [Salvador-pm] Fwd: Problema
In-Reply-To: <CAGgMDSKRPToO2A=Br3uCjF6jWUAoDe3O0qMET=2QtPwn=9N5_A@mail.gmail.com>
References: <CAGgMDS+JtP-iW-ckPDFvNYPOo78yjbnqfLWsye7VYDUMj0_Npg@mail.gmail.com>
	<CACE0rhq5ekue-DNdrbHTF31ekP0fRQcHXBK2gKUz7CG9hO5EYA@mail.gmail.com>
	<CAGgMDSLsz51Tefsj8JwbWzUgmrKcKu5xg6zUr318EzbYGfTJzA@mail.gmail.com>
	<CAGgMDSKo=kPVDgSxG+8J-+Ts_aZoTHnXu4ENNcT-FXKGYs++dg@mail.gmail.com>
	<CAGgMDS+Ke2ycwJ8VzZn7kzJ+eJogbpNZC9mRQ62ic55D_WvK0A@mail.gmail.com>
	<CACE0rhoLhA1umhyfMpMaLLk5UvXV7+Mj3E0tMZnf1bHcOBFkDg@mail.gmail.com>
	<CAGVGKQyLvrkgO8HnFrnL_ZX=wHbtgpwyaAREE_gyTbvdqTj7sQ@mail.gmail.com>
	<CAGgMDSKRPToO2A=Br3uCjF6jWUAoDe3O0qMET=2QtPwn=9N5_A@mail.gmail.com>
Message-ID: <CAGVGKQyuxBXcWvhjMgEtF1kb0fip+NBdYv1ufsVvkFYGYQg6AQ@mail.gmail.com>

Beleza Allisson, obrigado por compartilhar conosco a solução encontrada!

2014-09-24 0:35 GMT-03:00 Allisson Andrade Lima <allissonlima1 em gmail.com>:

> Olá Pessoal,
>
> Desculpem a demora na resposta, mas esses últimos dias estão complicados...
>
> Consegui resolver com a ajuda do modulo Data::Printer. Com ele consegui
> identificar que, nos casos de campos nulos, o Perl preenchia a variável com
> "\0" de acordo com o tipo e tamanho.
>
> Por exemplo, uma variável de um campo do banco do tipo varchar(50), o Perl
> preenche com 50 "\0".
>
> Ai eu fiz as regras de filtragem e pronto.
>
> Gostaria de agradecer a todos pela ajuda!
>
> Em 9 de setembro de 2014 13:51, Joenio Costa <joenio em gmail.com> escreveu:
>
> Oi Allisson,
>>
>> Conseguiu resolver o seu problema? Nos conta como você resolveu caso
>> afirmativo...
>>
>> 2014-08-29 22:32 GMT-03:00 Hernan Lopes <hernanlopes em gmail.com>:
>>
>>> Alisson,
>>>
>>> Se esse erro acontece apenas nessa coluna, tenta definir um resultado
>>> nulo em outra coluna, e veja se ele aparece corretamente.
>>> Tenta executar o comando usando outra ferramenta e verifica se obtem o
>>> mesmo resultado.
>>> Verifica a procedure tambem.
>>>
>>> Assim é possível ter mais certeza que o problema não está do lado do
>>> banco
>>>
>>>
>>>
>>> 2014-08-28 11:02 GMT-03:00 Allisson Andrade Lima <
>>> allissonlima1 em gmail.com>:
>>>
>>> Hernan e Joenio,
>>>>
>>>> Executei o código com o Data::Printer e foi retornado o
>>>> valor "\0\0\0\0\0\0\0" na variável nos casos de campos NULL. Pelo menos já
>>>> é uma luz... hehehehe.
>>>>
>>>> Segue abaixo a subrotina em questão para que vocês possam dar uma
>>>> olhada. Ela ainda está crua, pois como emperrei nesse problema, fiquei
>>>> exclusivamente nele.
>>>>
>>>>
>>>>
>>>> sub insereMy {
>>>>         my ($procedure,$database,$table) = @_;
>>>>
>>>>         my ($coluna, $dado, $camposSql, $valuesSql, $querySql,
>>>> $querySqlTrunc, $i, @tipoCampos, @row, @result);
>>>>
>>>>         if(!defined($procedure) or !defined($database) or
>>>> !defined($table) or ($procedure eq "") or ($database eq "") or ($table eq
>>>> "")){
>>>>                 print "Favor informar todos os parâmetros!\n";
>>>>                 print "P1: PROCEDURE\n";
>>>>                 print "P2: BANCO DESTINO!\n";
>>>>                 print "P3: TABELA DESTINO!\n";
>>>>                 return 0;
>>>>
>>>>         }elsif(defined($procedure) or defined($database) or
>>>> defined($table)){
>>>>
>>>>                 &conexaoTcf("$procedure");
>>>>
>>>>                 $querySqlTrunc = "TRUNCATE TABLE $table;";
>>>>
>>>>                 &conexaoMysql("$database", "$table", "$querySqlTrunc");
>>>>
>>>>                 $camposSql = join ", ", @{$dbResultDb2->{NAME}};
>>>>
>>>>                 for($coluna = 0; $coluna < $tCampos; $coluna = $coluna
>>>> + 1){
>>>>                           $tipoCampos[$coluna] =
>>>> $dbResultDb2->{TYPE}->[$coluna];
>>>>                 }
>>>>
>>>>                 while(@row = $dbResultDb2->fetchrow_array) {
>>>>                         $valuesSql = "";
>>>>
>>>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>>>> $coluna + 1){
>>>>                                  print "Tamanho:
>>>> ".length($row[$coluna])."\n";
>>>>                                 p $row[$coluna];
>>>>
>>>>                                 if (!$row[$coluna]){
>>>>
>>>>                                         $dado = 'NULL';
>>>>
>>>>                                 }else{
>>>>
>>>>                                         if (($tipoCampos[$coluna] == 3
>>>> or $tipoCampos[$coluna] == 6 or $tipoCampos[$coluna] == 7) and
>>>> (defined($row[$coluna]))){
>>>>
>>>>                                                 $dado = $row[$coluna];
>>>>                                                 $dado =~ s/[,]/./;
>>>>
>>>>                                         }else{
>>>>
>>>>                                                 $dado = $row[$coluna];
>>>>                                         }
>>>>                                         }
>>>>
>>>>                                 }
>>>>
>>>>                         $result[$coluna] = $dado;
>>>>
>>>>                         #print "Dado: ".$dado;
>>>>                         #print "\n";
>>>>                         #print "Row: ".$row[$coluna];
>>>>                         #print "\n";
>>>>
>>>>                         }#FIM FOR COLUNA
>>>>
>>>>
>>>>                         ###Monta valores para insert
>>>>                         for($coluna = 0; $coluna < $tCampos; $coluna =
>>>> $coluna + 1){
>>>>                                 $valuesSql =
>>>> $valuesSql.'"'.$result[$coluna].'",';
>>>>                         }
>>>>                         ###Retira a virgula do ultimo valor
>>>>                         $valuesSql =~ s/,+$//;
>>>>                          $querySql = "insert into $table ($camposSql)
>>>> values ($valuesSql);";
>>>>                         &conexaoMysql("$database", "$table", $querySql);
>>>>
>>>>                 }#FIM WHILE
>>>>
>>>>                 $dbResultDb2->finish();
>>>>         }#FIM ELSEIF
>>>> }#FIM SUBROTINA
>>>>
>>>>
>>>>
>>>> Em 27 de agosto de 2014 18:56, Hernan Lopes <hernanlopes em gmail.com>
>>>> escreveu:
>>>>
>>>> Alisson,
>>>>>
>>>>> Pode mostrar o código que você está usando ?
>>>>> Está usando DBIx::Class ?
>>>>> ou DBI puro ?
>>>>>
>>>>> de qualquer maneira, não sei se vc está usando mas caso não esteja
>>>>> pode tentar usar o Data::Printer pra debugar teu problema...
>>>>>
>>>>> perl -e 'use Data::Printer; my @bla = (qw|aa bb cc|); warn p @bla;'
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2014-08-27 18:15 GMT-03:00 Allisson Andrade Lima <
>>>>> allissonlima1 em gmail.com>:
>>>>>
>>>>>> Olá,
>>>>>>
>>>>>> Gostaria de compartilhar e tentar identificar a causa de um problema
>>>>>> que estou passando em um Script que estou escrevendo em Perl.
>>>>>>
>>>>>> Este Script realiza a execução de uma Stored Procedure em um banco
>>>>>> DB2 e importa os dados para um banco Mysql. Realizo um fetcharray e vou
>>>>>> percorrendo linha a linha, tratando as colunas e adicionando em um array. O
>>>>>> problema é que caso haja um campo NULL no resultado eu não tenho um retorno
>>>>>> undef. A variável inicialmente não possui valor, mas caso eu faça um length
>>>>>> eu tenho um retorno com um valor acima de zero, logo ela também não fica
>>>>>> undef.
>>>>>>
>>>>>> Com esse problema eu não estou conseguindo tratar esses casos para
>>>>>> campos com valor nulo. Gostaria que alguém me ajudasse caso saibam o que
>>>>>> pode estar acontecendo.
>>>>>>
>>>>>> Fico feliz pela ajuda,
>>>>>>
>>>>>> 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
>>>
>>>
>>
>>
>> --
>> Joenio Costa
>> - Colivre - Cooperativa de Tecnologias Livres
>> - Perl Brasil - Comunidade Brasileira de Usuários Perl
>> - PSL-BA - Projeto Software Livre Bahia
>>
>> _______________________________________________
>> 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
>
>


-- 
Joenio Costa
- Colivre - Cooperativa de Tecnologias Livres
- Perl Brasil - Comunidade Brasileira de Usuários Perl
- PSL-BA - Projeto Software Livre Bahia
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/salvador-pm/attachments/20140930/6d759d72/attachment-0001.html>