问个弱问题

anthony1983

UID: 35470
帖子: 175
积分: 402
在线时间: 1 天 18 小时

1^# anthony1983 发表于 2007-12-10 11:37

问个弱问题

怎么循环匹配输出呢

比如
$test="ajfl kasjfljk jlkkj klasjfk lkjksafjk kljsjkfl kjjk skk";

用模式匹配 k结尾的单词，循环输入结果

暂时想到这个
while($text=~/(\w+)k\b/){
print "$&\n";
$text = $';
}

有没有更好的？常规都怎么做

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# __lxmxn__ 发表于 2007-12-10 12:25

[Copy to clipboard] [ - ]

CODE:

$test="ajfl kasjfljk jlkkj klasjfk lkjksafjk kljsjkfl kjjk skk";
print $1,"\n" while($test=~/\b(\w+k)\b/g);

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

3^# __lxmxn__ 发表于 2007-12-10 12:29

[Copy to clipboard] [ - ]

CODE:

$test="ajfl kasjfljk jlkkj klasjfk lkjksafjk kljsjkfl kjjk skk";
print grep s/\b\w+k\b/$&\n/,split/ +/,$test;

G00GLE

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

4^# G00GLE 发表于 2007-12-10 12:44

楼上的方法都不错啊

Lonki

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

5^# Lonki 发表于 2007-12-10 12:48

QUOTE:

原帖由 __lxmxn__ 于 2007-12-10 12:29 发表
$test="ajfl kasjfljk jlkkj klasjfk lkjksafjk kljsjkfl kjjk skk";
print grep s/\b\w+k\b/$&\n/,split/ +/,$test;

与你前一个方法相比, 这个效率低多了...

anthony1983

UID: 35470
帖子: 175
积分: 402
在线时间: 1 天 18 小时

6^# anthony1983 发表于 2007-12-10 12:54

谢谢各位~perl这块就正则不好理解