<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 = "@mesg") =~ s/\\/\\\\/g;<br>$mesg = $dsn->quote("$mesg");<br></blockquote></div><br>Não. outra maneira que você pode escrever isto mais "perlish" é:<br><br><code>
<br>return unless @mesg;<br>(my $mesg = "@mesg") =~ s{\}{\\}g;<br>$mesg = $dsn->quote($mesg);<br></code><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>