<br><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Pergunta:<br>Impactaria em algo eu utilizar o metodo abaixo?<br><br>unless (@mesg) { return; }
<br>my $mesg;<br>($mesg = &quot;@mesg&quot;) =~ s/\\/\\\\/g;<br>$mesg = $dsn-&gt;quote(&quot;$mesg&quot;);<br></blockquote></div><br>Não. outra maneira que você pode escrever isto mais &quot;perlish&quot; é:<br><br>&lt;code&gt;
<br>return unless @mesg;<br>(my $mesg = &quot;@mesg&quot;) =~ s{\}{\\}g;<br>$mesg = $dsn-&gt;quote($mesg);<br>&lt;/code&gt;<br><br>Você vai utilizar estes dados para qual finalidade? Se é para colocar em banco de dados, o próprio Perl através do DBI e driver do banco fazem isto prá você, se utilizar placeholders, como eu disse na mensagem anterior.
<br><br>-- <br>Igor Sutton Lopes<br>