请教 perl 多行文字匹配问题

hustddb

UID: 7537
帖子: 112
积分: 257
在线时间: 17 小时

1^# hustddb 发表于 2009-01-07 16:39

请教 perl 多行文字匹配问题

有个返回字符串@output=“fan 1 ok
                                    fan 2 ok
                                    fan 3 ok”

如何分别匹配到这3个OK ?
            $fan="@output1";
            @fan=~ m/^ Fan \d (\w+)/im;
另外还有一个问题如果不确定有几个该怎么办？

hustddb

UID: 7537
帖子: 112
积分: 257
在线时间: 17 小时

2^# hustddb 发表于 2009-01-07 16:42

如果用$fan="@output1"; 那么 fan 怎么是 “Fan 1 OK; Fan 2 OK; Fan 3 OK” 那就变成单行了谢谢该怎么分别匹配那3个OK呀，都匹配出来

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

3^# ynchnluiti 发表于 2009-01-07 16:46

QUOTE:

原帖由 hustddb 于 2009-1-7 16:39 发表
如果不确定有几个该怎么办?
$fan="@ou ...

[Copy to clipboard] [ - ]

CODE:

perl -e '@output="fan 1 ok\nfan 2 ok\nfan 3 ok\nfan 4 ok";$fan="@output";@ok = $fan =~ /fan \d+ (\w+)/img;print scalar @ok, "\n"'

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

4^# ynchnluiti 发表于 2009-01-07 16:47

上面的@ok里

hustddb

UID: 7537
帖子: 112
积分: 257
在线时间: 17 小时

5^# hustddb 发表于 2009-01-07 16:54

谢谢可是返回是1

hustddb

UID: 7537
帖子: 112
积分: 257
在线时间: 17 小时

6^# hustddb 发表于 2009-01-07 16:56

只返回了第一个OK

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

7^# ynchnluiti 发表于 2009-01-07 17:15

QUOTE:

原帖由 hustddb 于 2009-1-7 16:56 发表
只返回了第一个OK

你在什么环境运行的。
我在linux下

[Copy to clipboard] [ - ]

CODE:

perl -e '@output="fan 1 ok\nfan 2 ok\nfan 3 ok\nfan 4 ok";$fan="@output";@ok = $fan =~ /fan \d+ (\w+)/img;print scalar @ok, ":@ok\n"'
4:ok ok ok ok

hustddb

UID: 7537
帖子: 112
积分: 257
在线时间: 17 小时

8^# hustddb 发表于 2009-01-08 08:58

$fan =~ /fan \d+ (\w+)/img; 我是 $fan =~ /fan \d (\w+)/img; 为什么一个+ 能产生这个效果，谢谢我验证通过了

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

9^# ynchnluiti 发表于 2009-01-08 09:39

QUOTE:

原帖由 hustddb 于 2009-1-8 08:58 发表
$fan =~ /fan \d+ (\w+)/img; 我是 $fan =~ /fan \d (\w+)/img; 为什么一个+ 能产生这个效果，谢谢我验证通过了

+表示1个以上（至少一个）前面的字符（组）
\d+表示1个以上数字，没有+只能匹配一个数字

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

10^# MMMIX 发表于 2009-01-08 10:15

QUOTE:

原帖由 hustddb 于 2009-1-8 08:58 发表
$fan =~ /fan \d+ (\w+)/img; 我是 $fan =~ /fan \d (\w+)/img; 为什么一个+ 能产生这个效果，谢谢我验证通过了

应该是你把其他地方搞错了。把你测试的完整代码贴上来。

请教 perl 多行文字 匹配问题

请教 perl 多行文字 匹配问题

请教 perl 多行文字匹配问题

请教 perl 多行文字匹配问题