Comments on: Perl function equivalent of PHP’s AddSlashes()

By: James M.

James M. — Fri, 02 Sep 2011 03:46:47 +0000

Thanks! This little routine saved me some time 🙂

By: John May

John May — Wed, 05 Aug 2009 21:29:03 +0000

$term =~ s/([\\\’\”])/\\$1/gi; Is not the same, the backslash needs to be escaped first. The one liner will escape the first character that appears in $term. Also /i isn’t needed and is very wasteful*. To prevent SQL injection it’s better to use placeholders** where possible.

*Friedl, J., 2006. Mastering Regular Expressions 3rd ed., O’Reilly Media, Inc.
**https://www.perlmonks.com/?node_id=678757

By: Not Real

Not Real — Mon, 03 Aug 2009 13:14:55 +0000

How is this different than DBI’s quote method:

https://search.cpan.org/~timb/DBI/DBI.pm#quote

Is this for when you are doing database work but not using DBI? (which is just crazy talk)

By: Mary Shaw

Mary Shaw — Fri, 21 Sep 2007 20:05:47 +0000

You can do all of those regexes in one line- something like …
$term =~ s/([\\\’\”])/\\$1/gi;

By: pim

pim — Wed, 02 May 2007 09:02:09 +0000

I’m not a Perl programmer but I needed to change the expressions to make it work in my PostgreSQL Perl stored Procedure.

$text =~ s/\\/\\\\/g;
$text =~ s/’/\\’/g;
$text =~ s/”/\\”/g;
$text =~ s//\/g;