(* read http-link line by line and print to console *) open System open System.Net open System.IO open System.Text let mutable enc = Encoding.GetEncoding(1251) let http(url: string) = seq { let req = HttpWebRequest.CreateHttp(url) let res = req.GetResponse() use stream = new StreamReader(res.GetResponseStream(), enc) while not stream.EndOfStream do let line = stream.ReadLine() if not (isNull line) then yield line } let print(url: string) = for line in http(url) do printfn "%s" line print("http://www.amic.ru")
После вчерашних обновлений в консоли Arch Linux при выборе русской локали вместо букв печатаются белые квадратики. Очевидно, что по какой-то причине не загружается прописанный в rc.conf шрифт. Временное лекарство от этого: выполнить команду setfont cyr-sun16 . Еще у меня в момент начальной загрузки появляется рябь на экране как от сильных электромагнитных помех в ЭЛТ, хотя у меня ЖК. Может быть это как-то связано.


Комментарии
Отправить комментарий