Sim, você tem que usar apenas uma vez a declaração em cada escopo. Por exemplo:<br><br>&lt;code&gt;<br>my $var1 = &quot;a&quot;;<br>{<br>&nbsp;&nbsp;&nbsp; my $var1 = &quot;b&quot;;<br>&nbsp;&nbsp;&nbsp; print &quot;$var1\n&quot;;<br>}<br>print &quot;$var1\n&quot;;
<br>&lt;/code&gt;<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> &lt;<a href="mailto:lists@xms.com.br">lists@xms.com.br</a>&gt; 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>&nbsp;&nbsp;# $daemon<br>&nbsp;&nbsp;if (&quot;$daemon&quot; =~ &quot;--&quot; &amp;&amp; &quot;@mesg&quot; =~ &quot;MARK --&quot;) {<br>&nbsp;&nbsp;&nbsp;&nbsp;my $daemon = &quot;&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;my @mesg = &quot;-- MARK --&quot;;
<br>&nbsp;&nbsp;}<br><br>Duvida: Ta certo isso? if (&quot;variavel&quot; =~ &quot;string&quot;) para obter uma condicao sem<br>ER? Eu tentei == mas deu erro que nao era numerico :)<br><br>&nbsp;&nbsp;# $mesg<br>&nbsp;&nbsp;if (@mesg) {<br>&nbsp;&nbsp;&nbsp;&nbsp;my ($mesg = &quot;@mesg&quot;) =~ s/\\/\\\\/g;
<br>&nbsp;&nbsp;&nbsp;&nbsp;$mesg = $dsn-&gt;quote(&quot;$mesg&quot;);<br>&nbsp;&nbsp;}<br>&nbsp;&nbsp;else { return; }<br>&nbsp;&nbsp;print $mesg . &quot;\n&quot;;<br>&nbsp;&nbsp;return;<br><br>On Thursday 08 June 2006 09:58, Nelson Ferraz wrote:<br>&gt; Antonio Carlos I. Paes wrote:
<br>&gt; &gt; O codigo abaixo representa essas linhas:<br>&gt; &gt;&nbsp;&nbsp; # $mesg<br>&gt; &gt;&nbsp;&nbsp; if (@mesg) {<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; my $mesg = &quot;@mesg&quot;;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; my $mesg =~ s/\\/\\\\/g;<br>&gt; &gt;&nbsp;&nbsp;&nbsp;&nbsp; my $mesg = $dsn-&gt;quote(&quot;$mesg&quot;);
<br>&gt; &gt;&nbsp;&nbsp; }<br>&gt; &gt;&nbsp;&nbsp; else { return; }<br>&gt;<br>&gt; Para eliminar os warnings, você só precisa definir o &quot;my $mesg&quot; uma<br>&gt; única vez...<br>&gt;<br>&gt; if (@mesg) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;my $mesg = &quot;@mesg&quot;;
<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$mesg =~ s/\\/\\\\/g;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$mesg = $dsn-&gt;quote(&quot;$mesg&quot;);<br>&gt; }<br>&gt;<br>&gt; Verifique se você não está usando a variável $mesg antes ou depois deste<br>&gt; &quot;if&quot;; se você precisar que a variável sobreviva depois do bloco, precisa
<br>&gt; declará-la fora dele:<br>&gt;<br>&gt; my $mesg;<br>&gt;<br>&gt; if (@mesg) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$mesg = &quot;@mesg&quot;;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$mesg =~ s/\\/\\\\/g;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$mesg = $dsn-&gt;quote(&quot;$mesg&quot;);<br>&gt; }
<br>&gt;<br>&gt; # $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>