如何用perl

Question

我有一個表PGM_MASTER，其中有三列

PGM_ID文件保存到mysql數據庫| int（11）

PGM_ENV_ID | int（11）

PGM_TEXT |中文文字

我需要您的協助，將文件/內容直接存儲到mysql DB（比如/tmp/t1.tst）列'PGM_TEXT'以及通過perl的行中的其他列。我也需要保存我打算存儲的文件的格式。

先進的感謝您的幫助。

Answer 1

未經測試：

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); 

Answer 2

你爲什麼不將文件上傳到服務器，並而不是保存在數據庫中的實際文件只保存到其在文件結構中的位置的參考。

說你有

t1.tst

FOLDER | 
     | t1.tst 
     | t2.tst 
     | t3.tst 
     | t4.tst 

在數據庫中存儲你的文件路徑結構：FOLDER/t1.tst