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

[Ole Tange <sslug@sslug>]

On Mon, 1 Oct 2001, Poul Møller Hansen wrote:

> 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 ?

$buf=~s/'/''/g;
$filename=~s/'/''/g;

Eller:

$buf=~s/'/\\'/g;
$filename=~s/'/\\'/g;


/Ole
-- 
Få virksomheder til at tage softwarepatenter alvorligt:
Vær med i genfors-projektet.
http://ole.tange.dk/swpat/aktier.html