跟我学Perl(三)

转载 2006年06月16日 11:39: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

跟我学汇编(一)基础知识

零、前言身为程序员,序号一定从零开始数,哈哈。这篇文章是在学习汇编语言是所做的笔记,其中的内容必定会受到书中内容的影响,我所看的课本是王爽所著的《汇编语言》(第三版),写博客的目的是为了巩固自己所学的...
  • xingjiarong
  • xingjiarong
  • 2016年02月05日 15:20
  • 3016

跟我学Perl(一)

如果你曾经使用过Linux,无论时间长短,都必定听说过Perl;甚至可能在不知道的情况下运行了不少perl的脚本。很多服务程序,象“inews”、“mirror”、“debconf”、“majordo...
  • Hank_Huang
  • Hank_Huang
  • 2006年06月16日 11:35
  • 1537

用perl统计一个六种类型的数据

例子文件,只取了一小部分数据:get2_nr.outZM_BFa0062B01 bzipZM_BFa0063A16 bzipZM_BFa0063M13 mycZM_BFa0063N22 mycZM_B...
  • hjClaymore
  • hjClaymore
  • 2010年06月20日 00:34
  • 480

跟我学Perl(二)

顺便说说一些指示代码  写完美无缺的代码对我来说有一些不切实际。在过去的一些场合,我写了些“write-only”代码,这将使任何试着读它的变成不同的颜色。我经常尝试着提高水平,我真的希望看到这个想法...
  • Hank_Huang
  • Hank_Huang
  • 2006年06月16日 11:37
  • 1252

跟我学Shiro(转 写的超级好)

原文地址 :http://jinnianshilongnian.iteye.com/blog/2018398   点击下载《跟我学Shiro》教程PDF版。学习...
  • sundehui01
  • sundehui01
  • 2016年07月05日 17:24
  • 398

跟我学写Makefile

CentOS, 本地服务器,ip: 192.168.1.111 Ubuntu, 远程服务器,ip: 192.168.1.112 1.拷贝远程服务器的目录到本地服务器 远程服务器192.168.1.1...
  • tianmo2010
  • tianmo2010
  • 2013年06月20日 19:52
  • 1342

跟我学JAVA -- 让你的程序更动人

  Java语言提供了对各种多媒体的良好支持,在本章中我们将学习如何在你的Java语言程序中处理图像、声音、字体等资源,让你的程序更加有趣。   11.1 图像   传授新知   与其它编程语言不一样...
  • wnfc0729
  • wnfc0729
  • 2006年04月24日 15:23
  • 1113

《跟我学Shiro》PDF完结版下载

历经三个月左右时间,《跟我学Shiro》系列教程已经完结,暂时没有需要补充的内容,因此生成PDF版供大家下载。最近项目比较紧,没有时间解答一些疑问,暂时无法回复一些问题,很抱歉,不过可以加群(3341...
  • qq_26562641
  • qq_26562641
  • 2016年11月02日 09:24
  • 1392

跟我学写makefile

陈皓 概述 —— 什么是makefile?或许很多Winodws的程序员都不知道这个东西,因为那些Windows的IDE都为你做了这个工作,但我觉得要作一个好的和professio...
  • flyingleo1981
  • flyingleo1981
  • 2012年12月11日 17:06
  • 1111

一、《跟我学spring3》电子书下载地址:

《跟我学spring3》  (1-7 和 8-13) http://jinnianshilongnian.iteye.com/blog/pdf     跟我学spring3系列 word原...
  • u013851082
  • u013851082
  • 2016年12月12日 09:34
  • 1043
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:跟我学Perl(三)
举报原因:
原因补充:

(最多只允许输入30个字)