👦🏾 ⚫️ 🌉 हैपस्टैक लाइट: हास्केल वेब फ्रेमवर्क 👱🏿 🐰 👩🏻‍🤝‍👨🏾

ध्यान आकर्षित करने के लिए एक तस्वीर, क्लॉकर्स एक वेब फ्रेमवर्क है जो हैपस्टैक से निकटता से जुड़ा हुआ है।

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

प्रस्तावना

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

हमने सभी मूल प्रकारों और कार्यों को संकलित किया है, जिन्हें आपको एक एकल Happstack.Lite मॉड्यूल में एक वेब एप्लिकेशन विकसित करने की आवश्यकता है, इसलिए आपको उस मॉड्यूल को परिमार्जन करने की आवश्यकता नहीं है जो आपको चाहिए।
उन्होंने कार्यों को बहुत सरल हस्ताक्षर दिए, मोनड ट्रांसफार्मर को नष्ट कर दिया और अधिकांश प्रकार की कक्षाओं से छुटकारा पा लिया।
इस ट्यूटोरियल को बनाया गया है, जिसमें 2,000 से भी कम शब्दों में वेब एप्लिकेशन लिखना शुरू करने के लिए उन सभी बुनियादी बातों का वर्णन किया गया है, जिन्हें आपको जानना आवश्यक है।

लेकिन सबसे महत्वपूर्ण बात - हैपस्टैक लाइट हैपस्टैक के साथ लगभग पूरी तरह से संगत है! यदि आप हैपस्टैक लाइट पर एक एप्लिकेशन विकसित कर रहे हैं, और आपको हैपस्टैक से एक उन्नत सुविधा की आवश्यकता है, तो आप बस संबंधित मॉड्यूल को आयात कर सकते हैं और इसका उपयोग कर सकते हैं।
हैपस्टैक लाइट से एक परियोजना को नियमित रूप से स्थानांतरित करने के लिए, आपको केवल 4 छोटे बदलाव करने होंगे:

import Happstack.Lite साथ बदलें
serve Nothing simpleHTTP nullConf साथ बदलें
import Control.Monad (msum) जोड़ें। import Control.Monad (msum)
स्पष्ट decodeBody जोड़ें ( विवरण )

जबकि हैप्पस्टैक लाइट नियमित हैपसैक की तुलना में हल्का है, यह अभी भी अन्य हास्केल वेब फ्रेमवर्क के साथ पूरी तरह कार्यात्मक ढांचा है।

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

गहरी नज़र के लिए, आप हैपस्टैक क्रैश कोर्स पढ़ सकते हैं ( यदि मैं इसमें अनुवाद करुँ तो इस पर रुचि व्यक्त की जाएगी - लगभग प्रति ) ।

सर्वर शुरू

