LISP - 檔案I/O


我們已經了解如何使用標準的輸入和輸出是由Common Lisp處理的引數。所有這些函式讀取和寫入文字檔案和二進位制檔案。唯一不同的是在這種情況下,我們使用流不是標准輸入或輸出,但對於寫入或讀取檔案的特定目的的流建立的。

在本章中,我們將看到的LISP如何建立,開啟,關閉文字或二進位制檔案的資料儲存。

檔案代表一個位元組序列,如果它是一個文字檔案或二進位制檔案。本章將引導完成重要的功能/巨集的檔案管理。

開啟檔案

可以使用open 函式來建立一個新檔案或開啟一個現有的檔案。這是最基本的功能為開啟一個檔案。然而,with-open-file通常更方便,更常用,因為我們將在本節後面看。

當一個檔案被開啟,一個流物件被建立來代表它在LISP環境。流上的所有操作基本上等同於操作上的檔案。

open 函式語法是:

open filename &key :direction :element-type :if-exists :if-does-not-exist :external-format

那麼,

  •  filename 引數是要開啟或建立的檔案的名稱。

  • keyword 引數指定的資料流和錯誤處理方式的型別。

  • :direction keyword 指定的流是否應處理的輸入,輸出,或兩者兼而有之,它採用下列值:

    • :input - 用於輸入流(預設值)

    • :output - 輸出流

    • :io - 雙向流

    • :probe - 只是檢查一個檔案是否存在;該流被開啟,然後關閉。

  •  :element-type 指定事務單元的流型別。

  • :if-exists 引數指定要採取的操作,如果 :direction 是 :output or :io和指定的名稱已存在的檔案。如果方向是direction 為 :input 或 :probe,則忽略此引數。它採用下列值:

    • :error - 它發出錯誤信號。

    • :new-version - 它將建立一個具有相同名稱但大版本號的新檔案。

    • :rename - 它重新命名現有的檔案。

    • :rename-and-delete - 它重新命名現有的檔案,然後將其刪除。

    • :append - 它追加到現有檔案。

    • :supersede - 它將取代現有的檔案。

    • nil - 它不建立一個檔案甚至流只是返回零表示失敗。

  •  :if-does-not-exist 引數指定,如果指定名稱的檔案已經不存在應採取的操作。它採用下列值:

    • :error - 它發出錯誤信號。

    • :create - 它建立具有指定名稱的空檔案,然後使用它。

    • nil - 它不建立一個檔案或流,而是簡單地返回nil表示失敗。

  • :external-format 引數指定用於表示檔案的字元的實施認可制度

例如,可以開啟一個名為myfile.txt的儲存在/ tmp檔案夾的檔案:

(open "/tmp/myfile.txt")

寫入和讀取檔案

with-open-file允許讀取或寫入到一個檔案中,用與讀/寫事務相關聯的流變數。一旦這項工作完成後,它會自動關閉檔案。它使用極為方便。

它的語法如下:

with-open-file (stream filename {options}*)
       {declaration}* {form}*
  • filename 是要開啟的檔案的名稱;它可以是一個字串,一個路徑,或一個流。

  •  options 就像keyword 引數給函式開啟的一樣。

範例 1

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

(with-open-file (stream "/tmp/myfile.txt" :direction :output)
  (format stream "Welcome to Tutorials Yiibai!")
  (terpri stream)
  (format stream "This is a tutorials database")
  (terpri stream)
  (format stream "Submit your Tutorials, White Papers and Articles into our Tutorials   Directory."))

請注意,在前面的章節,如,terpri和format討論的所有輸入輸出函式正在編寫到建立的檔案。

當執行程式碼,它不返回任何東西;然而,資料被寫入到該檔案中。 :direction :output關鍵字可以做到這一點。

不過,我們可以使用read-line函式從這個檔案中讀取。

範例 2

建立一個名為main.lisp一個新的原始碼檔案,並在其中輸入如下程式碼:

(let ((in (open "/tmp/myfile.txt" :if-does-not-exist nil)))
  (when in
    (loop for line = (read-line in nil)
         while line do (format t "~a~%" line))
    (close in)))

當執行程式碼,它返回以下結果:

Welcome to Tutorials Yiibai!
This is a tutorials database
Submit your Tutorials, White Papers and Articles into our Tutorials   Directory.

關閉檔案

close函式關閉一個流。