🍩 💔 ➗ एक उदाहरण के रूप में xkcd का उपयोग करके हास्केल के साथ एक वेब कॉमिक से एक पीडीएफ पुस्तक बनाने की कोशिश की जा रही है 🛢️ 🚑 🔵

लेख पढ़ने के बाद , मैंने यह जांचने का फैसला किया कि हास्केल इसके लिए कितना उपयुक्त है। मैं तुरंत यह कहना चाहूंगा कि हास्केल अपने आप में काफी अच्छी तरह से काम करता है, लेकिन hackage.haskell.org के माध्यम से चल रहा है, मुझे तुरंत पीडीएफ के साथ काम करने के लिए पुस्तकालयों के साथ समस्याएं मिलीं, जिसने पूर्ण कार्यान्वयन पर रोक लगा दी।

लेकिन मैंने फिर भी कुछ काम करने का फैसला किया ताकि यह दिखाया जा सके कि हास्केल में एक ही काम कैसे किया जा सकता है , अगर केवल ...

कॉमिक बुक की जानकारी प्राप्त करें

चूंकि हमें JSON के रूप में जानकारी का अनुरोध करना है, हम तुरंत एक उपयोगी फ़ंक्शन लिखेंगे:

rethrow :: ( Show e ) => Exceptional ea -> IO a<br> 
      

        
        
        
      

     rethrow = switch ( throwIO . userError . show ) return<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     jsonAt url = simpleHTTP ( getRequest url ) >>= getResponseBody >>= rethrow . decode_ json<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     str s = member_ ( literal s ) JSON . string<br> 
      

        
        
        
      

     num n = member_ ( literal n ) JSON . number<br>

rethrow

फ़ंक्शन एक अपवाद rethrow

फेंक rethrow

जब गलत तरीके से पार्सिंग, और str

और num

JSON में आवश्यक फ़ील्ड निर्दिष्ट करना आसान बना देगा।

फिर अंतिम कॉमिक और नंबर से कॉमिक प्राप्त करने के लिए कोड इस तरह दिखाई देगा:

comics = jsonAt "http://xkcd.com/info.0.json" >>= fmap ( fromIntegral . numerator ) . rethrow . decode_ ( num "num" ) <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     comic n = jsonAt ( concat [ "http://xkcd.com/" , show n , "/info.0.json" ] ) >>= rethrow . decode_ ( str "img" <&> str "title" ) <br>

decode_

फ़ंक्शन निर्दिष्ट पैटर्न के अनुसार प्राप्त डेटा को decode_

।

num "num"

के मामले में

num "num"

हमें JSON से एक संख्यात्मक सदस्य का नाम मिला है, जो

str "img" <&> str "title"

str "img" <&> str "title"

- क्रमशः चित्र और नाम के लिए दो पंक्तियों का बेवकूफ।

URL द्वारा चित्र प्राप्त करने का कोड:

image url = simpleHTTP ( getRequest url ) >>= getResponseBody<br>

डाउनलोड स्ट्रीम

हम एक अलग कार्य में एक कॉमिक का डाउनलोड लिखते हैं।

retrieve ch li = tryGet `onException` onFail where <br> 
      

        
        
        
      

     onFail = do <br> 
      

        
        
        
      

     writeChan ch ( i , Nothing ) <br> 
      

        
        
        
      

     writeLogger l Error $ "Comic " ++ show i ++ " failed to download" <br> 
      

        
        
        
      

     tryGet = do <br> 
      

        
        
        
      

     ( imgUrl , title ) <- comic i<br> 
      

        
        
        
      

     imgData <- image imgUrl<br> 
      

        
        
        
      

     jpg <- writeBinaryFile fname imgData >> readJpegFile fname >>= either ( throwIO . userError . show ) return<br> 
      

        
        
        
      

     writeChan ch ( i , Just ( jpg , title ) ) <br> 
      

        
        
        
      

     writeLogger l Info $ "Comic " ++ show i ++ " downloaded" <br> 
      

        
        
        
      

     fname = show i ++ ".jpg" <br>

यहां हमने ch

चैनल ( Control.Concurrent.Chan

) का उपयोग किया, जिससे हम डाउनलोड परिणाम भेजेंगे, साथ ही थ्रेड-सेफ लॉग l

