👵🏽 🍘 🎟️ आम-लिस्प पर मोंगो डीबी प्रदाता के रूप में मोंगो-सीएल-चालक का उपयोग करना 🧑🏿‍🤝‍🧑🏾 🦐 🐇

हैलो, आम-लिस्प के सभी प्रेमी।

इस लेख में, मैं आपको mongo-cl-driver नामक mongo ऑब्जेक्ट DBMS तक पहुँचने के लिए आम-लिस्प लाइब्रेरी को लागू करने के अपने अनुभव के बारे में बताऊंगा।

इंटरनेट पर पढ़ा जा रहा है कि मोंगो-डीबी कितना तेज़ है, स्केलेबल और कूल है, और इस डेटाबेस के साथ C ++ में बातचीत करना एक दूर और बहुत कम अनुभव है, मैंने इस डेटाबेस को आम-लिस्प में लिखे गए अपने वेब-ओरिएंटेड प्रोजेक्ट में आज़माने का फैसला किया। हालांकि, DBMS की सही पसंद के बारे में कुछ संदेह है, मैं अपने अनुभव को सफल कह सकता हूं, क्योंकि कार्यान्वित कार्यक्षमता कम से कम काम करती है।

जो कोई भी mongo DBMS तक पहुँचने के लिए प्रोग्राम शुरू करता है, वह एक तरह से या cl-mongo के लिंक के लिए इंटरनेट पर एक और ठोकर खाता है - आम-लिस्प पर प्रदर्शित होने के लिए mongo डेटाबेस तक पहुँचने का पहला प्रदाता। मेरे प्रोजेक्ट में cl-mongo का उपयोग करते हुए, मुझे डेटा को जोंस में परिवर्तित करने के साथ कई समस्याएं आईं, जो तब शुरू हुई जब DBMS-> कॉमन-लिस्प-सर्वर-> जावास्क्रिप्ट-क्लाइंट-चेन के साथ क्वेरी परिणामों का अनुवाद करना आवश्यक हो गया। वैसे, इस तरह के एन्कोडिंग / डिकोडिंग के लिए मेरे पास ज्ञात पुस्तकालय हैं:

1) यासन
2) cl-json

निम्नलिखित आम-लिस्प पर mongo DBMS तक पहुँचने के लिए सामान्य प्रोग्रामिंग कार्यों के लिए mongo-cl-driver का उपयोग करने के कुछ उदाहरण हैं। यदि उदाहरण पाठक को अस्पष्ट लगते हैं, संदर्भ से बाहर हो जाते हैं, तो सुलभ में उपयोग के उदाहरण देखने का अवसर है स्रोत कोड कोड के सबसे मूल्यवान टुकड़े webserver.lisp और competitions.lisp फाइलों में हैं

सामान्य तौर पर, सींगों द्वारा इस बैल को लेते हैं:

डेटाबेस को जोड़ना और एक्सेस करना दो चरणों में विभाजित किया जा सकता है: डेटाबेस क्लास का एक उदाहरण और संग्रह वर्ग का एक उदाहरण बनाना। आगे - संग्रह उदाहरण के साथ काम करना बहुत सुविधाजनक है।

CLOS डेटाबेस क्लास का एक उदाहरण बनाएं। आप पुस्तक व्यावहारिक-आम-लिस्प के अनुवाद में आम-लिस्प में ऑब्जेक्ट-ओरिएंटेड प्रोग्रामिंग के बारे में पढ़ सकते हैं। यह निर्माता होस्ट, पोर्ट, उपयोगकर्ता और पासवर्ड को भी तर्क के रूप में ले सकता है, हालांकि, लेखक ने केवल पहले दो मापदंडों का उपयोग किया था।

स्कीमा नामक एक डेटाबेस तक पहुँचने के लिए एक डेटाबेस उदाहरण बनाना:

