प्रोग्रामिंग भाषा और डेटाबेस क्यू: वाक्यविन्यास उद्यम में एक भूमिका नहीं निभाता है

मोबाइल के लिए नया टैरिफ प्लान चुनने की जरूरत थी। एक्सेल और गूगल-डॉक्स के साथ लगभग 30 मिनट बिताने के लिए, यह स्पष्ट हो गया कि समझदार कुछ भी नहीं आ सकता है और आप नायब के बिना नहीं कर सकते।

थोड़ा सोचने के बाद, हाथ ने खुद "क्यू" टाइप किया, क्योंकि यह कंप्यूटर पर केवल यहाँ और अब उपलब्ध था। उसके बारे में उसे क्या पता था: एक साल पहले और आखिरी बार, 30 मिनट के लिए, फ़ाइल को पार्स करने और खोजने के एक सरल कार्य के लिए उसने क्या लॉन्च किया था।

फिर बहुत सारे q होंगे, अर्थात् ascii, APL भाषाओं और स्कीम के एक उप-समूह के अनुयायी, अर्थात् k और उसके विस्तार k-sql, जिसे Q - नाम के साथ एक उत्पाद में विकृत किया गया है - भाषा का एक तंग कनेक्शन और इसमें निर्मित डेटाबेस।

C:\Users\unknown\Dropbox\j>q KDB+ 3.0 2013.02.06 Copyright (C) 1993-2013 Kx Systems w32/ 2()core 2972MB unknown win-d2om7les24v 192.168.1.2 PLAY 2013.05.07 

गीत के कुछ अंश: मैं ऑपरेटर की साइट से सीएसवी में रिपोर्ट डाउनलोड करता हूं और शीर्षक को थोड़ा समायोजित करता हूं:

 ; ;tel;time;-; ;money; ;    ;22.02.2013 20:38:14;79064014328;00:00:13;0;114,9175;0,0000;114,9175;  ;22.02.2013 20:03:49;79094445182;00:12:05;0;114,9175;0,0000;114,9175;    ;22.02.2013 17:04:39;79064014328;00:01:15;0;115,8175;-0,9000;114,9175;    ;22.02.2013 13:18:22;79064014328;00:01:36;0;116,7175;-0,9000;115,8175;    ;22.02.2013 01:35:00;;00:00:00;0;119,3675;-2,6500;116,7175;  ;21.02.2013 23:40:42;*102;00:00:01;0;119,3675;0,0000;119,3675; 

फिर हम मैनुअल को पढ़ते हैं, एक टेक्स्ट फ़ाइल 0 : , को पढ़ते हुए समानांतर में आप कॉलम में प्रारूप और विभाजक को बाईं ओर फ़ील्ड में फ़ाइल को विभाजित कर सकते हैं, यदि विभाजक एक सूची है, तो तालिका कॉलम को पहली पंक्ति से नाम दिया जाएगा। हम केवल आवश्यक फ़ील्ड का चयन करते हैं, दो बार और तालिका तैयार है।

जो लोग डेटा तैयारी के बारे में पढ़ने के साथ ऊब रहे हैं वे सही डेटा विश्लेषण में कूद सकते हैं।

 q)clog:select tel,time,money from ("SSSTSSSS";enlist ";") 0: `:tel.txt q)clog tel time money --------------------------------- 79064014328 00:00:31.000 0,0000 79263883922 00:02:06.000 0,0000 79064014328 00:01:15.000 -0,9000 79064014328 00:01:36.000 -0,9000 00:00:00.000 -2,6500 *102 00:00:01.000 0,0000 .. 

चूंकि क्यू एक वेक्टर डेटाबेस है, तो अनिवार्य रूप से क्लॉग एक शब्दकोश है, कॉलम नाम मूल्यों की एक सूची है।

 q)clog.money `0,0000`0,0000`-0,9000`-0,9000`-2,6500`0,0000`0,0000`0,0000`0,0000`0,0000`-0,.. 

मैं डेटा को थोड़ा तैयार करूंगा। यह देखा जा सकता है कि पैसा एक संख्यात्मक प्रारूप में नहीं है, यह संख्या में परिवर्तित करने के लिए आवश्यक होगा: ssr एक ओरेकल रिप्लेसमेंट है। शब्द $ (कास्ट) विभिन्न रूपांतरणों और प्रकार के रूपांतरणों से संबंधित है, इस मामले में यह एक स्ट्रिंग से एक संख्या पढ़ता है:

