代码之家 › 专栏 › 技术社区 › Rook

为什么“print(52-80)42”与Perl中的“print 42(52-80)”不同?

math printing operators perl

Rook · 技术社区 · 15 年前

Perl::什么是:

1. (52-80)*42
2. 42*(52-80)

答复:

1. -28
2. -1176

为什么?

请好好解释/证明这一点!

#!/usr/bin/perl
use strict;
print 42*(52-80) , "\n";
print ((52-80)*42) , "\n";
print (52-80)*42 , "\n";
print "\n";
my $i=(52-80)*42;
print $i, "\n";

输出:

> -1176
> -1176-28
> -1176

3 回复 | 直到 11 年前

ysth 15 年前

如果你加上 use warnings; 你会得到:

print (...) interpreted as function at ./test.pl line 5.
Useless use of a constant in void context at ./test.pl line 5

mob 15 年前

Alex Howansky的警告意味着

print (52-80)*42 , "\n"

被解析为

(print(52-80)) * 42, "\n"

print(-28) ,和(2)包含换行符的字符串。(1)的副作用是打印值 -28 (没有换行)到标准输出。

如果需要打印以括号开头的表达式,解决方法是在其前面加上 + :

print +(52-80)*42, "\n"         #  ==> -1176

John Kugelman Michael Hodel 15 年前

多亏了Perl古怪的解析规则(哦Perl,你这个疯子!),这些声明:

print ((52-80)*42) , "\n";
print (52-80)*42 , "\n";

(print ((52-80)*42)), "\n";
(print (52-80))*42, "\n";

这就是为什么你最后看到 -1176-28 (print-expr), "\n"; 简单地扔掉新行而不是打印它。

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

2 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

2 年前

nick · 向后交换文件名

2 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

2 年前

con · 如何跳转到foreach迭代的特定点?

2 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

2 年前

为什么“print(52-80)*42”与Perl中的“print 42*(52-80)”不同?

为什么“print(52-80)42”与Perl中的“print 42(52-80)”不同?