跟我学Perl（三）-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

跟我学Perl（三）

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　以前我总是给出具体的例子，但这次给您们出一道足以使您们头发变白，身心疲惫的难题：

　　#!/usr/bin/perl

　　# A Political evaluation script

　　$a=“A1”

　　$b=“George”；

　　if($a>$b)print $a wordinake a better Presideut

　　If($a<$b) print $b word make a betler Presiclent

　　;

　　If($a=$b)Print $a or $b, tlere’s no Diflereue

　　;

　　输出结果表明其中并没有什么不同，这也许只反映出一个政治性的现实，但我们比较出的结果又是什么呢？对了，我们应该使用字符串操作，不对吗？

　　#!/usr/bin/perl

　　# A political evaluation script

　　$a = "Al";

　　$b = "George";

　　if ( $a > $b) { print "$a would make a better President.

　　"; }

　　if ( $a < $b) { print "$b would make a better President.

　　"; }

　　if ( $a==$b) { print "$a or $b, there’s no difference...

　　"; }

　　呵呵，输出表明他们俩没有什么不同的地方。这也许是政治上的真实反映，但对我们期望的比较输出却……哦，对了，我们应该使用字符串操作符，恩？

　　#!/usr/bin/perl

　　# A political evaluation script

　　$a = "Al";

　　$b = "George";

　　if ( $a gt $b) { print "$a would make a better President.

　　"; }

　　if ( $a lt $b) { print "$b would make a better President.

　　"; }

　　if ( $a eq $b) { print "$a or $b, there’s no difference...

　　"; }

　　现在，比较操作符才能正确的工作。（现实世界的逻辑却并非如此……我离题了。）

　　顺便提一下，在第一个例子中为什么Perl会认为“Al”和“George”是等值的呢？什么时候程式中参进了政治观点？

　　很重要的一点原因是，他要依赖Perl分辨“真（true）”和“假（false）”的方法。能够进行一些试验，如“if”，“while”，“wntil”等，根据实验的结果，我们能够理解这一点。

　　“0”意味着false，不管他是个数字还是字符串。

　　任何没有定义的变量（那些没有赋于任何值的量）都是false。

　　一个空的字符串??“”或‘’??也是false。

　　其余的都是true。

　　好了，这儿有一些较麻烦的例子，看看这些量，判断他们是true还是false：

　　“00” “-1” “ ” “5-5”

　　请在这篇文章的注1中寻找答案，这里先卖一个关子。

　　另外一个比较重要的问题是变量的输出，这是决定引号中的变量是否需要解释说明的方法，举例如下：

　　$name = ‘Bessie’；

　　print ‘Our cow is named $name。’；

　　输出为：

　　Our cow is named $name。

　　我并不认为假如那样叫的话，会有自我意识强烈的母牛到来（我已不打算再提发音的困难）。但是，我们怎样才能使Bessie显示出来呢？

　　#注意过去是单引号而现在是双引号的地方。

　　$name = ‘Bessie’；

　　print “Our cow is named $name。”；

　　通过Perl达到了我们的目的，我说过您能够做任何事情。

　　假如我们想打印变量的名字该怎么做呢？对Perl来说那太简单了:

　　$joe = “Joe”；

　　print “The variable $joe contains the value $joe。”；

　　我们能够打印出任何转义字符??也就是说字符在 Perl中有特别的含义??但需在他们前面加一个反斜杠。看看下面的例子：

　　$joe = "Joe";

　　print "The variable "$joe" contains the value "$joe."";

　　唔…… TMTOWDI：

　　print ’The variable "$joe" contains the value "’, $joe, ’".’;

　　按照您自己的选择，一定要理解他们之间的不同之处，注意在“print”语句中使用逗点作为分隔符的重要性，没有这个逗点，语义将截然不同，这一点我们将在以后的文章中讨论。

　　在结束这篇文章之前，更有一点应重点考虑，为创建脚本文档时，通常使用“-W”参数作为hash-bang的一部分：

　　#!/usr/bin/perl -w

　　这样会对脚本中的问题发出警告，并指出这些问题的所在，假如您是个Perl的初学者一定要记住这个用法，但假如您是个Perl的专家那就更会记住使用这个开关。那些错误不会随着您的进步而消失，他们会很兴奋的增多：）。

　　尾声

　　这段时间，我们进行了一段短途旅行，伴随着一段轻快的爵士乐，我们轻盈的跳过巨岩和戈滩，下个月我们将向更深的层次进展；也许研究数组或散列表，也许向拥有不可思议的强大功能的“常规表达”或Perl的regexes发起冲刺，此时，我建议尝试一些我们已讨论过的东西，或许自己做一些实践，我发现了最好的学习语言的方法，勇往直前直到极限，然后把我所碰到的困难向比我了解的更多的人请教，假如您不知道问题的话您就不会得到理想的答案。

　　各位Perl之旅愉快。

　　Ben Okopnik

　　perl -we ’$@="145143150157404211216516316440141156".

　　"1571641501451624012014516215440110141143153145162".

　　"424076405714414516657164164171";`$@`’

　　注释[1]；全是true，他们都不符合“假”的范围：“00”和“0”不同；“-1”也和“0”不同，空格“ ”，并不是空的字符串（），“5-5”，没有核定，并不是“0”，参考书：“Perl:The Complete Reference”，Martin C. Brown

　　有关Perl的专有名词

　　Perl??纵览

　　Perltoc??TOC文档

　　PerlSYN ??语法

　　Perlrun??执行

　　Perltrap??容易犯错之处

　　Perlfaq??常见问题

　　Perldate??数据结构

　　Perlop??操作和优先权

　　Perlfunc??内建函数

　　Perlkstyle??格式向导

　　Perldoc 和 Perldoc-f

喜欢本文，那就收藏到：

上一篇: Perl变量(1)--纯变量

下一篇: 跟我学Perl（二）

相关推荐

相关资讯