http://qs321.pair.com?node_id=265961

Seumas has asked for the wisdom of the Perl Monks concerning the following question:

I have some functions that perform SQL queries (DBI.pm), updates and inserts using data that is passed to the function.

I want to be able to handle both quoted and unquoted strings in this function, so I need to be able to detect whether the strings have been quoted already (and if not, quote() them).

Is there a way to do that? It seems that if I quote() an already quote()'d value, it requotes the existing escape quotes and really screws the string up.