DL
Я вот считаю, что если чего-то можно не делать - нужно выбирать такой путь, чтобы этого не делать.
Size: a a a
2020 May 29
ИФ
уже было?
ИФ
Переслано от Михаил Ефименко...
Знакомому владельцу онлайн-школы(!) пришла субсидия, в связи с Ковидом. Какие-то копейки, около 12 тысяч, но хоть что-то.
А другому знакомому, с мебельным производством, субсидию не дали, и нам "деятельность связанная с архитектурой" тоже.
Проверить своё юр лицо можно тут:
https://service.nalog.ru/subsidy/
А другому знакомому, с мебельным производством, субсидию не дали, и нам "деятельность связанная с архитектурой" тоже.
Проверить своё юр лицо можно тут:
https://service.nalog.ru/subsidy/
ИФ
ИФ
но и не 5 тыс евро
VL
но и не 5 тыс евро
130 евро, неплохо!
AR
Когда во время холерного карантина мужики с дубинами на заставе не позволяли А.С.Пушкину переправиться через реку, поэт заявил, что не сегодня, так завтра всё равно проедет "и в доказательство предложил серебряный рубль" — после чего мужики сами перевезли Пушкина
ИФ
Когда во время холерного карантина мужики с дубинами на заставе не позволяли А.С.Пушкину переправиться через реку, поэт заявил, что не сегодня, так завтра всё равно проедет "и в доказательство предложил серебряный рубль" — после чего мужики сами перевезли Пушкина
увожение. мне кажется Пушкин тут бы уже устраивал
2020 May 30
Г
Подскажите: как прочитать только часть файла (1MB), скажем?
Г
(defn main [filename]
(let [file (io/file filename)]
(with-open [r (io/reader file)]
(print (take 1024 r))))) ;;?
Г
... how to create ISeq from BufferedReader...
PP
Подозреваю, что тут нужна либо библиотечка (жуть), либо InputStream с щепоткой интеропа типа:
(.read stream (make-array Byte/TYPE size) 0 size)PP
Только мегабайт это 1024*1024 байт.
...
Только на самом деле, совсем по стандартам, 1 000 000 байт. 2^20 байт нынче обозначают MiB.
...
Только на самом деле, совсем по стандартам, 1 000 000 байт. 2^20 байт нынче обозначают MiB.
ST
(defn main [filename]
(let [file (io/file filename)]
(with-open [r (io/reader file)]
(print (take 1024 r))))) ;;?
(defn read-bytes
[filename, n-bytes]
(let [file (io/file filename)
cbuf (char-array n-bytes)]
(with-open [r (io/reader file)]
(.read r cbuf 0 n-bytes)
(seq cbuf))))
Г
А что делает optional :buffer-size в reader?
PP
А что делает optional :buffer-size в reader?
Ну, побуду К. О.: размер внутреннего буфера в ридере. Это полезно, когда из него читают мелкими кусочками – что довольно часто правда.
Г
Спасибо. А если я хочу из файла получить чанки byte-array размера n?
PP
Вышеупомянутое вроде ок. Только по достижении EOF прекращать чтение и учитывать, что прочитано может быть меньше чем запрошено (если файл может иметь размер, некратный размеру чанка).
В примере выше результат .read выкидывается, но вообще он осмысленный.
В примере выше результат .read выкидывается, но вообще он осмысленный.
Г
Я такое делаю, но выходит ошибка.
(defn chunk-file-on-n-sized-bytes-arrays [filename n]
(let [file (io/file filename)
l (.length file)]
(with-open [r (io/input-stream file)]
(loop [result []
offset 0]
(let [tmp (byte-array n)]
(if (< l n)
result
(recur
(do (.read r tmp offset n)
(conj result tmp))
(+ offset n))))))))