Perl 入門指南 - 整合 Encrypt 套件

我們把編碼功能核心的 Encrypt 套件 (package) 放在 Encrypt.pm 中，而 GUI 的部份則是放在 guidemo.pl 裡

完整程式請參考

• Encrypt.pm
• guidemo.pl

首先在 guidemo.pl 中要先 use Encrypt 套件

use Encrypt;

我們多設定三個變數 (variable) ， $encrypt 用來儲存 Encrypt 物件， $userinput 為儲存使用者輸入的文字， $result 則是編碼結果

my $encrypt = -1;
my $userinput = "";
my $result = "";

實際 Encrypt 物件是由 new_button 副程式 (subroutine) 建立的

sub new_button {
    $encrypt = new Encrypt;
    $display_message = "code: ".$encrypt->getCode();
}

這裡只要建立新的 Encrypt 物件，然後在訊息欄顯示密碼表就好嚕！


我們來執行看看囉



這樣就整合好 Encrypt 類別了，接下來，我們要開始建置 GUI 中的編碼與解碼的功能囉！

中英文術語對照
套件	package
變數	variable
副程式	subroutine

您可以繼續參考

GUI 篇

• GUI 的基本概念
• 整合 Encrypt 套件
• GUI 中的編碼與解碼
• 存檔與載入
• 完成版的 guidemo.pl
• 下一步

相關目錄

回 Perl 入門指南
回 Perl 教材
回首頁

參考資料

http://search.cpan.org/~ni-s/Tk-804.027/pod/UserGuide.pod
http://search.cpan.org/~ni-s/Tk-804.027/pod/Button.pod
http://search.cpan.org/~ni-s/Tk-804.027/pod/Entry.pod
http://search.cpan.org/~ni-s/Tk-804.027/pod/Label.pod