[Cascavel-pm] Duvida sobre variaveis
Antonio Carlos I. Paes
lists em xms.com.br
Quinta Junho 8 06:33:24 PDT 2006
Lista,
Surgiu outra duvida a respeito de variaveis,
Seguindo o conselho, estou usando strict e warnings, mas ele me gera essas
mensagens:
"my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl
line 48.
"my" variable $mesg masks earlier declaration in same scope at ./syslog2db.pl
line 49.
Global symbol "$mesg" requires explicit package name at ./syslog2db.pl line
57.
Execution of ./syslog2db.pl aborted due to compilation errors.
O codigo abaixo representa essas linhas:
# $mesg
if (@mesg) {
my $mesg = "@mesg";
my $mesg =~ s/\\/\\\\/g;
my $mesg = $dsn->quote("$mesg");
}
else { return; }
Pergunto: Nao ha uma forma mais facil de se definir tudo isso numa linha so?
Como o Perl interpreta esse tipo de situacao, onde a variavel e' substituida
por ela mesmo.
Obs.: Utilizei o "s/\\/\\\\/g" para "escapar" as barras (\), o quote() nao me
fez isso...
Mais detalhes sobre a lista de discussão Cascavel-pm