这个脚本我实在看不出哪里错了。。。。

yelanxin

UID: 27365
帖子: 148
积分: 340
在线时间: 1 天 6 小时

1^# yelanxin 发表于 2008-08-06 00:28

这个脚本我实在看不出哪里错了。。。。

QUOTE:

#!/usr/bin/perl -w
use strict;
sub max {
      my $max_num=shift @_;
      for(@_){
            $_>$max_num && $max_num=$_;
      }
      $max_num;
}
print &max(1,3,4,2,6,4,8,10,9,11,23,24,12,54,100,23);

错误如下：
Can't modify logical or (||) in scalar assignment at max.pl line 6, near "$_;"
Execution of max.pl aborted due to compilation errors.

改成if判断就可以，难道&&不能判断吗？

QUOTE:

#!/usr/bin/perl -w
use strict;
sub max {
      my $max_num=shift @_;
      for(@_){
            if($_>$max_num){ $max_num=$_; }
      }
      $max_num;
}
print &max(1,3,4,2,6,4,8,10,9,11,23,24,12,54,100,23);

surfybeach

UID: 34889
帖子: 1
积分: 2
在线时间: 10 分钟

2^# surfybeach 发表于 2008-08-06 01:46

[Copy to clipboard] [ - ]

CODE:

if($_>$max_num){ $max_num=$_; }

==

[Copy to clipboard] [ - ]

CODE:

$_>$max_num && ($max_num=$_;)

!=

[Copy to clipboard] [ - ]

CODE:

(($_>$max_num) && $max_num ) = $_; (illegal)

refer to:
Operator Precedence and Associativity

hdc1112

UID: 2620
帖子: 83
积分: 190
在线时间: 9 小时

3^# hdc1112 发表于 2008-08-06 08:16

改成如下，运算符优先级引起的问题

#!/usr/bin/perl -w
use strict;
sub max {
      my $max_num=shift @_;
      for(@_){
            ($_>$max_num) && ($max_num=$_);
      }
      $max_num;
}
print &max(1,3,4,2,6,4,8,10,9,11,23,24,12,54,100,23);

youyinyuan

UID: 12599
帖子: 168
积分: 386
在线时间: 1 天 14 小时

4^# youyinyuan 发表于 2008-08-06 08:37

看来应该多注意括号的使用

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

5^# 不死草发表于 2008-08-06 09:08

呵呵，是运算符优先级的问题，而不是括号运用的问题。

youyinyuan

UID: 12599
帖子: 168
积分: 386
在线时间: 1 天 14 小时

6^# youyinyuan 发表于 2008-08-06 10:13

QUOTE:

原帖由不死草于 2008-8-6 09:08 发表
呵呵，是运算符优先级的问题，而不是括号运用的问题。

我的意思是，为了避免优先级造成的问题，如果对优先级不清楚，最好用括号进行分组

wenerban

UID: 34549
帖子: 1
积分: 2
在线时间: 10 分钟

7^# wenerban 发表于 2008-08-14 12:01

在写perl的时候，尽量用单词代替符号，你将 && 写成 and 就可以通过，为了可以看的更清楚，and 前后都加上()更妙。