#!/usr/bin/perl

#A perl script to insert a blob into a database table
#TABLE: create table blob_eg(sno integer not null auto_increment, pics blob, primary key(sno));

#Module import
use strict;
use DBI;
use diagnostics;

#varible Declaration
my $dbHandle;
my $stmtHandle;
my $pic;
my $quoted_pic;

#opening a picture
open(my $fh, '/home/backup/old_docs/arun/pictures/1.jpg' ) or die $!;
read( $fh, $pic, -s $fh );

$dbHandle=DBI->connect("dbi:mysql:tempdb","arun","password",{ RaiseError=>1, AutoCommit=>0 }) or die ("cannot connect");

$quoted_pic = $dbHandle->quote($pic);

$stmtHandle = $dbHandle->prepare( qq{Insert into blob_eg('pic') values(?)}) or die("cannot prepare\n");

eval
{
	$stmtHandle->execute($quoted_pic);
};
if($@)
{
	print "cannot execute. exception caught...   $@";
	$dbHandle->rollback();
}else
{
        $stmtHandle->finish();
	$dbHandle->disconnect();
	print "Successfully inserted the pic into db";
}
close($fh);