请教一下perl中的and

yuonunix

UID: 409
帖子: 94
积分: 216
在线时间: 12 小时

1^# yuonunix 发表于 2008-04-09 17:33

请教一下perl中的and

请教一下perl中的and，查了一下小骆驼的书，好像没有看到and的这种用法

/^(\d+)(?: -(\d+))?$/ and push @range, $1, (length($2) ? $2 : $1);

和下面的语句等价吗？
/^(\d+)(?: -(\d+))?$/ ;
push @range, $1, (length($2) ? $2 : $1);

cobrawgl

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

2^# cobrawgl 发表于 2008-04-09 17:37

Page 151-152 (英文影印版)

仔细看

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

3^# doiob 发表于 2008-04-09 18:55

相当于：

[Copy to clipboard] [ - ]

CODE:

if(/^(\d+)(?: -(\d+))?$/ )
{
push @range, $1, (length($2) ? $2 : $1);
}