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 月   

您可以繼續參考

範例程式碼

• Encrypt.pm
• encryptdemo.pl
• guidemo.pl

相關目錄

回 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/