下载
下载
第7章 Perl语言编程
本章介绍有关Perl语言编程方面的内容.
7.1 什么是Perl
Perl(Practical Extraction and Report Language)是一种解释性的语言,专门为搜索纯文本文 件而做了优化.它也可以十分方便地完成很多系统管理任务.它集成了 C,sed,awk和sh语言 的优点,可以运行于 L i n u x,U N I X,M V S,V M S,M S - D O S,M a c i n t o s h,O S / 2,A m i g a以及 其他的一些操作系统上.特别是近年来,随着 Internet 的普及, P e r l也越来越多地用于 Wo r l d Wide Web上CGI 等的编程,逐渐成为系统,数据库和用户之间的桥梁.
7.2 Perl的现状
大概有两种程序员喜欢用 Perl:系统程序员可以用 Perl结合系统命令一起处理数据和过程, 并且可以使用 P e r l的格式匹配函数进行系统信息的搜寻和总结;还有一些开发 UNIX We b服务 器CGI程序的程序员发现Perl比C语言易学易用,而且更加容易处理数据库和数据搜索. Perl的创建人Larry Wall在1994年10月发表了Perl的第5版本.Perl 5增加了面向对象的能力, 提供了更多的数据结构,与系统和数据库之间的新的标准接口以及其他的一些功能.
7.3 初试Perl
一个有用的 Perl程序可以很短.例如我们希望更换大量文件中的一些相同内容,可以使用 下面的一条命令:
perl -e 's/gopher/World Wide Web/gi' -p -i.bak *.html
下面是一个基本的 perl程序:
#!/usr/local/bin/perl # # Program to do the obvious # print 'Hello world.';# Print a message
每个perl程序都以#!/usr/local/bin/perl开始,这样系统的外壳知道应该使用 perl运行该程序. 用#表示此后为注释语句. Perl的表达式必须以分号结尾,就如同 C语言一样.此语句为显示语 句,只是简单地显示出Hello world.字符串.
7.4 Perl变量
Perl中有三种变量:标量,数组(列表)和相关数组. 7.4.1 标量 Perl中最基本的变量类型是标量.标量既可以是数字,也可以是字符串,而且两者是可以 互换的.具体是数字还是字符串,可以有上下文决定.标量变量的语法为 $variable_name.例
下载
如:
$priority = 9;
第7章计Perl 语言编程计计
61
把9赋予标量变量$priority,你也可以将字符串赋予该变量:
$priority = 'high';
注意 在Perl中,变量名的大小写是敏感的,所以$a 和$A是不同的变量. 以下的数值或字符串都可以赋给标量:
123 12.4 5E-10 0xff (hex) 0377 (octal) 'What you $see is (almost) what \n you get' 'Don\'t Walk' "How are you " "Substitute values of $x and \n in \" quotes." `date` `uptime -u` `du -sk $filespec | sort -n` $x$list_of_things[5] $lookup{'key'}
从上面可以看出,Perl中有三种类型的引用.双引号 ("") 括起来的字符串中的任何标量和 特殊意义的字符都将被Perl 解释.如果不想让Perl 解释字符串中的任何标量和特殊意义的字符, 应该将字符串用单括号括起来.这时, Perl 不解释其中的任何字符,除了 \\ 和\ '.最后,可以 用(`)将命令括起来,这样,其中的命令可以正常运行,并能得到命令的返回值.请看下面 的例子:
1 #!/usr/bin/perl 2 $folks="100"; 3 print "\$folks = $folks \n"; 4 print '\$folks = $folks \n'; 5 print "\n\n BEEP! \a \LSOME BLANK \ELINES HERE \n\n"; 6 $date = `date +%D`; 7 print "Today is [$date] \n"; 8 chop $date; 9 print "Date after chopping off carriage return: [".$date."]\n";

下一页