Sim, você tem que usar apenas uma vez a declaração em cada escopo. Por exemplo:<br><br><code><br>my $var1 = "a";<br>{<br> my $var1 = "b";<br> print "$var1\n";<br>}<br>print "$var1\n";
<br></code><br><br>No seu caso, você já deve ter declarado @mesg antes do seu 'if'. Por favor, dê uma olhada em 'perldoc perlintro' e 'perldoc strict'.<br><br><div><span class="gmail_quote">On 6/8/06, <b class="gmail_sendername">
Antonio Carlos I. Paes</b> <<a href="mailto:lists@xms.com.br">lists@xms.com.br</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Bom, eu uso o @mesg, teria algo a ver?<br><br> # $daemon<br> if ("$daemon" =~ "--" && "@mesg" =~ "MARK --") {<br> my $daemon = "";<br> my @mesg = "-- MARK --";
<br> }<br><br>Duvida: Ta certo isso? if ("variavel" =~ "string") para obter uma condicao sem<br>ER? Eu tentei == mas deu erro que nao era numerico :)<br><br> # $mesg<br> if (@mesg) {<br> my ($mesg = "@mesg") =~ s/\\/\\\\/g;
<br> $mesg = $dsn->quote("$mesg");<br> }<br> else { return; }<br> print $mesg . "\n";<br> return;<br><br>On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:<br>> Antonio Carlos I. Paes wrote:
<br>> > O codigo abaixo representa essas linhas:<br>> > # $mesg<br>> > if (@mesg) {<br>> > my $mesg = "@mesg";<br>> > my $mesg =~ s/\\/\\\\/g;<br>> > my $mesg = $dsn->quote("$mesg");
<br>> > }<br>> > else { return; }<br>><br>> Para eliminar os warnings, você só precisa definir o "my $mesg" uma<br>> única vez...<br>><br>> if (@mesg) {<br>> my $mesg = "@mesg";
<br>> $mesg =~ s/\\/\\\\/g;<br>> $mesg = $dsn->quote("$mesg");<br>> }<br>><br>> Verifique se você não está usando a variável $mesg antes ou depois deste<br>> "if"; se você precisar que a variável sobreviva depois do bloco, precisa
<br>> declará-la fora dele:<br>><br>> my $mesg;<br>><br>> if (@mesg) {<br>> $mesg = "@mesg";<br>> $mesg =~ s/\\/\\\\/g;<br>> $mesg = $dsn->quote("$mesg");<br>> }
<br>><br>> # $mesg continua a existir<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a>