सबसे पहले, हमें भाषा एक्सटेंशन की एक जोड़ी चाहिए:

 {-# LANGUAGE OverloadedStrings, ScopedTypeVariables #-}

अब हम कुछ पुस्तकालयों को जोड़ेंगे:

 module Main where import Control.Applicative ((<$>), optional) import Data.Maybe (fromMaybe) import Data.Text (Text) import Data.Text.Lazy (unpack) import Happstack.Lite import Text.Blaze.Html5 (Html, (!), a, form, input, p, toHtml, label) import Text.Blaze.Html5.Attributes (action, enctype, href, name, size, type_, value) import qualified Text.Blaze.Html5 as H import qualified Text.Blaze.Html5.Attributes as A

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

 main :: IO () main = serve Nothing myApp

वेब एप्लिकेशन टाइप ServerPart Response । आप ServerPart IO ServerPart वेब समकक्ष के रूप में देख सकते हैं।

( डिफ़ॉल्ट रूप से, पोर्ट 8000 का उपयोग किया जाता है, यानी आप अपना आवेदन http: // localhost: 8000 / - लगभग पर देख सकते हैं।

स्थैतिक पते

यहाँ हमारे वेब अनुप्रयोग है:

 myApp :: ServerPart Response myApp = msum [ dir "echo" $ echo , dir "query" $ queryParams , dir "form" $ formPage , dir "fortune" $ fortune , dir "files" $ fileServing , dir "upload" $ upload , homePage ]

इसके सबसे सामान्य रूप में, हमारे एप्लिकेशन में कुछ ही हैंडलर हैं जो स्थैतिक पते पर मैप किए जाते हैं।

dir उपयोग किया जाता है ताकि हैंडलर तभी चले जब स्थैतिक पथ घटकों को सफलतापूर्वक मैप किया जाए। उदाहरण के लिए, dir "echo" सफलतापूर्वक पते के साथ काम करेगा localhost:8000/echo localhost:8000/echo । एक हैंडलर को "/foo/bar" के पते पर असाइन करने के लिए, बस dir "foo" $ dir "bar" $ handler लिखें।

क्रमिक रूप से प्रत्येक हैंडलर को लागू करने का प्रयास किया जाता है जब तक कि उनमें से एक भी सफल परिणाम नहीं देता। इस मामले में, Response ।

हम msum का उपयोग करके हैंडलर की सूची को एकल में msum ।

अंतिम हैंडलर - homePage - किसी भी चीज तक सीमित नहीं है ( यह उस पर लागू नहीं है - लगभग। ), इसलिए इसे हमेशा कहा जाएगा यदि कोई भी अन्य हैंडलर सफलतापूर्वक काम नहीं करता है।

HTML टेम्पलेट

चूंकि हम एक वेब एप्लिकेशन बना रहे हैं, इसलिए हमें HTML पेज बनाने होंगे। हम ब्लेज़ का उपयोग करके ऐसा कर सकते हैं, जिसमें एक ट्यूटोरियल भी है।

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

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

 template :: Text -> Html -> Response template title body = toResponse $ H.html $ do H.head $ do H.title (toHtml title) H.body $ do body p $ a ! href "/" $ " "

तब मुख्य पृष्ठ इस तरह दिखता है:

 homePage :: ServerPart Response homePage = ok $ template " " $ do H.h1 "!" Hp "   Happstack Lite   !" Hp "   :" Hp $ a ! href "/echo/secret%20message" $ "" Hp $ a ! href "/query?foo=bar" $ " " Hp $ a ! href "/form" $ " " Hp $ a ! href "/fortune" $ "- ()" Hp $ a ! href "/files" $ "  " Hp $ a ! href "/upload" $ " "

पृष्ठ के लिए ok फ़ंक्शन HTTP कोड "200 OK" सेट करता है। अन्य सहायक कार्य भी हैं, उदाहरण के लिए, notFound कोड को "404 Not Found" पर seeOther , seeOther को "303 अन्य देखें" के लिए seeOther है। HTTP कोड को एक नंबर से सेट करने के लिए setResponseCode उपयोग किया जाता है।

पते के गतिशील हिस्से

dir फ़ंक्शन केवल पते के स्थिर भाग से मेल खाता है। हम एड्रेस के डायनेमिक हिस्से से वैल्यू निकालने के लिए path फंक्शन का उपयोग कर सकते हैं और इसे वैकल्पिक रूप से कुछ प्रकार में परिवर्तित कर सकते हैं, जैसे Integer इस उदाहरण में, हम बस पथ के गतिशील भाग को प्रदर्शित करते हैं। यात्रा की जाँच करने के लिए http: // localhost: 8000 / गूंज / शानदार

 echo :: ServerPart Response echo = path $ \(msg :: String) -> ok $ template "" $ do p $ "  : " >> toHtml msg p "  ,     - ."

अनुरोध पैरामीटर

हम स्ट्रिंग क्वेरी पैरामीटर के मान भी प्राप्त कर सकते हैं। क्वेरी स्ट्रिंग उस पते का हिस्सा है जो " ?foo=bar " जैसा दिखता है। Http: // localhost: 8000 / query; Foo = bar पर जाकर देखें

 queryParams :: ServerPart Response queryParams = do mFoo <- optional $ lookText "foo" ok $ template " " $ do p $ "foo = " >> toHtml (show mFoo) p $ "  ,     foo."

यदि क्वेरी पैरामीटर सेट नहीं है, तो lookText फ़ंक्शन mzero । इस उदाहरण में, हम Control.Applicative मॉड्यूल से optional उपयोग करते हैं, ताकि अंत में हमें प्रकार का मान मिल सके।

आकार

हम रूपों से डेटा प्राप्त करने के लिए lookText का उपयोग कर सकते हैं।

 formPage :: ServerPart Response formPage = msum [ viewForm, processForm ] where viewForm :: ServerPart Response viewForm = do method GET ok $ template "form" $ form ! action "/form" ! enctype "multipart/form-data" ! A.method "POST" $ do label ! A.for "msg" $ " - " input ! type_ "text" ! A.id "msg" ! name "msg" input ! type_ "submit" ! value "" processForm :: ServerPart Response processForm = do method POST msg <- lookText "msg" ok $ template "form" $ do Hp " :" Hp (toHtml msg)

हम फॉर्म से डेटा प्राप्त करने के लिए पिछले पैराग्राफ में उसी lookText फ़ंक्शन का उपयोग करते हैं। आप यह भी देख सकते हैं कि हम GET और POST अनुरोधों के बीच अंतर करने के लिए method फ़ंक्शन का उपयोग करते हैं।
जब उपयोगकर्ता प्रपत्र को देखता है, तो ब्राउज़र GET का उपयोग करके /form पेज का अनुरोध करता है। HTML form टैग में, एक बटन के क्लिक पर एक क्रिया के रूप में, हमने उसी पृष्ठ को खोलने का संकेत दिया, लेकिन विशेषता का उपयोग करके हमने POST विधि को चुना।

कुकीज़! (HTTP कुकीज़)

यह उदाहरण कुकीज़ में संदेश संग्रहीत करके प्रपत्र के साथ उदाहरण प्रस्तुत करता है। इसका अर्थ है कि उपयोगकर्ता पृष्ठ छोड़ सकता है, और जब वह वापस आएगा, तो पृष्ठ सहेजे गए संदेश को याद रखेगा।

 fortune :: ServerPart Response fortune = msum [ viewFortune, updateFortune ] where viewFortune :: ServerPart Response viewFortune = do method GET mMemory <- optional $ lookCookieValue "- ()" let memory = fromMaybe "      -!" mMemory ok $ template "fortune" $ do Hp "   - ():" Hp (toHtml memory) form ! action "/fortune" ! enctype "multipart/form-data" ! A.method "POST" $ do label ! A.for "fortune" $ "  : " input ! type_ "text" ! A.id "fortune" ! name "new_fortune" input ! type_ "submit" ! value "" updateFortune :: ServerPart Response updateFortune = do method POST fortune <- lookText "new_fortune" addCookies [(Session, mkCookie "fortune" (unpack fortune))] seeOther ("/fortune" :: String) (toResponse ())

( मैं किसी तरह HTTP- कुकी और भाग्य कुकी - लगभग प्रति के बीच की सजा को नहीं बचा सका। )

पिछले उदाहरण की तुलना में, थोड़ा नया दिखाई दिया है:

lookCookieValue के समान ही काम करता है, एकमात्र अंतर यह है कि यह कुकीज़ में मूल्य खोजता है, क्वेरी पैरामीटर या फ़ॉर्म नहीं।
addCookies ब्राउज़र में कुकीज़ भेजता है और इसके निम्न प्रकार होते हैं: addCookies :: [(CookieLife, Cookie)] -> ServerPart ()
CookieLife निर्धारित करता है कि कब तक कुकीज़ मौजूद हैं और सही मानी जाती हैं। जब तक ब्राउज़र विंडो बंद नहीं हो जाती तब तक Session अर्थ कुकीज़ के लिए जीवनकाल है।
mkCookie कुकी के नाम, उसके मूल्य को स्वीकार करता है और एक Cookie बनाता है।
seeOther (यानी, 303 रीडायरेक्ट) ब्राउज़र को /fortune पृष्ठ पर एक नया GET अनुरोध करने के लिए कहता है।

फ़ाइल का उपयोग

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

 fileServing :: ServerPart Response fileServing = serveDirectory EnableBrowsing ["index.html"] "."

पहला तर्क यह निर्धारित करता है कि क्या serveDirectory निर्देशिका में फ़ाइलों की एक सूची तैयार serveDirectory ताकि उन्हें देखा जा सके।
दूसरा तर्क सूचकांक फ़ाइलों की एक सूची है। यदि उपयोगकर्ता निर्देशिका को देखने के लिए कहता है और इसमें अनुक्रमणिका फ़ाइल है, तो फ़ाइलों की सूची के बजाय इसे प्रदर्शित किया जाएगा।
तीसरा तर्क उस निर्देशिका का मार्ग है जहां तक पहुंच प्रदान की जाती है। इस उदाहरण में, हम वर्तमान निर्देशिका तक पहुँच प्रदान करते हैं।

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

फ़ाइल स्थान

सर्वर पर फाइल अपलोड करने की प्रक्रिया काफी सरल है। हम पिछले उदाहरण के रूप में फॉर्म बनाते हैं, लेकिन lookText बजाय lookText उपयोग lookFile ।

 upload :: ServerPart Response upload = msum [ uploadForm , handleUpload ] where uploadForm :: ServerPart Response uploadForm = do method GET ok $ template " " $ do form ! enctype "multipart/form-data" ! A.method "POST" ! action "/upload" $ do input ! type_ "file" ! name "file_upload" ! size "40" input ! type_ "submit" ! value "upload" handleUpload :: ServerPart Response handleUpload = do (tmpFile, uploadName, contentType) <- lookFile "file_upload" ok $ template " " $ do p (toHtml $ " : " ++ tmpFile) p (toHtml $ " : " ++ uploadName) p (toHtml $ " : " ++ show contentType)

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

ज्यादातर मामलों में, उपयोगकर्ता केवल हटाए जाने के लिए फ़ाइल डाउनलोड नहीं करना चाहता है। आमतौर पर, एक moveFile या copyFile हैंडलर में फाइल को उसके स्थायी स्थान पर ले जाने (या कॉपी) करने के लिए कहा जाता है।

अनुवादक से

लेख के लेखक हास्केल भाषा के बुनियादी ज्ञान की उपस्थिति को मानते हैं। हैपस्टैक को स्थापित करने के लिए, साइट पर दिए गए निर्देशों का उपयोग करें।

यदि आप इस ढांचे में रुचि रखते हैं, तो मेरा सुझाव है कि आप अपने पूर्ण संस्करण (एक कोर्स जिस पर मैं भी अनुवाद करने जा रहा हूं) के साथ-साथ इसके आधार पर अपने आप को परिचित कराऊंगा । अच्छा विकास किया है!

हैपस्टैक लाइट: हास्केल वेब फ्रेमवर्क