Perl 入門指南 - encryptdemo.pl




encryptdemo.pl 的程式原始碼如下

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/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/
標籤： ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)