।

एचपीडीएफ पुस्तकालय की वक्र के कारण, आपको पहले छवि को एक फ़ाइल में सहेजना होगा, और फिर इसे फिर से वहां से लोड करना होगा। यह मेरे लिए पूरी तरह से स्पष्ट नहीं है कि लेखक ने जेपीईजी को स्वयं खरोंच से (और यहां तक कि केवल एक फ़ाइल से) पार्स क्यों लिखा, लेकिन तैयार पुस्तकालय का उपयोग नहीं किया

पीडीएफ जनरेशन

अब यह एक फ़ंक्शन लिखने के लायक है जो चित्रों की सूची से परिणामी पीडीएफ उत्पन्न करेगा।

pdf imgs = runPdf "Xkcd.pdf" doc ( PDFRect 0 0 800 600 ) $ forM_ imgs genPage where <br> 
      

        
        
        
      

     genPage ( jpeg , title ) = do <br> 
      

        
        
        
      

     img <- createPDFJpeg jpeg<br> 
      

        
        
        
      

     page <- addPage Nothing <br> 
      

        
        
        
      

     drawWithPage page ( drawText ( text ( PDFFont Times_Roman 12 ) 0 0 ( toPDFString title ) ) >> drawXObject img ) <br> 
      

        
        
        
      

     doc = PDFDocumentInfo { <br> 
      

        
        
        
      

     author = toPDFString "xkcd" , <br> 
      

        
        
        
      

     subject = toPDFString "xkcd" , <br> 
      

        
        
        
      

     pageMode = UseNone , <br> 
      

        
        
        
      

     pageLayout = OneColumn , <br> 
      

        
        
        
      

     viewerPreferences = standardViewerPrefs , <br> 
      

        
        
        
      

     compressed = False } <br>

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

इसे एक साथ रखना

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

main = bracket ( newLogger Console ) closeLogger $ \ l -> do <br> 
      

        
        
        
      

     n <- comics<br> 
      

        
        
        
      

     writeLogger l Info $ "Number of comics to download: " ++ show n<br> 
      

        
        
        
      

     ch <- newChan<br> 
      

        
        
        
      

     mapM_ ( fork . retrieve ch l ) [ 1 .. n ] <br> 
      

        
        
        
      

     cts <- fmap ( take n ) $ getChanContents ch<br> 
      

        
        
        
      

     let imgs = catMaybes $ mapMaybe ( `lookup` cts ) [ 1 .. n ] <br> 
      

        
        
        
      

     pdf imgs `onException` ( writeLogger l Error "Unable to generate PDF" ) <br> 
      

        
        
        
      

     writeLogger l Info "PDF generated." <br>

bracket

फ़ंक्शन का using

करना समान है, यह सुनिश्चित करना कि लॉग बंद है।

mapM_ ( fork . retrieve ch l ) [ 1 .. n ] <br>

mapM_ ( fork . retrieve ch l ) [ 1 .. n ] <br>

हम प्रत्येक नंबर के लिए एक डाउनलोड स्ट्रीम बनाते हैं, अर्थात कॉल retrieve ch li

करें retrieve ch li

एक अलग थ्रेड में।

fmap ( take n ) $ getChanContents ch<br>

पहले n

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

फिर हम क्रम में प्रत्येक सूचकांक के साथ, 1

से n

तक lookup

फ़ंक्शन का उपयोग करते हैं। यह एक आलसी सूची के रूप में अच्छी तरह से प्राप्त करने के लिए आवश्यक है, लेकिन जिसमें चित्र क्रम में सख्ती से चलते हैं। इस प्रकार, हम हमेशा सही क्रम में चित्र लिखेंगे।

पूरी लिस्टिंग

