谁能够看懂这段Perl代码吗？

yuonunix

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

1^# yuonunix 发表于 2008-04-07 17:36

谁能够看懂这段Perl代码吗？

请问谁能够讲解一下这段代码吗？特别是/^(\d+)(?\d+))?$/  and，感觉很难看懂

## Get the line range from the given spec. It may be a single number, or a
## range as in 5-10. In either case, return the pair ($begin, $end)
sub LineRange {
local $_ = shift;
my @range = ();
/^(\d+)(?\d+))?$/  and  push @range, $1, (length($2) ? $2 : $1);
return  @range;
}

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-04-07 18:43

看不清楚
ms语法都错了
还有那性感的表情符号
请用[code][/code]排版下

yuonunix

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

3^# yuonunix 发表于 2008-04-08 09:05

## Get the line range from the given spec. It may be a single number, or a

## range as in 5-10. In either case, return the pair ($begin, $end)

sub LineRange {
   local $_ = shift;
   my @range = ();
   /^(\d+)(?:-(\d+))?$/  and  push @range, $1, (length($2) ? $2 : $1);
   return  @range;
}

apile

UID: 42255
帖子: 66
积分: 151
在线时间: 6 小时

4^# apile 发表于 2008-04-08 09:25

你应该看不懂( ? : )这个吧..
看perldoc perlre
里面有一段

QUOTE:

   "(?:pattern)"
   "(?imsx-imsx:pattern)"
               This is for clustering, not capturing; it groups subexpres-
               sions like "()", but doesn't make backreferences as "()"
               does.  So

                  @fields = split(/\b(?:a|b|c)\b/)

               is like

                  @fields = split(/\b(a|b|c)\b/)

               but doesn't spit out extra fields.  It's also cheaper not to
               capture characters if you don't need to.

               Any letters between "?" and ":" act as flags modifiers as
               with "(?imsx-imsx)".  For example,

                  /(?s-i:more.*than).*million/i

               is equivalent to the more verbose

                  /(?:(?s-i)more.*than).*million/i

应该会比较容易了解.....他上面的comment已经很清楚了...

grayblaze

UID: 7708
帖子: 126
积分: 289
在线时间: 22 小时

5^# grayblaze 发表于 2008-04-08 11:28

我找到相应的中文解释才看明白

onunix

UID: 16100
帖子: 109
积分: 250
在线时间: 16 小时

6^# onunix 发表于 2008-04-09 10:52

请教一下大家，看看我的理解对吗？

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

这个的意思是：

首先找数字，（^(\d+)）

然后匹配－，用？：表示无限多个-，（?: -）

然后匹配数字，（(\d+)）

然后后面的？$ 不知道什么意思。

and不知道什么意思

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

7^# 放驴娃发表于 2008-04-09 10:53

看小骆驼吧。
先别急着学什么正则表达式，
先把最起码的东西搞懂。

yuonunix

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

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

谢谢各位，这个正则表达式终于全明白了，但是其中的and，是什么意思呢？

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

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

dith

UID: 17727
帖子: 191
积分: 439
在线时间: 2 天 1 小时

9^# dith 发表于 2008-04-09 17:29

QUOTE:

原帖由 yuonunix 于 2008-4-9 17:04 发表
谢谢各位，这个正则表达式终于全明白了，但是其中的and，是什么意思呢？

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

和下面的语句等价吗？
/^(\d+)(?: -(\d+))?$/ ;
push ...

answer is no ...

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

is actually work like

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

just kind of 'short circuit' concept in perl, another common example used this concept is

open ( FILE, 'foo.dat' ) or die ( "Failed to open file!" );