Tôi làm cách nào để duy trì và khôi phục tệp bị hỏng của mình thành tệp?

Question

Tôi muốn lưu dữ liệu của mình vào một tệp và khôi phục dữ liệu khi chạy lại chương trình.

tôi đã xác định defstruct của tôi như vậy:

(defstruct bookmark: url: title: comments)

Chương trình đơn giản sẽ làm như sau:
1. Nạp của defstruct từ url-db. txt
2. Đọc từ (các) tệp nhập được chuyển vào * command-line-args * và thêm vào dữ liệu nội bộ var.
3. Viết lại tệp url-db.txt.

tập tin nhập khẩu mẫu:

www.cnn.com | Tin tức | Đây là CNN
www.msnbc.com | Tìm kiếm |
news.ycombinator.com | Tin tức | Bản tin công nghệ

Answer 1

Tom Crayford là gần, nhưng sử dụng "pr" chức năng thay vì của "in". "pr" tạo ra các chuỗi có thể đọc lại bằng "đọc".

(defn save-db [db filename] 
    (spit 
    filename 
    (with-out-str (pr db)))) 

(defn load-db [filename] 
    (with-in-str (slurp filename) 
    (read))) 

Lưu ý rằng điều này sẽ không hoạt động nếu * in-dup * được đặt thành true. Xem ticket #176 Cũng lưu ý rằng khi bạn đọc lại cơ sở dữ liệu, các bản ghi sẽ là các bản đồ thông thường, chứ không phải bản đồ cấu trúc. Bản đồ cấu trúc không thể được tuần tự hóa với pr/read.

Answer 2

Sử dụng nhổ và slurp (ví dụ lấy từ http://www.nofluffjuststuff.com/blog/stuart_halloway/2008/09/pcl__clojure_chapter_3_1). Nói chung kỹ thuật này được gọi là serializing.

(defn save-db [db filename] 
    (spit 
    filename 
    (with-out-str (pr db)))) 

(defn load-db [filename] 
    (with-in-str (slurp filename) 
    (read))) 

(là Lỗi in trước đó trong mã gốc, và tôi đã câm và không kiểm tra nó. Cảm ơn) câu trả lời