本站電子書

您可以在這些電子書店找到本站電子書: Google Play 圖書iBooks StoreHyReadReadmooPubu
===>>>本站推出學習遊戲意見調查<<<===《如何自學程式設計》入選 Google Play 台灣地區2016年度最佳書籍

Perl 入門指南 - 存檔與載入

簡單點,我們存檔時儲存密碼表就可以了




完整程式請參考


也就是說, Encrypt 的 getCode 方法 (method) 會取得密碼表的字串 (string) ,然後把這個字串儲存到一個固定檔名的純文字檔裡,就完成存檔的工作了。載入就讀取這個純文字檔,取得密碼表字串再用 Encrypt 的 setCode 方法重新設定密碼表即可。


整個概念很簡單,可是存檔時也是可能出現 $encrypt 為 -1 的情況,因此這邊也要先進行條件檢查。


儲存 Encrypt 物件為 Save 按鈕,對應到 save_button 副程式,如下
sub save_button {
    if ($encrypt == -1) {
        $display_message = "No Encrypt object can save!!";
    }
    else {
        open(CODE, ">code.txt");
        print CODE $encrypt->getCode();
        close(CODE);
        $display_message = "The code is saved.";
    }
}


這裡利用內建函數 open() 建立檔案,需要兩個參數 (parameter) ,第一個參數為處理變數的名稱,第二個參數為檔案路徑
open(CODE, ">code.txt");


寫入內容到檔案則是利用 print 函數,後面接處理變數與要寫入的內容
print CODE $encrypt->getCode();


完成檔案工作,使用另一個內建函數 close() 關閉檔案
close(CODE);


存檔工作結束,訊息欄顯示 "The code is saved." 。


載入則是讀取 code.txt 中的內容,因為檔案內容就是密碼表。不過載入時有可能檔案不存在的情況,這是因為沒有 Save 過,所以相同目錄下不存在 code.txt 檔案,所以這邊也是先做個檔案是否存在的條件檢查,程式如下
sub load_button {
    my $data;
    if (-e './code.txt') {
        open(DATA, "<code.txt");
        read DATA, $data, 26;
        $encrypt = new Encrypt;
        $encrypt->setCode($data);
        close(DATA);
        $display_message = "code: ".$encrypt->getCode();
    }
    else {
        $display_message = "Load denied!!";
    } 
}


這裡我們先用 -e './code.txt' 判斷檔案是否存在
if (-e './code.txt') {


若不存在訊息欄就顯示 "Load denied!!" ,若存在就進行載入工作,這裡是用 read 函數讀取檔案資料
read DATA, $data, 26;


然後我們將 $data 設定給 $encrypt 即可,這裡同樣 $encrypt 要先建立一個新的 Encrypt 物件
$encrypt = new Encrypt;
$encrypt->setCode($data);


這是因為 $encrypt 是 -1 的話,相對就沒有 setCode() 可用了。


Encrypt 的 setCode 方法很簡單,就把 $data 指派給 Encrypt 的 $code 就可以了,請參考程式檔案 Encrypt.pm



來執行看看囉!下面是存檔



下面是載入



好了,我們接下來繼續完成 ClearCopy 兩個按鈕,使之成為完成版的 guidemo.pl 囉!


中英文術語對照
方法method
字串string
參數parameter


您可以繼續參考
GUI 篇


相關目錄
回 Perl 入門指南
回 Perl 教材
回首頁


參考資料
http://perldoc.perl.org/functions/open.html
http://perldoc.perl.org/functions/close.html
http://www.tutorialspoint.com/perl/perl_files.htm

沒有留言: