[perl] Plaatje loaden in MySQL

[BKJ]

kheb nu deze code:

code:

#!/usr/bin/perl

use DBI;
use GD;


$file="test.jpg";
$maxwidth = "300";
$maxheight = "400";


$srcimage = GD::Image->newFromJpeg($file);
  ($srcW,$srcH) = $srcimage->getBounds();
  $wdiff = $srcW - $maxwidth;
  $hdiff = $srcH - $maxheight;
  

  if ($wdiff > $hdiff) {
    $newW = $srcW - $wdiff;
    $aspect = ($newW/$srcW);
    $newH = int($srcH * $aspect);
  } else {
    $newH = $srcH - $hdiff;
    $aspect = ($newH/$srcH);
    $newW = int($srcW * $aspect);
  }

 
  
  $newimage = new GD::Image($newW,$newH);
  $newimage->copyResized($srcimage,0,0,0,0,$newW,$newH,$srcW,$srcH);

Deze genereerd een plaatje met nieuwe boundaries. Nu moet dit plaatje weggeschreven worden in een tabel van MySQL. Dit heb ik al als volgt geprobeerd:

code:

$sth = $dbh->prepare ("INSERT INTO bla(image) VALUES('$newimage')");

Nu staat dit in de tabel:
GD::Image=SCALAR(0x80f58bc)

errug vaag; ook als ik hem opvraag en laat zien dan zie ik ook die "GD::Image=SCALAR(0x80f58bc)"

Wat doe ik fout?

[ACM]

Euhmz?
Je slaat de reference naar het plaatje op, dat waar Perl mee werkt

NIET de data zo te zien. Op een of andere manier moet je de data er nog uit zien te 'pulken'.

[BKJ]

En hoe doe ik dat?

[Grum]

wegschrijven & openen

[BKJ]

dat kan echt wel handiger dacht ik....die oplossing had ik ook al bedacht...

[tomato]

Kijken in de GD library en daar de Image class van hoe je de data uit je object krijgt (waarschijnlijk een ->getBinary() method oid...).

Maar iig, zie docs.