[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