Perl 入門指南 - encryptdemo.pl




encryptdemo.pl 的程式原始碼如下

#!/usr/bin/perl
use strict;
use warnings;

use Encrypt;

my $e = new Encrypt;
my $c = $e->getCode();
print "code  : $c\n";
my $s = "There is no spoon.";
print "input : $s\n";
my $r1 = $e->toEncode($s);
print "encode: $r1\n";
my $r2 = $e->toDecode($r1);
print "decode: $r2\n";

# 《程式語言教學誌》的範例程式
# http://pydoing.blogspot.com/
# 檔名:encryptdemo.pl
# 功能:示範 Perl 程式
# 作者:張凱慶
# 時間:西元 2013 年 1 月   


您可以繼續參考
範例程式碼


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


參考資料
http://www.perl.org/
http://learn.perl.org/
http://perldoc.perl.org/index.html
http://www.tutorialspoint.com/perl/index.htm
http://perl-begin.org/
http://www.bin-co.com/perl/perl_tk_tutorial/

沒有留言: