Leggi le righe da un file all'interno di un archivio zip usando il conduit zip di Haskell

Question

Come dice il titolo, mi piacerebbe poter leggere le righe da un file che si trova all'interno di un archivio zip, usando zip-conduit (i file zip Ho a che fare con lo molto grande, quindi devo essere in grado di farlo in memoria costante). Faccio schifo all'idea di base dei conduit, ma non li ho mai usati per la rabbia, e mi sento abbastanza bloccato da dove cominciare. Ho letto il tutorial sui conduit, ma sto riscontrando problemi nell'abbinamento con il mio problema.

La documentazione zip-condotto dice una possibile fonte da un archivio zip con qualcosa di simile a quanto segue:

import qualified Data.Conduit.Binary as CB 
import Codec.Archive.Zip 

withArchive archivePath $ do 
    name:_ <- entryNames 
    sourceEntry name $ CB.sinkFile name 

Presumo quello che devo fare è scrivere qualcosa al posto di CB.sinkFile. Data.Conduit.Text ha una funzione lines - potrebbe essere utilizzata in qualche modo per estrarre le righe dal file?

Apprezzerei molto un semplice esempio, ad esempio utilizzando putStrLn per scrivere le righe di un semplice file di testo archiviato all'interno di un file zip. Grazie in anticipo.

Answer 1

risposta di Michael, ma con zip-conduit:

import   Control.Monad.IO.Class (liftIO) 
import   Data.Conduit 
import qualified Data.Conduit.List as CL 
import qualified Data.Conduit.Text as CT 
import   Codec.Archive.Zip 

main :: IO() 
main = withArchive "input.zip" $ do 
    n:_ <- entryNames 
    sourceEntry n 
    $ CT.decode CT.utf8 
    =$ CT.lines 
    =$ CL.mapM_ (\t -> liftIO $ putStrLn $ "Got a line: " ++ show t) 

Answer 2

Ecco un semplice esempio:

import   Control.Monad.IO.Class (liftIO) 
import   Data.Conduit 
import qualified Data.Conduit.Binary as CB 
import qualified Data.Conduit.List  as CL 
import qualified Data.Conduit.Text  as CT 

main :: IO() 
main = runResourceT 
    $ CB.sourceFile "input.txt" 
    $$ CT.decode CT.utf8 
    =$ CT.lines 
    =$ CL.mapM_ (\t -> liftIO $ putStrLn $ "Got a line: " ++ show t) 

È anche possibile view and experiment on FP Haskell Center.

Answer 3

Ecco un semplice esempio-

import Data.ByteString as B 
import Data.Conduit 
import qualified Data.Conduit.List as CL 
import qualified Data.Conduit.Binary as CB 
import Codec.Archive.Zip 
import System.Environment 

sink :: Monad m => Sink ByteString m [ByteString] 
sink = CL.consume 

main::IO() 
main = do 
    [archivePath] <- getArgs 
    res <- withArchive archivePath $ do 
     name:_ <- entryNames 
     source <- getSource name 
     runResourceT $ (source $$ sink) 

    print res 

È possibile elaborare i dati come viene attraverso nella funzione lavandino (che consumano come necessario usando CL, funzioni CB), o dal momento che i dati vengono restituiti pigramente , puoi modificare i dati in res.