查看完整版本: Perl 循序渐进

一丝不挂 2008-3-21 11:52

Perl 循序渐进

[table][tr][td][b]第一课、Perl 概述[/b]
a4^\/J I,a
I8hv xC9A5xy Perl概述 wC7V.\%E;w
第一个Perl程序 c[_"gk e9vLl
提问并保留结果 4cc3Q:X ~"?
增加选择
F#U.}Z$@L 猜测密码
f Y5@O/S `n [ X3}Bs;o)n0gk0}
h5U2om+|)o$d)N\:d
[i]　　别期望在一刻钟内就能领略Perl的所有神奇之处, 这种情况很像吃香蕉, 用不着吃完整只香蕉后才知其味，每咬一口都是享受，并促使你再咬下一口，再下一口。a4O2E-GG F__
　　　　　　　　　　　　　　　　　　　　　　----Larry Wall  [/i]ml.H8eu

8M Fl'x;l;g|Eq5Jv [b]Perl概述 [/b]0vJ1I,K z6^*E0x2w!v m

+Yp;JZS;?!y3z 　　Perl是Practical Extraction and Report Language(实用摘录和报告语言)的简称，是由Larry Wall所发展的。其最新版本为5.0。 %T:A'_d1b$Tm#z7_$s#CK
　　Perl的设计目标是帮助UNIX用户完成一些常见的任务，这些任务对于shell来说过于沉重或对移植性要求过于严格。
O#m6aM.VuDL*j'l$`'E 　　Perl是按GNU Public License的形式分发的，其实质是免费的，原先运行于UNIX和类UNIX系统，现在已可以方便地在OS/2，Windows 9x，Windows/NT等系统下运行。
,l M?i p'a]l#F 　　Perl是解释运行的，一般Perl程序的第一行需注明自己是一个Perl程序而不是shell程序，所以一般将下面一行语句：*a u\s3b}
　　#! /usr/bin/perl
/^rYr1NS^ 　　作为文件的第一行。
;uUV3v!n4Cbj2c !`7k q9x,@`9NW+?(n-U*Bt9j
[b]第一个Perl程序[/b]LH8yVLy

qQPVm&@ o 　　就拿各类书籍最常用显示"Hello! Welcome!"程序来说吧。下面是其源程序：1YEh2~(k d bWH

:P1nD7q9UOK'K/\ 　　#! /usr/bin/perl-J)l)Ba*Ym
　　print "你好! 欢迎光临网上学园! \n";
pfm-cO?l
`!ru n$f 　　这里的第一行说明了这是一个Perl程序，它也是Perl的注释，注释是从#开始至该行结束的所有文字。
FK(REz&~ 　　第二行是程序的可执行部分，这里只有一条print语句，如果你学过C语言，就能很快掌握它。
s!AX)_+E:~ {7sw*D %Zp[3o:L,m/i \
[b]提问并保留结果[/b]
HJ6X} F C1V&x x z-P0tqm-~-m(A
　　在此基础上做稍微复杂一点的改变，我们使该程序按你的名字打招呼。要做到这一点，需要一个变量来存放姓名。我们使用$name来保存姓名。
8OM(H$C&Q4YA d#eXvBqo!k
　　#!/usr/bin/perlL-ud-i!x*d Z9p QQ
　　printf "请问您的姓名?";
2Z5NM&I7\{ U'N-D 　　$name=<STDIN>;X-L-y@QN*o/RG,A.L!W
　　chop($name);k5`$xLN2X O
　　printf "你好, $name，欢迎光临网上学园!\n";B7pn(m1`ykO0H?
PA&e4T"]
　　这里第三行表示从终端获得行输入并赋值给$name，这里的$name的值有一个换行符，第四行chop($name)表示去掉$name的最后一个字符(即换行符)。第五行显示输入。$\rB'VX"I7kq

)soEy3@O+tf [b],a,}sUK!iW
增加选择[/b]X9@zG.])w*i.T
&s~{#Knq p)]+L|
　　现在让我们为园主zmd编写一个特殊的欢迎辞，而对其他人则采用普通欢迎辞。要达到这样的效果必须将输入的姓名与zmd作比较，如果相同则执行特殊功能。
.y$@8?+s'H.J;r!Q/]u o Z z;u'@Cl
　　#!/usr/bin/perl
l5q;I9[^0f 　　printf "请问您的姓名?";
-n M'o)}VpA6x 　　$name=<STDIN>;cm5Sa6R$|Qc(A Q
　　chop($name);"U3[YM(|6C'A
　　if ($name eq "zmd"){
"IVA)B]B#z:n&z5m0N%g 　　 printf "欢迎zmd进入本系统!\n";
?8]-A"K/DKe 　　} else {
"GJ%JYF DxO 　　 printf "你好, $name，欢迎光临网上学园!\n";
fN-o}.^FF1p)e$l 　　}.T%s n#|9IM9K%y
　　这里第五行用eq操作符对两个字符串进行比较，相同则执行下一句，否则执行else下的语句(是不是和C语言差不多？）。U+j!Rd b?B
&gh%N5}s4rs'd`
[b]猜测密码[/b]2a$N0R2fu

F"kc"c7[ O$k 　　现在已经可以对zmd发不同的欢迎辞，但如何加上密码来控制权限呢？比如说，可以让除zmd以外的人都必须输入密码直到正确为止：
Z;]z_*E(V(X8ZJ6b 　　#!/usr/bin/perl
9u n)Vdv p^BJ 　　$password="wsxy"; #密码为wsxy7^@\d;?T0}e
　　printf "请问您的姓名?";
/tezJ2V'AYJ\ 　　$name=<STDIN>;
N/Ol"[Y 　　chop($name);
"B,| i D1ftsA 　　if ($name eq "zmd"){
!Lv-q&W7y"?$E3R[ 　　 printf "欢迎zmd进入本系统!\n";
*^ K g#h?yqo 　　} else {
C3x3Hu2d 　　 printf "你好, $name!\n 请输入密码：";]$Z,N/Tc
　　 $guess=<STDIN>;
&wP+m|)}3x 　　 chop($guess);;aMzs cD.W
　　 while ($guess ne $password){
.fl n9pWq k 　　 printf "密码错误，请重新输入：";"c}(z8c^'?7lsa
　　 $guess=<STDIN>;
9V$Z I p/Y0H0[[ 　　 chop($guess);@2NE9eDeJg
　　 }l9hN7h z%V
　　} ?eVl#hU]F
　　这里先将密码保存在标量变量$password中，然后当不是zmd登录后，先显示欢迎语句，然后要求输入密码，通过ne操作符将输入结果和$password相比较，密码相同则退出，不同则一直循环下去。[/td][/tr][/table]

rcgljxf 2008-3-21 13:47

呵呵....是啊，学perl是需要一点耐心的，而且你会发现perl的怪异之处，不过虽然怪也有它的可爱。个人觉得perl是最好的程序言之一，虽然它很怪。

xsir317 2008-3-21 17:45

perl 用起来很舒服的。。。9j5tEe3d}1BYy wx

uqN*@S*{Sv6H 推荐Perl语言入门(第四版).pdf
J/`S,X0}1W
\hf0dRk;Y-k 用来处理文本文件很方便。

leeeeeei 2008-3-21 18:41

学习下~~~~~~

sky163 2008-3-22 01:03

推荐Perl语言入门(第四版).pdf{~@P3G&s
- y5 X4 n9 C9 p" y( r

aada123 2008-7-23 22:40

推荐Perl语言入门(第四版).pdf2 好书！！！！！！！！
页: [1]
查看完整版本: Perl 循序渐进