प्रत्येक एक नक्शा है

 {"F"$ssr[string x;",";"."]} each clog.money 

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

 q)update string tel, {"F"$ssr[string x;",";"."]} each money from `clog `clog 

इस q-sql में लगभग सभी शब्द सिंटैक्टिक चीनी के एक छोटे हिस्से के साथ साधारण कार्य हैं। उन्हें अलग से इस्तेमाल किया जा सकता है, उदाहरण के लिए, जहां बिट स्ट्रिंग को अनुक्रमित की सूची में परिवर्तित किया जाता है।

तुलना सूचियों के साथ काम करता है। परिणाम एक बिट स्ट्रिंग है जहां से यह सूचकांक, अच्छी तरह से निकालता है, और इन सूचकांकों से चयन तालिका से संबंधित सूची आइटम निकालता है।

 q)15<40 10 20 30 1011b q)where 15<40 10 20 30 0 2 3 

फ़ाइल में विभिन्न सेवाओं के इनकमिंग और आउटगोइंग कॉल और भुगतान दोनों शामिल हैं, मैं उन पंक्तियों का चयन करता हूं जहां पैसे पर डेबिट किया गया था और एक फोन नंबर है और इस पुराने नाम को असाइन करें:

 q)clog:select from clog where money<0,not tel like "" q)clog tel time money -------------------------------- "79064014328" 00:01:15.000 -0.9 "79064014328" 00:01:36.000 -0.9 "79064014328" 00:01:33.000 -0.9 "79104652109" 00:01:23.000 -11.9 "79265996349" 00:00:12.000 -5.95 .. 

हम उन कोड को निर्धारित करते हैं जो बाद में ऑपरेटरों द्वारा वर्गीकृत किए जाते हैं:

थोड़ी देर बाद, मुझे एहसास हुआ कि मुझे एक फ़ंक्शन में कोड निष्कर्षण खींचने की आवश्यकता है।

 q)gcode:1_ 4# / get code from tel q)gcode each clog.tel "906" "906" "906" "910" "926" .. 

 q)distinct gcode each clog.tel "906" "910" "926" .. 

यहां निष्पादन के साथ एक अधिक sql जैसी प्रविष्टि है। निष्पादन एक ही चयन है, लेकिन जो तालिका के शब्दकोश को वापस नहीं करता है, लेकिन क्वेरी या तालिका के परिणाम के मूल्यों या मूल्य को लौटाता है।

 q)codes:exec distinct gcode each tel from clog q)codes "906" "910" "926" .. 

