阅读内容 

跟我学Perl(5)

[日期:2005-04-13] 来源:中国站长学院  作者:郁郁小蝎 [字体: ]
???以前我总是给出具体的例子,但这次给你们出一道足以使你们头发变白,身心疲惫的难题:
#!/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”等,根据实验的结果,我们可以理解这一点。
阅读:
录入:

推荐 】 【 打印
上一篇:跟我学Perl(4)
下一篇:跟我学Perl(6)
相关新闻      
本文评论       全部评论
发表评论
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款


点评: 字数
姓名:
Advertisement
内容查询


Advertisement