open:ppomppu-humor

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

open:ppomppu-humor [2023/08/02 05:20] – 만듦 MOROopen:ppomppu-humor [2023/08/02 05:21] (현재) – MORO
줄 3: 줄 3:
 <code clojure> <code clojure>
 (def site-info (def site-info
-  {:list-url "https://www.ppomppu.co.kr/zboard/zboard.php?id=humor" +  {:url    "https://www.ppomppu.co.kr/zboard/zboard.php?id=humor" 
-   :scheme   "https" +   :scheme "https" 
-   :site     "ppomppu"})+   :site   "ppomppu"})
  
 (defn collect-one-page [db driver url] (defn collect-one-page [db driver url]
-  (prn "collect url" url)+  (logging/info "collect url:" url)
   (let [page-map       (parse-page driver url)   (let [page-map       (parse-page driver url)
         post-doc       (save-content-and-post db page-map site-info)         post-doc       (save-content-and-post db page-map site-info)
줄 18: 줄 18:
   (try   (try
     (e/with-chrome (chrome-option env) driver     (e/with-chrome (chrome-option env) driver
-      (let [url-list (parse-list driver (:list-link site-info))]+      (let [url-list (parse-list driver (:url site-info))]
         (prn "url-list:" url-list)         (prn "url-list:" url-list)
         (mapv #(collect-one-page mg-humor driver %)         (mapv #(collect-one-page mg-humor driver %)
               url-list)))               url-list)))
     (catch Exception e     (catch Exception e
-      (logging/error "[ERROR]" e "\tURL:" (:list-link site-info)))))+      (logging/error "[ERROR]" e "\tURL:" (:url site-info)))))
  
 </code> </code>
  • open/ppomppu-humor.txt
  • 마지막으로 수정됨: 2023/08/02 05:21
  • 저자 MORO