跟我学Perl(三)

王朝perl·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

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

#!/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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航