最近在论坛上看到一些Perl代码,叫做PLEAC-Perl的。但是没有注释,我就有把它分析一下的冲动。
本文可能要写成连载,每章作为一篇。主要目的是学习研究Perl编程。对于想学习Perl但还未开始的朋友一个介绍;给刚入门的朋友一个教程;给用过Perl但还不是很深入的朋友一点启示;对于那些Perl高手来说付之一笑即可。能达到这些目的,幸甚。
当然这主要看我的时间和毅力了。欢迎大家督促。还有,转载请著名出处。:-)
闲话少说,开始正题。Perl的是由Larry Wall首先开发的,主要适用于远程服务器管理,和他当时的工作相关。简要历史如下:
perl 1.0 在1987.12.18号发布,有人很认真的把这一天作为perl的生日。
perl 2.0在1988.6发布,Randal Schwartz以 "另外一个perl黑客"为签名创造了一段传奇。
perl 3.0 在1989.10发布。
perl 4.0在1991发布。
perl 5 在1994.10月发布。此时perl社区引入了CPAN,这个我认为是其他任何语言不能比的。每一项新事物的出现,perl的反映总是最快的。
1996 开始出版了 The perl Journal .
|
再说一下我用的平台,我很喜欢Linux,目前电脑上有XP和SUSE两个系统。但是为了和别人兼容,只好经常忍受Windows操作平台。其实运行Perl的环境很简单,只需要装一个解释器即可。我用Active Perl作为解释器,版本是5.8.4。大家可以到ActivePerl主页上下载for windows的最新版本, http://www.ActiveState.com.
然后简单说明一下Perl语言的特点:
1.解释性语言(当然也可以编译成可执行文件)
2.弱类型语言(甚至字符串可以和整数相加,不可思议吧)
3.支持正则表达式(了解Perl的人都知道它的强大)
4.支持Web编程(主要是指CGI)
5.服务器管理脚本(我想这是我选Perl的一个重要原因)
6.支持GUI编程,如Tk等。
Perl语言风格类C语言,只要会C语言,很快可以上手。PHP只是Perl的一个子集,会PHP的人也会很快上手。
下面就开始分析PLEAC-Perl的第一章:
1.Strings(字符串)
#!/usr/bin/perl -w
#-----------------------------
$string = '\n'; # 两个字符 '\' 和 'n'
$string = 'Jon \'Maddog\' Orwant'; # 单引号串
#-----------------------------
$string = "\n"; # 换行字符
$string = "Jon \"Maddog\" Orwant"; # 双引号,用\来转义'"'
#-----------------------------
$string = q/Jon 'Maddog' Orwant/; # q代表单引号,可以用//,(),[]等作为分割符,见下例。这样就可不用\来转义单引号了。
#-----------------------------
$string = q[Jon 'Maddog' Orwant];
$string = q{Jon 'Maddog' Orwant};
$string = q(Jon 'Maddog' Orwant);
$string = q<Jon 'Maddog' Orwant>;
#-----------------------------
$a = <<"EOF"; #这是一个多行文本块,以EOF开始,以另起一行(或者单独一行的)EOF结束。
This is a multiline here document
terminated by EOF on a line by itself
EOF
print $a;
print '\n';
print "\n";
|
这样我们就对单引号字符串和双引号字符串有一些基本的认识了。Perl是很灵活的一种语言,它的 方法论就是“做好一件任务有多种不同的方法”。
接下来就是关于字符串子串的访问与存取了。