[Cascavel-pm] Duvida sobre variaveis
Antonio Carlos I. Paes
lists em xms.com.br
Quinta Junho 8 07:14:19 PDT 2006
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
Mais detalhes sobre a lista de discussão Cascavel-pm