[Perl] print中括号的使用

zongkai2003 · 发表于 2013-1-9 10:46:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由 zongkai2003 于 2013-1-9 17:23 编辑

ch6.pl内容如下：

#!/usr/bin/perl
#use strict;
# use warnings;
chomp (@rocks = <STDIN>);
print "I have " , @rocks, " rocks!\n";
print "I have " , (reverse @rocks), " rocks!\n";
print "I have " , reverse @rocks, " rocks!\n";

执行结果如下：

D:\perl_tests>ch6.pl
a0
a1
^Z
I have a0a1 rocks!
I have a1a0 rocks!
I have rocks!
a1a0

第三个print没加括号出来的结果和第二个不一样，为什么呢？

看明白了，第三个print语句中@rocks数组和后面的字符串组成了新的数组然后被翻转。

zongkai2003 · 发表于 2013-1-9 10:48:35

回复 1# zongkai2003

第三个print改成下面两句是对的：

@tmp = reverse @rocks;
print "I have " ,@tmp, " rocks!\n";

mtvv · 发表于 2013-1-9 22:44:50

Learning Perl里讲的很好，关于操作符的优先级问题，千万不要去研究。
第一，不必要，在不清楚运算符优先级与结合性时，可以通过加额外的括号进行控制。多几个括号几乎没有什么问题。
第二，不实用，代码写出来不是能够运行就可以。是要给人看的。有时是别人，有时是自己。别人可能并不清楚你所清楚的操作符的特性。即使是你自己，三到六个月之后可以也会忘记当时所清楚的操作符的优先级与结合性问题。如果写出难看（懂）的代码有什么好处的话，你可以去研究它。