Re: [PERL] Problemer med at indsætte binær data i MySQL

[Christian Hemmingsen <sslug@sslug>]

Poul Møller Hansen <sslug@sslug> writes:

> Jeg får en syntax fejl når jeg forsøger at indsætte de binære data der er i $buf.
> 
>     my $sth = $dbh->prepare(" INSERT INTO phonepics VALUES ('','$buf','$filename' ");
>     $sth->execute or die "Unable to insert: $dbh->errstr\n";                    
> 
> Jeg formoder at det er fordi dataene indeholder apostrofer.
> I php har jeg brugt addslashes($buf) men hvad gør man i Perl ?
> 

Du skal ok lave noget i retning af

my $sth = $dbh->prepare("INSERT INTO phonepics VALUES ('',?,'$filename')");  

$sth->execute($buf) or die "Unable to insert: $dbh->errstr\n"; 

se i øvrigt perldoc DBI

Så sørger den selv for at escape korrekt...jeg vil tro det virker. Jeg
bruger normalt PostgreSQL og den håndterer large objects på en anden
(IMO bedre) måde, der kan du f.eks. operere på et large object som om
det var
en fil.

-- 

Christian Hemmingsen
P.L.U.R.