इसके बाद, शब्दकोशों पर जाएं, उनका वर्णन बस <चाबियाँ> है! <मान>। मैं एक शब्दकोश कोड बनाता हूं <> ऑपरेटर।

 q)ops:codes ! `beeline`mts`megafon`beeline`mts`beeline`beeline`mts`moscow q)ops "906"| beeline "910"| mts "926"| megafon "909"| beeline "495"| moscow .. 

कई टैरिफ एक मिनट तक पूरी तरह से गोल हो जाते हैं, मैं सुविधा के लिए एक क्षेत्र में प्रवेश करता हूं, जो कि बस एक पूरी संख्या में मिनट होगा। मैं इसे तालिका में सहेजता नहीं हूं, मुझे बस परिणाम मिलता है, बाद में मैं इस क्षेत्र के साथ एक दृश्य बनाऊंगा। मिलीसेकंड में समय, इसलिए मैं 1000 से विभाजित करता हूं।

 q)update ctime:ceiling (time%1000)%60 from clog tel time money ctime -------------------------------------- "79064014328" 00:01:15.000 -0.9 2 "79064014328" 00:01:36.000 -0.9 2 "79064014328" 00:01:33.000 -0.9 2 "79104652109" 00:01:23.000 -11.9 2 "79265996349" 00:00:12.000 -5.95 1 .. 

मैं एक ऑपरेटर और पूरे मिनट के साथ एक दृश्य बनाता हूं, अगर मैंने टी लिखा है: मैं एक टेबल टी बनाऊंगा। मैं आपको याद दिलाता हूं कि अपडेट मूल कॉलम को बचाता है।

 q)t::update op:ops@gcode each tel, ctime:ceiling (time%1000)%60 from clog q)t tel time money op ctime ---------------------------------------------- "79064014328" 00:01:15.000 -0.9 beeline 2 "79064014328" 00:01:36.000 -0.9 beeline 2 "79064014328" 00:01:33.000 -0.9 beeline 2 "79104652109" 00:01:23.000 -11.9 mts 2 "79265996349" 00:00:12.000 -5.95 megafon 1 .. 

मुझे अपनी जरूरत की हर चीज टाइप हो गई है, मैं सिर्फ एक मामले में फ़ाइल के लिए टी के परिणाम को सहेजता हूं, यह पाठ्यक्रम के देखने और विवरण को बचाने के लिए अधिक सही होगा, लेकिन आलस्य:

 q)save `:t `:t 

उपरोक्त सभी सिर्फ डेटा तैयारी है, अब थोड़ा और दिलचस्प है: पार्सिंग।



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

 q)select ctime by tel from t tel | ctime .. -------------| --------------------------------------------------------------.. "74956471602"| ,1 .. "79031398210"| 7 3 .. "7903X" | ,2 .. "79064014328"| 2 2 2 2 1 2 1 1 1 3 1 2 2 3 1 1 1 1 2 2 3 3 3 1 3 2 1 1 0 2 1 .. .. 

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

 q)desc select sum ctime by tel from t tel | ctime -------------| ----- "79064014328"| 126 "79094445182"| 36 "79652650530"| 30 .. 

यह देखते हुए कि एक नंबर पर कई कॉल थे, मैंने "पसंदीदा नंबर" कॉलम जोड़ा, थोड़ी देर बाद मैंने ऑपरेटर के क्षेत्र में इसे इंगित करने का फैसला किया, पुराने दृश्य को एक नया नाम सौंपा, और "टी" अब पुराने के आधार पर एक नया दृश्य है:

 q)t2::update op:ops@gcode each tel, ctime:ceiling (time%1000)%60 from clog q)t::update op:`lub from t2 where tel like "79064014328" q)t tel time money op ctime ---------------------------------------------- "79064014328" 00:01:15.000 -0.9 lub 2 "79064014328" 00:01:36.000 -0.9 lub 2 "79064014328" 00:01:33.000 -0.9 lub 2 "79104652109" 00:01:23.000 -11.9 mts 2 "79265996349" 00:00:12.000 -5.95 megafon 1 .. 

अब यह पैसे के बारे में सोचने का समय है, विशेष रूप से मेगाफोन टैरिफ के बारे में।

वहाँ 3 kopecks हैं, यह समारोह का वर्णन करने के लिए आसान है:

 q)meg3:{0.03*sum x} 

आइए देखें कि प्रत्येक ऑपरेटर के लिए पैसे क्या हैं:

 q)select meg3 time%1000 by op from t op | time -------| ------ beeline| 111.93 lub | 148.05 megafon| 29.1 moscow | 0.93 mts | 24.45 

आपको टैरिफ विकल्प दर्ज करने की आवश्यकता है, यदि संख्या `लब है, तो कीमत को दो से विभाजित करें और 30 पी जोड़ें।

 q)lub:{$[x=`lub;30+y%2;y]} / [op;time] 

यह सब, गणना के लिए कार्य निम्नलिखित होगा, यहाँ लब के लिए करी का उपयोग किया गया है:

 q){lub[x] meg3[y]} 

