请教提取指定内容的方法

屠龙

UID: 4522
帖子: 127
积分: 292
在线时间: 22 小时

1^# 屠龙发表于 2009-01-06 10:33

请教提取指定内容的方法

在下面一行字符串中，要求分别提取“MOD:”、“LEV:”、“ID:”、“TIME:”后的内容出来，得出以下结果：(EXEC，warning，1411000，09:18:33 01/06/2009)

QUOTE:

MOD:EXEC LEV:warning ID:1411000 TIME:09:18:33 01/06/2009

cobrawgl

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

2^# cobrawgl 发表于 2009-01-06 10:38

$_ = 'MOD:EXEC LEV:warning ID:1411000 TIME:09:18:33 01/06/2009';

my @t = /MOD:(\w+)\s+LEV:(\w+)\s+ID:(\d+)\s+TIME:(.*)/;

print "$_ \n" for @t;

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

3^# machine 发表于 2009-01-06 10:47

正则的列表环境，用的好

屠龙

UID: 4522
帖子: 127
积分: 292
在线时间: 22 小时

4^# 屠龙发表于 2009-01-06 10:52

噢，太奇妙了，还以为要写一大堆代码呢，惭愧，看来要好好学习了！

谢谢！

junonly

UID: 45927
帖子: 21
积分: 48
在线时间: 10 分钟

5^# junonly 发表于 2009-01-06 12:24

新手也写一个练练

[Copy to clipboard] [ - ]

CODE:

$_ = 'MOD:EXEC LEV:warning ID:1411000 TIME:09:18:33 01/06/2009';
print split /[\s]*[\w]*?[\D]:/,;

finixlei

UID: 8124
帖子: 117
积分: 269
在线时间: 19 小时

6^# finixlei 发表于 2009-01-07 16:22

请教，2楼的for是什么意思？

ynchnluiti

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

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

QUOTE:

原帖由 finixlei 于 2009-1-7 16:22 发表
请教，2楼的for是什么意思？

foreach

perldoc perlsyn

QUOTE:

The "foreach" keyword is actually a synonym for the "for" keyword, so you can use "foreach" for readability or "for" for brevity.

MMMIX

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

8^# MMMIX 发表于 2009-01-07 17:37

QUOTE:

原帖由 finixlei 于 2009-1-7 16:22 发表
请教，2楼的for是什么意思？

[Copy to clipboard] [ - ]

CODE:

print "$_ \n" for @t;

和

[Copy to clipboard] [ - ]

CODE:

for (@t) {
print "$_\n";
}

是一个意思。

MMMIX

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

9^# MMMIX 发表于 2009-01-07 17:39

QUOTE:

原帖由 ynchnluiti 于 2009-1-7 17:03 发表

foreach

perldoc perlsyn

后置的 for 这种用法是在 perlsyn 的 Statement Modifiers 里面描述的。

ynchnluiti

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

10^# ynchnluiti 发表于 2009-01-07 18:34

QUOTE:

原帖由 MMMIX 于 2009-1-7 17:39 发表

后置的 for 这种用法是在 perlsyn 的 Statement Modifiers 里面描述的。

我看没看到呢