Enviado em 18/02/2008 - 11:15h
Olá pessoal.. Estou desenvolvendo uma aplicação em perl. Está quase pronta, pois existe um erro que ta me matando. O erro é em um IF. Faço consuta ao banco de dados, testo se o campo ta vazio para fazer uma concatenação em uma string. Porém quando o campo vez vazio da o seguinte erro: "Use of uninitialized value in string eq". Alguém pode me dar uma luz?
Segue codigo abaixo:
foreach $j (2..44){
print $clifi[$j]."\n";
if ($clifi[$j] eq ""){
$str_cliente .= '^';
}else{
$str_cliente .= '^'.$clifi[$j];
}
}
Aguardo Contato
Segue codigo abaixo:
foreach $j (2..44){
print $clifi[$j]."\n";
if ($clifi[$j] eq ""){
$str_cliente .= '^';
}else{
$str_cliente .= '^'.$clifi[$j];
}
}
Aguardo Contato