К основному контенту

Common Lisp| Example script download from internet with system utility on linux 

;;(ql:quickload "drakma")
(sb-posix:chdir "/home/noname/projects/vvs")
 
(defun wget (url)
  (sb-ext:run-program "/usr/bin/wget" (list url) :input nil :output *standard-output*))
 
(wget "http://www.kulichki.com/cgi-bin/cgiwrap/masha/vysotsky/random-play/continuous-play.cgi")
 
  (let ((x (open "/home/noname/projects/vvs/continuous-play.cgi")))
    (when x
      (loop for line = (read-line x nil)
         while line do (wget (subseq line 0 (search "?" line)))))
    (close x))
 
(write-line "DONE")  
 

 

Комментарии

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

Популярные сообщения из этого блога

Будда не принимает форм

Будда не практикует дзен. Смотрите не видя,  слушайте не слыша,  знайте не зная.
5 комментариев
Далее...

Кирилица в Arch Linux

После вчерашних обновлений в консоли Arch Linux при выборе русской локали вместо букв печатаются белые квадратики. Очевидно, что по какой-то причине не загружается прописанный в rc.conf шрифт. Временное лекарство от этого: выполнить команду setfont cyr-sun16 . Еще у меня в момент начальной загрузки появляется рябь на экране как от сильных электромагнитных помех в ЭЛТ, хотя у меня ЖК. Может быть это как-то связано.
3 комментария
Далее...

Сортировка массивов в groovy

Любой массив в java и groovy можно отсортировать статическим методом: Arrays.sort(c); причем это будет очень быстро сто тысяч элементов типа int сортируются за 1 секунду на celeron M 1,8 Mg. Если это массив объектов можно использовать перегруженный метод Arrays.sort(c,comporator);
Отправить комментарий
Далее...