[Cascavel-pm] Duvida sobre variaveis

[Antonio Carlos I. Paes]

Bom, eu uso o @mesg, teria algo a ver?

  # $daemon
  if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {
    my $daemon = "";
    my @mesg = "-- MARK --";
  }

Duvida: Ta certo isso? if ("variavel" =~ "string") para obter uma condicao sem 
ER? Eu tentei == mas deu erro que nao era numerico :)
  
  # $mesg
  if (@mesg) {
    my ($mesg = "@mesg") =~ s/\\/\\\\/g;
    $mesg = $dsn->quote("$mesg");
  }
  else { return; }
  print $mesg . "\n";
  return;

On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:
> 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