请教一个关于绑定操作符的问题？

rsonly

UID: 14586
帖子: 70
积分: 161
在线时间: 7 小时

1^# rsonly 发表于 2008-07-11 20:36

请教一个关于绑定操作符的问题？

@regular_expressions = (
  # Months and days of the week
  'm/Jan/i',
  'm/Feb/i',
  'm/Mar/i',
  'm/Apr/i',
)

$line = "000Jan0000";

foreach $regex (@regular_expressions ) {
if ( $line =~ $regex ) {
         print "found!";
}
}

为什么在linux可以打出found，在window下什么都没有？？？

hdc1112

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

2^# hdc1112 发表于 2008-07-11 20:52

在试了很多次后放弃。。同问。。。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

3^# flw 发表于 2008-07-11 20:55

perldoc -f qr

rsonly

UID: 14586
帖子: 70
积分: 161
在线时间: 7 小时

4^# rsonly 发表于 2008-07-11 21:15

不懂啊。

qr/STRING/
qx/STRING/
qw/STRING/
Generalized quotes. See "Regexp Quote-Like Operators" in perlop.

duanmu1123

UID: 16164
帖子: 77
积分: 177
在线时间: 8 小时

5^# duanmu1123 发表于 2008-07-11 21:37

很明显不对，又不是宏定义

rsonly

UID: 14586
帖子: 70
积分: 161
在线时间: 7 小时

6^# rsonly 发表于 2008-07-11 21:50

为什么在linux是可以的?

hunkwk

UID: 28891
帖子: 181
积分: 416
在线时间: 1 天 20 小时

7^# hunkwk 发表于 2008-07-11 23:03

if ( eval('$line =~ '.$regex) )

变量是不能当作正则表达式的匹配条件的，用eval解决一下如何？

rsonly

UID: 14586
帖子: 70
积分: 161
在线时间: 7 小时

8^# rsonly 发表于 2008-07-12 10:04

谢谢大牛

watercloud

UID: 46171
帖子: 98
积分: 225
在线时间: 13 小时

9^# watercloud 发表于 2008-07-12 14:14

@regular_expressions = (
  # Months and days of the week
  'Jan',
  'Feb',
  'Mar',
  'Apr',
);

$line = "000Jan0000";

foreach $regex (@regular_expressions ) {
      if ( $line =~ m/$regex/i ) {
         print "found!";
}
}

D:\cloud>perl test.pl
found!

wangsheng0415

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

10^# wangsheng0415 发表于 2008-07-13 14:00

@regular_expressions = (
  # Months and days of the week
  qr(Jan),
  qr(Feb),
  qr(Mar),
  qr(Apr),
);
$line = "000Jan0000";
foreach $regex (@regular_expressions ) {
      if ( $line =~ $regex ) {
         print "found!";
}
}