दुर्भाग्य से, मुझे यह पता नहीं चला कि फ़ंक्शन के द्वारा "द्वारा" परिणाम की कुंजी और मान कैसे पास किया जाता है, इसलिए मैं इसे एक उपश्रेणी के रूप में प्रारूपित करता हूं। चूंकि op और time एक टेबल से एक पंक्ति के दो मान नहीं हैं, जैसा कि नियमित db में, संपूर्ण सूचियाँ (इस मामले में, एक सूची और सूचियों की सूची) को फ़ंक्शन में स्थानांतरित किया जाएगा, लेकिन ऊपर वर्णित फ़ंक्शन केवल दो मापदंडों की अपेक्षा करता है: ऑपरेटर और समय की एक सूची, इसलिए यह प्रत्येक फ़ंक्शन को उपयोग करने जा रहा है, जिसे '(उद्धरण चिह्न), अनिवार्य रूप से ज़िपविथ द्वारा निरूपित किया जाता है, लेकिन सूची की संख्या को सीमित किए बिना। नियमित db के विपरीत अनुरोध केवल 'द्वारा जटिल है:

 q)select money:{lub[x] meg3[y]}'[op;time] from select time%1000 by op from t money ------ 259.98 29.1 0.93 24.45 

सारांश यह है कि, आप निष्पादन योग और योग निष्पादन दोनों को लिख सकते हैं - परिणाम संक्षेप में निष्पादित या निष्पादित होता है, परिणाम - यह एक भूमिका नहीं निभाता है:

 q)exec sum {lub[x] meg3[y]}'[op;time] from select time%1000 by op from t 314.46 

यह स्पष्ट है कि मैं इस टैरिफ पर स्विच करने में कितना खर्च करूंगा। अब एक और गणना करते हैं, जहां मिनट को गोल किया जाता है, और फिर दूसरे पर। आपको प्रत्येक निर्दिष्ट समय के लिए गणना करनी होगी, जो मैं प्रत्येक का उपयोग कर रहा हूं:

 q)mego:sum {1.20+$[x<=60;0;1.20*(x-60)%60]} each q)exec sum {lub[x] mego[y]}'[op;time] from select time%1000 by op from t 258.06 

पूर्ण कोड:

 clog:select tel,time,money from ("SSSTSSSS";enlist ";") 0: `:tel.txt {"F"$ssr[string x;",";"."]} each clog.money update string tel, {"F"$ssr[string x;",";"."]} each money from `clog clog:select from clog where money<0,not tel like "" gcode:1_ 4# codes:exec distinct gcode each tel from clog ops:codes ! `beeline`mts`megafon`beeline`mts`beeline`beeline`mts`moscow t2::update op:ops@gcode each tel, ctime:ceiling (time%1000)%60 from clog t::update op:`lub from t2 where tel like "79064014328" meg3:{0.03*sum x} mego:sum {1.20+$[x<=60;0;1.20*(x-60)%60]} each lub:{$[x=`lub;30+y%2;y]} exec sum {lub[x] meg3[y]}'[op;time] from select time%1000 by op from t exec sum {lub[x] mego[y]}'[op;time] from select time%1000 by op from t 

इस पाठ को बनाना इन 14 पंक्तियों को लिखने से कहीं अधिक कठिन था। यह स्पष्ट है कि ऐसी चीजें नहीं हैं जो किसी अन्य डेटाबेस के लिए असंभव हैं, लेकिन उपयोग की सादगी और कुछ निर्माणों को लिखने की स्पष्टता ने मुझे यह लिखने में मदद की। शुरुआत में नियमित एसक्यूएल से स्विच करना थोड़ा मुश्किल था, लेकिन यह महसूस करने के बाद कि तालिका यहां डेटा को सूचियों में संग्रहीत करती है, और फ़ंक्शन, एक नियम के रूप में, लगभग किसी भी अंतर्निहित डेटा प्रकारों के साथ काम करते हैं, यह बहुत अधिक स्पष्ट हो गया। यह इस db के कार्यान्वयन की मुहावरेदार सादगी और सहजता है, और वास्तव में यह योजना और एपीएल का मिश्रण है जो आपको इस उपकरण का प्रभावी ढंग से उपयोग करने की अनुमति देता है। इसके प्रभाव APL और कार्यक्षमता हैं, जिन्हें sql और डेटाबेस की ओर स्थानांतरित किया गया है।

पूरे डेटाबेस में एक q.exe फ़ाइल, ~ 400kb आकार में है। स्केप्टिक्स उसके बाद मुस्कुराएंगे, लेकिन फिर इस उत्पाद की ग्राहक सूची को देखें http://kx.com/end-user-customers.php ।
आप इसे यहां डाउनलोड करके http://kx.com/software-download.php पर खेल सकते हैं