Question

I have a table PGM_MASTER, which has three columns

PGM_ID | int(11)

PGM_ENV_ID | int(11)

PGM_TEXT | mediumtext

I need your assistance in storing files/contents directly into mysql DB (say /tmp/t1.tst) for column ‘PGM_TEXT’ along with other columns in the row through perl. I too need to preserve the format of files which I intend to store.

Advanced thanks for your help.

Answer 1

Untested:

use DBI qw();
use File::Slurp qw(read_file);

my $content = read_file('/tmp/t1.tst', { binmode => ':raw' });
my $dbh = DBI->connect('DBI:mysql:database=DBNAME', { AutoCommit => 1, RaiseError => 1, });
$dbh->do('insert into PGM_MASTER (PGM_TEXT) values (?)', {}, $content);