PerlDBI and quoting

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

Brothers, Background - I'm using PerlDBI to interface an Oracle database with a ConnectDirect remote file transfer. It's all basically working, but here's the problem... We receive a file via connect direct of potentially large size and with embedded quotes/apostrophes etc. I'm therefore inserting the file content into a CLOB field in the database after using the PerlDBI 'quote' function on it - again, all working.

my $RawContent = dbh->quote( $filecontent, VARCHAR );

my $insert_sql = qq(
    INSERT INTO Received
    ( RawContent, Filename )
    VALUES
    ( ?, ? )
);

my $insert_sth = $dbh->prepare($insert_sql);

my $rv = $insert_sth->execute( $RawContent, $filename );
[download]

However, when I look at the data content in SQL Developer, or when I then perform a 'select' on the table to extract the data later, it has enclosing quotes i.e. I don't get " CONTENT " - I get " 'CONTENT' ", which then interferes with string matching downstream. What have I missed?

Comment on PerlDBI and quoting Download Code

Replies are listed 'Best First'.
Re: PerlDBI and quoting by haukex (Archbishop) on Feb 05, 2021 at 12:21 UTC
However, when I look at the data content in SQL Developer, or when I then perform a 'select' on the table to extract the data later, it has enclosing quotes i.e. I don't get " CONTENT " - I get " 'CONTENT' ", which then interferes with string matching downstream. What have I missed? You don't need both `->quote` and placeholders (`?, ?`). Placeholders are The Right Way, so just use only those.	[reply] [d/l] [select]
Re^2: PerlDBI and quoting by jerryhone (Sexton) on Feb 05, 2021 at 14:20 UTC
Thanks haukex - that works nicely! I was clearly being a a bit overprotective!	[reply]
Re^3: PerlDBI and quoting by haukex (Archbishop) on Feb 05, 2021 at 14:33 UTC
I was clearly being a a bit overprotective! Better than not knowing Little Bobby Tables at all! `:-)`	[reply] [d/l]
Re^4: PerlDBI and quoting by LanX (Sage) on Feb 05, 2021 at 15:24 UTC
Re^5: PerlDBI and quoting by bliako (Monsignor) on Feb 05, 2021 at 19:59 UTC
Some notes below your chosen depth have not been shown here


Perl-Sensitive Sunglasses
	PerlMonks