Megpróbálok szerializálni egy névjegytípust, de elakadtam a put and get?
import Control.Monad
import Data.Binary
type Name = String
type Address = String
data Contacts = Contacts [(Name, Address)] deriving (Show)
instance Binary Contacts where
put (Contacts [(n,a)]) = do ...
get = do ...
main :: IO ()
main = do
let c = Contacts [("gert","home")]
let e = encode c
let d = decode e
print d
haskell Data.Binary example, akkor még a saját kérdésem is benne van a top 10-ben, mert nincs más példa. Ha ezt js java c c# bash esetén csinálja... rengeteg adatot kap, amit meg kell néznie. 11.08.2012 Igen, elakadtál a put és a get meghatározásánál. Ez választ ad a kérdésedre?
type Name = String
type Address = String
data Contacts = Contacts [(Name, Address)] deriving (Show)
instance Binary Contacts
put (Contacts [(n,a)]) = do ...
get = do ...
Mivel már vannak ilyen esetek:
instance (Binary a) => Binary [a]
instance (Binary a, Binary b) => Binary (a,b)
instance Binary Char
Egyszerűen képesnek kell lennie arra, hogy triviálisan megemelje a mögöttes eladást, és rutinokat szerezzen:
instance Binary Contacts where
put (Contacts set) = put set
get = fmap Contacts get
Tehát amikor névjegyeket ad meg, csak mondja meg, hogy tegye a karakterláncpárok listáját. Ha deszerializálni szeretné a névjegyeket, akkor csak megkapja a mögöttes listát, és használja a Contacts konstruktort.
További egyszerű példák hozzáadása, hogy megakadályozzuk, hogy más noobok szenvedjenek, mint én :)
{-# LANGUAGE RecordWildCards #-}
import Data.Binary
type Name = String
type Address = String
type Phone = String
data Contacts = Contacts [(Name, Address)] deriving (Show)
instance Binary Contacts where
put (Contacts set) = put set
get = fmap Contacts get
data Contact = Contact { name :: Name, address :: Address, phone :: Phone } deriving (Show)
instance Binary Contact where
put Contact{..} = do put name; put address; put phone
get = do name <- get; address <- get; phone <- get; return Contact{..}
main :: IO ()
main = do
let c = Contacts [("gert","home"),("gert2","home2")]
let e = encode c
print e
let d = decode e
print (d:: Contacts)
let c' = Contact{name="gert",address="home",phone="test"}
let e' = encode c'
print e'
let d' = decode e'
print (d':: Contact)
instance Serialize Contactsés neminstance Binary Contactsigaz? 10.08.2012Binary-nek jól kell működnie, én csak általában aSerialize-t használom (acerealcsomagból), mivel jobban megfelel az igényeimnek. 10.08.2012print [("gert","home")]működik, deprint dnem, miért? 10.08.2012ByteString -> atípusú, tehát mi aza?). Használatához próbálja meg aprint (d :: Contacts)karakterláncot, vagy írja be a típust aletutasításba. 10.08.2012