(defparameter *db-instance* (make-instance 'mongo:database :name "ski73"))

एक विशिष्ट संग्रह के साथ काम करने के लिए, आपको संग्रह वर्ग का एक उदाहरण बनाना होगा:

 (defparameter *competitions* (mongo:collection *db-instance* "competitions"))

अब हम इसे अपने प्रोजेक्ट में इस्तेमाल कर सकते हैं

ब्याज की जानकारी का चयन करने के लिए, आप मोंगो-क्ल-ड्राइवर द्वारा प्रदान किए गए कार्यों में से एक का उपयोग कर सकते हैं: खोज-एक या खोज-सूची। शुरू करने के लिए, यह प्रस्तुत करने का प्रस्ताव है कि प्रतियोगिताओं के संग्रह में नाम और तिथि का चयन करने के लिए मोंगो कंसोल में अनुरोध कैसा दिखता है:

 db.competitions.find({}, {title: 1, date: 1});

सभी दस्तावेज़ क्षेत्रों का चयन करने के लिए, आपको मापदंडों के बिना कॉल करने की आवश्यकता है:

 db.competitions.find();

खोज फ़ंक्शन के पहले सदस्य के रूप में, चयन की शर्तों को पारित किया जाता है। इसी तरह, हम एसक्यूएल क्वेरी में क्लॉज़ को निर्दिष्ट करते हैं। दूसरा पैरामीटर रिटर्न वैल्यूज का एक फिल्टर है - हम हमारे लिए ब्याज के लक्ष्य क्षेत्रों के नाम दर्शाते हैं, उन्हें 1s के साथ चिह्नित करते हैं। अधिक जानकारी के लिए, कृपया संपर्क करें आम प्रश्नों के लिए प्रलेखन ।

मूंग-क्ल-ड्राइवर में, दस्तावेज़ों की एक सूची प्राप्त करना खोज-सूची फ़ंक्शन के माध्यम से कार्यान्वित किया जाता है, और एक-एक दस्तावेज़ को खोजने के माध्यम से प्राप्त किया जाता है। दुर्भाग्य से, न तो विधि (लेखक के व्यक्तिपरक अनुभव से) डिफ़ॉल्ट क्वेरी और फ़िल्टर मापदंडों का समर्थन कर सकती है। इस प्रकार प्रतियोगिताओं के संग्रह से प्रतियोगिताओं की सूची प्राप्त करना कैसा दिखता है।

 (find-list *competitions* :query (son) :fields (son "title" 1 "date" 1))

चयन से किसी भी फ़िल्टर और खोज स्थितियों को बाहर करने के लिए, आपको पैरामीटर मानों के रूप में पास करने की आवश्यकता है: क्वेरी और: फ़ील्ड्स बिना पैरामीटर के बेटे फ़ंक्शन को कॉल करते हैं।

उदाहरण के लिए, इस तरह:

 (find-list *competitions* :query (son) :fields (son))

किसी एकल दस्तावेज़ को खोजने के लिए, फ़ंड-वन फ़ंक्शन का उपयोग करें। पहले (फ़िल्टर) और दूसरे (मुखौटा) मापदंडों के रूप में, इसे भी इसे पारित करने की आवश्यकता है, अगर कोई अनुरोध शर्तों और फ़िल्टर के बिना किया जाता है, तो बेटे को खाली कॉल

उदाहरण के लिए:

 (find-one *coll-instance* (son) (son))

बेटा क्या है?

सामान्य लिस्प में क्वेरी को खोजने के लिए उसी तरह से जिस तरह से मानगो कंसोल में निष्पादित किया जाता है, आपको कुंजी-मान मानों के एक सेट के साथ इसमें दो संरचनाएं पारित करने की आवश्यकता होती है। वैसे, एक ही cl-mongo में एक समान कार्य होता है, जिसे kv (की-वैल्यू) कहा जाता है। मुझे ठीक से याद नहीं है, लेकिन इसके अन्य कार्यों के साथ कुछ असुविधाएँ भी हैं।

मोंगो-क्ल-ड्राइवर में, एक बेटा फ़ंक्शन है।

यहां गैर-रिक्त क्वेरी और फ़ील्ड पैरामीटर के साथ क्वेरी बनाने का एक ऑन-द-गो उदाहरण है:

 (find-list *coll-instance* :query (son "name" "Ivan" "surname" "Ivanov") :fields (son "name" 1 "surname" 1 "address" 1 "telephone"))

फ़ंक्शन के कुछ स्थानों में, विषम मान पर लक्ष्य कुंजी (सदस्य नाम) होते हैं।

एक खेल घटना का प्रतिनिधित्व करने वाले वर्ग से किसी वस्तु का मुख्य मूल्य प्राप्त करने के लिए एक विधि का एक सरल उदाहरण निम्नलिखित है।

 (defmethod mongo-doc ((c-instance competition)) (son "title" (title c-instance) "date" (date c-instance) "begin-time" (begin-time c-instance) "end-time" (end-time c-instance) "captions" (captions c-instance) ))

आईडी द्वारा खोजें

क्लाइंट-सर्वर http एप्लिकेशन के विकास में एक संबंधित कार्य क्लाइंट को पिछले अनुरोध द्वारा - पहले प्राप्त आईडी के सर्वर पर स्थानांतरण था। शायद दृष्टिकोण पूरी तरह से सही नहीं है, लेकिन मैंने फैसला किया कि आईडी को एक ही टुकड़े में पारित किया जाना चाहिए। निम्नलिखित उदाहरण से स्थिति को स्पष्ट करने में मदद मिलेगी।

कल्पना करें कि प्रतियोगिता की वस्तुओं को डेटाबेस में संग्रहीत किया जाता है और प्रत्येक के पास दौड़ (राउंड) की नेस्टेड सूची होती है

यह इस तरह से है कि प्रतियोगिताओं की सूची क्लाइंट के पास जोंस के रूप में भेजने के लिए बनाई गई है। प्रतिक्रिया hunchentoot सर्वर के http प्रबंधक के संदर्भ में बनाई गई है। परिभाषित- url-fn एक मैक्रो है जो प्रतियोगिताओं-सूची अनुरोध के लिए एक हैंडलर फ़ंक्शन बनाता है और पंजीकृत करता है, जैसे कि स्की73.ru : 4242 / प्रतिस्पर्धा-सूची। सुविधाजनक है, है ना?

 ;  {id, title, date}     (define-url-fn (competitions-list) (str (encode-json-to-string (find-list *competitions* :query (son) :fields (son "title" 1 "date" 1)))) )

इस उदाहरण में, हम प्रतियोगिताओं की सूची के लिए एक अनुरोध हैंडलर पंजीकृत करते हैं। हम घटना के नाम और तिथि में रुचि रखते हैं। खोज-सूची हमेशा प्रत्येक दस्तावेज़ के लिए वापस आएगी: 12-बाइट आईडी-शेकनीक को फ़ील्ड फ़ील्ड पैरामीटर में निर्दिष्ट फ़ील्ड्स के साथ मिला। क्लाइंट की तरफ, जावास्क्रिप्ट को 12 नंबर s की एक सरणी के रूप में संग्रहीत किया जाता है। सर्वर पर एक और अनुरोध भेजने के लिए इसे एक पंक्ति में क्रमबद्ध करने का निर्णय लिया गया था, जो एथलीटों के विशिष्ट परिणामों के साथ दौड़ के बारे में जानकारी के साथ एक अधिक कैपेसिटिव संरचना प्राप्त करेगा।

MongoId फ़ंक्शन का उद्देश्य संख्याओं की एक सरणी को 12-तत्व मध्य सरणी की सामग्री के अनुसार पहचानकर्ता बाइट्स से बना स्ट्रिंग में परिवर्तित करना है।

 /**  ,    12  mongo id-     */ function mongoId(mid) { var strId = new String(); var plusByCode = function(el, index, arr) { return strId += String.fromCharCode(el); }; mid.raw.forEach(plusByCode); return strId; }

MongoId के साथ प्राप्त स्ट्रिंग को POST अनुरोध में रखा गया है। और, आगे, सर्वर साइड पर, इस आईडी-शनिक पर मोंगो-डीबी से जानकारी मांगी जाती है। यह निम्नानुसार किया जाता है:

 ;     (define-url-fn (competition-info) (let ((id (post-parameter "id")) ) (str (encode-json-to-string (find-one *competitions* (son "_id" (make-instance 'object-id :raw (flexi-streams:string-to-octets id))) (son "rounds" 1 "captions" 1 "title" 1))) )))

DBMS को एक क्वेरी बनाने में महत्वपूर्ण स्थान एक POST पैरामीटर के रूप में क्लाइंट से प्रेषित स्ट्रिंग से 12-तत्व वेक्टर की संख्या प्राप्त करने का कार्य है - फ्लेक्सी-स्ट्रीम: string-to-octets। परिणामी वेक्टर को ऑब्जेक्ट-आईडी क्लास के कंस्ट्रक्टर में रखा गया है।

खैर, निष्कर्ष में, उन लोगों के लिए भी जो कोशिश करना चाहते हैं ताकि लेखक की दिशा में कम अभिशाप हों, आम-लिस्प वातावरण में मोंगो-क्ल-ड्राइवर स्थापित करने की प्रक्रिया का बहुत संक्षिप्त विवरण प्रदान किया गया है। व्यवहार में, sbcl कार्यान्वयन का उपयोग किया गया था।

मोंगो-सीएल-ड्राइवर स्थापित करते समय, नौसिखिया लिस्प प्रोग्रामर, जिन्हें लेखक स्वयं संबंधित करता है, को संभवतः अघुलनशील समस्याएं हो सकती हैं।
इस सरल मंत्र के साथ मोंगो-सीएल-ड्राइवर स्थापित करता है:
(ql: क्विकलोड "मोंगो-सीएल-ड्राइवर")
आपके लिस्प वातावरण में, इस बिंदु पर, क्विक-लिस्प, लिस्प कार्यक्रमों को डाउनलोड करने और स्थापित करने के लिए सिस्टम को कॉन्फ़िगर किया जाना चाहिए। परियोजना की आधिकारिक वेबसाइट पर आप इसे डाल सकते हैं और इसे कैसे बना सकते हैं - www.quicklisp.org/beta
सबसे अधिक संभावना है, स्थापना प्रक्रिया के बीच में, एक अपवाद (पुनरारंभ) पॉप जाएगा, एक त्रुटि संदेश प्रसारित करता है कि एक अनसुलझे निर्भरता है - सीएल-ऊंट-केस।
हम इसे लेखक के mongo-cl-Driver से लेते हैं और विकी सेक्शन में अद्भुत साइट lisper.ru (एक सुंदर छिपकली के साथ) पर वर्णित तीन तरीकों में से एक का उपयोग करके स्थापित करते हैं
आशा है कि कुछ भी याद नहीं है। मैं केवल यह जोड़ूंगा कि पुस्तकालय का उपयोग एथलीटों और स्कीयर के लिए एक लेखक के संसाधन बनाने के लिए किया गया था। स्रोत उपलब्ध हैं

संसाधन के विकास के दौरान कुछ युक्तियों के लिए लेखक मोंगो-सीएल-चालक अभिलेखागार के लिए विशेष धन्यवाद। और शुभकामनाएँ, दोस्तों!

आम-लिस्प पर मोंगो डीबी प्रदाता के रूप में मोंगो-सीएल-चालक का उपयोग करना

More articles: