Lưu trữ đối tượng trên DB và lấy nó

Question

Tôi có một đối tượng perl (tham chiếu đến mảng tài liệu tham khảo) như dưới đây:

my $a = [ [$a, $ab, $c ], [$a, $b, $c] ] ; 

và cần lưu trữ nó trên DB sau đó lấy nó.

Ai đó có thể đề xuất cơ chế tốt để tuần tự hóa ngay cả khi nén và sau đó lưu trữ nó trên DB? Sau đó deserialize nó và sử dụng nó trong mã?

Answer 1

Bạn có thể sử dụng bất kỳ trình tuần tự đã biết nào, ví dụ: JSON::XS hoặc Storable. Storable sẽ tốt hơn nếu bạn muốn truy xuất tham chiếu dưới dạng tham chiếu chứ không phải dưới dạng bản sao của giá trị. Sau đó lưu một đối tượng được tuần tự hóa trong trường của bất kỳ loại nào (VARCHAR, BLOB, ...) thỏa mãn các yêu cầu lưu trữ.

use Storable qw(nfreeze thaw); 
use DBI; 

# ... connect to database 
# Store 
my $data = [ [$a, $b, $c ], [ $a, $b, $c ] ]; 
my $bytestream = nfreeze $data; 
$dbh->do('insert into table (field) values(?)', undef, $bytestream); 

# Retrieve 
$bytestream = $dbh->selectrow_array('select field from table where ...'); 
$data = thaw $bytestream; 

Ngoài ra, bạn có thể nén $bytestream, ví dụ, thông qua IO::Compress::Gzip

my $bytestream = gzip nfreeze $data; 

Answer 2

Tôi chưa bao giờ thử nó, nhưng perldoc nói giá trị trả về của dữ liệu :: Dumper có thể được "đánh giá để lấy lại một bản sao giống hệt nhau của cấu trúc tham chiếu ban đầu". Sau đó bạn có thể đặt đầu ra Dumper vào một trường văn bản đủ lớn trong cơ sở dữ liệu.

Answer 3

Điều gì về Dữ liệu :: Dumper? Bạn có thể đổ các đối tượng vào trường TEXT của DB và sau đó đánh giá nội dung để lấy lại.