main = bracket ( newLogger Console ) closeLogger $ \ l -> do <br> 
      

        
        
        
      

     n <- comics<br> 
      

        
        
        
      

     writeLogger l Info $ "Number of comics to download: " ++ show n<br> 
      

        
        
        
      

     ch <- newChan<br> 
      

        
        
        
      

     mapM_ ( fork . retrieve ch l ) [ 1 .. n ] <br> 
      

        
        
        
      

     cts <- fmap ( take n ) $ getChanContents ch<br> 
      

        
        
        
      

     let imgs = catMaybes $ mapMaybe ( `lookup` cts ) [ 1 .. n ] <br> 
      

        
        
        
      

     pdf imgs `onException` ( writeLogger l Error "Unable to generate PDF" ) <br> 
      

        
        
        
      

     writeLogger l Info "PDF generated." <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     retrieve ch li = tryGet `onException` onFail where <br> 
      

        
        
        
      

     onFail = do <br> 
      

        
        
        
      

     writeChan ch ( i , Nothing ) <br> 
      

        
        
        
      

     writeLogger l Error $ "Comic " ++ show i ++ " failed to download" <br> 
      

        
        
        
      

     tryGet = do <br> 
      

        
        
        
      

     ( imgUrl , title ) <- comic i<br> 
      

        
        
        
      

     imgData <- image imgUrl<br> 
      

        
        
        
      

     jpg <- writeBinaryFile fname imgData >> readJpegFile fname >>= either ( throwIO . userError . show ) return<br> 
      

        
        
        
      

     writeChan ch ( i , Just ( jpg , title ) ) <br> 
      

        
        
        
      

     writeLogger l Info $ "Comic " ++ show i ++ " downloaded" <br> 
      

        
        
        
      

     fname = show i ++ ".jpg" <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     pdf imgs = runPdf "Xkcd.pdf" doc ( PDFRect 0 0 800 600 ) $ forM_ imgs genPage where <br> 
      

        
        
        
      

     genPage ( jpeg , title ) = do <br> 
      

        
        
        
      

     img <- createPDFJpeg jpeg<br> 
      

        
        
        
      

     page <- addPage Nothing <br> 
      

        
        
        
      

     drawWithPage page ( drawText ( text ( PDFFont Times_Roman 12 ) 0 0 ( toPDFString title ) ) >> drawXObject img ) <br> 
      

        
        
        
      

     doc = PDFDocumentInfo { <br> 
      

        
        
        
      

     author = toPDFString "voidex" , <br> 
      

        
        
        
      

     subject = toPDFString "xkcd" , <br> 
      

        
        
        
      

     pageMode = UseNone , <br> 
      

        
        
        
      

     pageLayout = OneColumn , <br> 
      

        
        
        
      

     viewerPreferences = standardViewerPrefs , <br> 
      

        
        
        
      

     compressed = False } <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     rethrow :: ( Show e ) => Exceptional ea -> IO a<br> 
      

        
        
        
      

     rethrow = switch ( throwIO . userError . show ) return<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     jsonAt url = simpleHTTP ( getRequest url ) >>= getResponseBody >>= rethrow . decode_ json<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     str s = member_ ( literal s ) JSON . string<br> 
      

        
        
        
      

     num n = member_ ( literal n ) JSON . number<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     comics = jsonAt "http://xkcd.com/info.0.json" >>= fmap ( fromIntegral . numerator ) . rethrow . decode_ ( num "num" ) <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     comic n = jsonAt ( concat [ "http://xkcd.com/" , show n , "/info.0.json" ] ) >>= rethrow . decode_ ( str "img" <&> str "title" ) <br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     image url = simpleHTTP ( getRequest url ) >>= getResponseBody<br> 
      

        
        
        
      

     <br> 
      

        
        
        
      

     writeBinaryFile fname str = withBinaryFile fname WriteMode ( \ h -> hPutStr h str ) <br>

दुर्वचन

दुर्भाग्य से, पीडीएफ के साथ काम करने के लिए एक सभ्य पुस्तकालय की कमी के कारण, परिणाम का भुगतान नहीं हुआ।

अधिकांश छवियां एचपीडीएफ स्वीकार करने से इनकार करती हैं (जेपीईजी अपलोड के एक और साइकिल कार्यान्वयन के लिए धन्यवाद), मुझे छवियों की स्केलिंग भी समझ में नहीं आई।

प्रशंसा

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

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

सामान्य तौर पर, hackage.haskell.org को देखें , आवश्यक लाइब्रेरी देखें, और यदि आप पाते हैं, तो हास्केल में सब कुछ लिखने का मौका न चूकें!

एक उदाहरण के रूप में xkcd का उपयोग करके हास्केल के साथ एक वेब कॉमिक से एक पीडीएफ पुस्तक बनाने की कोशिश की जा रही है