डीबी पर वस्तु भंडारण और यह

Question

पुन: प्राप्त करने मैं एक पर्ल वस्तु (संदर्भ की सरणी के संदर्भ में) नीचे की तरह है:

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

और डीबी पर संग्रहीत करना होगा तो इसे पुनः प्राप्त।

क्या कोई इसे संपीड़ित करने के लिए क्रमबद्ध करने के लिए एक अच्छा तंत्र सुझा सकता है और फिर इसे डीबी पर संग्रहीत कर सकता है? फिर इसे deserialize और कोड में इसका इस्तेमाल करें?

Answer 1

आप किसी भी ज्ञात धारावाहिकों का उपयोग कर सकते हैं, उदा। JSON::XS या Storable। Storable बेहतर है यदि आप संदर्भों के रूप में संदर्भों को पुनर्प्राप्त करना चाहते हैं, न कि मूल्यों की प्रतियों के रूप में। फिर किसी भी प्रकार के क्षेत्र में एक धारावाहिक वस्तु को सहेजें (VARCHAR, BLOB, ...) जो भंडारण आवश्यकताओं को पूरा करता है।

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; 

साथ ही, आपको $bytestream सेक कर सकते हैं, उदाहरण के लिए, के माध्यम से IO::Compress::Gzip

my $bytestream = gzip nfreeze $data; 

Answer 2

मैंने कभी इसे स्वयं नहीं किया है, लेकिन परल्डोक का कहना है कि डेटा :: डम्पर का वापसी मूल्य मूल संदर्भ संरचना की एक समान प्रतिलिपि वापस पाने के लिए "निकाला जा सकता है"। फिर आप डम्पर आउटपुट को डेटाबेस में एक बड़े पर्याप्त टेक्स्ट फ़ील्ड में डाल सकते हैं।

Answer 3

डेटा :: डूपर के बारे में क्या? आप ऑब्जेक्ट को डीबी के टेक्स्ट फ़ील्ड में डंप कर सकते हैं और फिर उसे वापस पाने के लिए सामग्री को eval कर सकते हैं।