[Cascavel-pm] Duvida sobre variaveis

[Nelson Ferraz]

Antonio Carlos I. Paes wrote:
> O codigo abaixo representa essas linhas:
>   # $mesg
>   if (@mesg) {
>     my $mesg = "@mesg";
>     my $mesg =~ s/\\/\\\\/g;
>     my $mesg = $dsn->quote("$mesg");
>   }
>   else { return; }

Para eliminar os warnings, você só precisa definir o "my $mesg" uma 
única vez...

if (@mesg) {
     my $mesg = "@mesg";
     $mesg =~ s/\\/\\\\/g;
     $mesg = $dsn->quote("$mesg");
}

Verifique se você não está usando a variável $mesg antes ou depois deste 
"if"; se você precisar que a variável sobreviva depois do bloco, precisa 
declará-la fora dele:

my $mesg;

if (@mesg) {
     $mesg = "@mesg";
     $mesg =~ s/\\/\\\\/g;
     $mesg = $dsn->quote("$mesg");
}

# $mesg continua a existir

-- 
Nelson Corrêa de Toledo Ferraz

Segula Technologies (www.segula.fr)
Free Software Foundation Associate Member #3203
Sociedade Perl do Brasil (www.perl.org.br)
Rede Livre de Compartilhamento de Cultura Digital