Data.ByteString.Lazy.Internal.ByteString na ciąg?

Question

Próbujesz napisać moduł, który zwraca zewnętrzny adres IP mojego komputera. Funkcja, a następnie zastosowanie soczewki w celu uzyskania responseBody, typ I kończy się z Data.ByteString.Lazy.Internal.ByteString. Ponieważ chcę odfiltrować końcowy "\ n" wynikowego ciała, chcę użyć tego później do wyrażeń regularnych. Problem: Ten pozornie bardzo specyficzny typ ByteString nie został zaakceptowany przez bibliotekę regex i nie znalazłem możliwości przekonwertowania go na String.

Oto moja słaba próba do tej pory (nie kompilacja).

{-# LANGUAGE OverloadedStrings #-} 

module ExtIp (getExtIp) where 
import Network.Wreq 
import Control.Lens 
import Data.BytesString.Lazy 
import Text.Regex.Posix 

getExtIp :: IO String 
getExtIp = do 
    r <- get "http://myexternalip.com/raw" 
    let body = r ^. responseBody 
    let addr = body =~ "[^\n]*\n" 
    return (addr) 

Więc moje pytanie brzmi oczywiście: Jak przekonwertować śmieszne specjalną ByteString do String? Wyjaśnienie również, w jaki sposób sam mogę podejść do tego problemu. Próbowałem użyć unpack i toString, ale nie mam pojęcia, co zaimportować, aby uzyskać te funkcje, jeśli istnieją.

Będąc bardzo sporadycznym użytkownikiem haskell, zastanawiam się też, czy ktoś mógłby mi pokazać idiomatyczny sposób określania takiej funkcji. Wersja, którą tu pokazuję, w końcu nie uwzględnia możliwych błędów/wyjątków w czasie wykonywania.

Answer 1

Po prostu nie rozumiem, dlaczego nalegasz na używanie String s, gdy masz już pod ręką ByteString, która jest szybszą/bardziej wydajną implementacją. Importowanie regex nie daje prawie żadnych korzyści - do analizowania adresu IP użyłbym attoparsec, który świetnie współpracuje z ByteString s.

Oto wersja, która nie używa wyrażenia regularnego, ale zwraca ciąg znaków - notatka, której nie skompilowałem, ponieważ nie mam ustawienia haskell, gdzie jestem teraz.

{-# LANGUAGE OverloadedStrings #-} 

module ExtIp (getExtIp) where 
import Network.Wreq 
import Control.Lens 
import Data.ByteString.Lazy.Char8 as Char8 
import Data.Char (isSpace) 

getExtIp :: IO String 
getExtIp = do 
    r <- get "http://myexternalip.com/raw" 
    return $ Char8.unpack $ trim (r ^. responseBody) 
    where trim = Char8.reverse . (Char8.dropWhile isSpace) . Char8.reverse . (Char8.dropWhile isSpace) 

Answer 2

Krótka odpowiedź: Użyj unpack z Data.ByteString.Lazy.Char8

Dłuższa odpowiedź:

W ogóle, jeśli chcesz przekonwertować ByteString (dowolnej odmiany) do typu String lub tekst musisz określić kodowanie - np UTF-8 lub Latin1 itd.

Podczas pobierania strony HTML kodowanie, które ma być użyte, może pojawić się w nagłówku Content-Content lub w treści odpowiedzi jako znacznik <meta ...>.

Alternatywnie możesz po prostu zgadnąć, jakie jest kodowanie ciała.

W twoim przypadku zakładam, że wchodzisz na stronę taką jak http://whatsmyip.org i musisz tylko sparsować swój adres IP. Zatem bez sprawdzania nagłówków lub przeglądania kodu HTML bezpiecznym kodowaniem będzie użycie Latin1.

Aby przekonwertować ByteStrings do tekstu poprzez kodowanie, przyjrzeć się funkcji w Data.Text.Encoding

na przykład funkcji decodeLatin1.