请问匹配一个字符在一定区间中怎么写啊？

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

1^# guijia8427 发表于 2008-07-23 15:05

请问匹配一个字符在一定区间中怎么写啊？

这个属于学习问题
加入我想匹配a这个字符规则是这样的如果这个a出现字符中5到10次就匹配出来小于5次不行大于10次也不行该怎么写啊好像a{5,10} 搞不定啊他11次也能匹配出字符来 ..

hzl1984

UID: 24322
帖子: 177
积分: 407
在线时间: 1 天 18 小时

2^# hzl1984 发表于 2008-07-23 16:51

我只想到了这么个笨办法，希望再有人能推敲推敲：

my $str = "testaaaaaaaaaaabbbb";
print $str;
if ( $str =~ /a{5,10}/ && !($str =~ /a{11}/)) {
print "\nOK!";
}
else {
print "\nNot mapped!";
}

Ksharp

UID: 18880
帖子: 7
积分: 16
在线时间: 10 分钟

3^# Ksharp 发表于 2008-07-23 17:36

The pattern /a{5,15}/ will match from five to fifteen repetitions of the letter a. If the a appears three times, that's too few, so it won't match. If it appears five times, it's a match. If it appears ten times, that's still a match. If it appears twenty times, the first fifteen will match since that's the upper limit.

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

4^# hfahe 发表于 2008-07-23 17:44

/[^a]a{5,10}[^a]/ ....

need2login

UID: 47068
帖子: 147
积分: 338
在线时间: 1 天 5 小时

5^# need2login 发表于 2008-07-23 17:47

/[^a]a{5,10}[^a]/ ....
应该不行吧。。
遇到这样 aaaaa前后都空的情况就不行了

converse

UID: 43541
帖子: 20
积分: 46
在线时间: 10 分钟

6^# converse 发表于 2008-07-23 18:06

这个问题有点意思,mark一个.

flw

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

7^# flw 发表于 2008-07-23 18:10

你要的其实就是断言：
断言 a{5,10} 的前面不能和 a 相连，后面也不能和 a 相连。
分别用向前向后断言就可以了。

[Copy to clipboard] [ - ]

CODE:

flw@debian:~/study$ cat ttt.pl
#!/usr/bin/perl

foreach ( map { 'a' x $_ . "\n" } (0..15) ){
if ( /(?<!a)a{5,10}(?!a)/ ){
print "+ ";
}
else{
print "- ";
}

print;
}
flw@debian:~/study$ ./ttt.pl
-
- a
- aa
- aaa
- aaaa
+ aaaaa
+ aaaaaa
+ aaaaaaa
+ aaaaaaaa
+ aaaaaaaaa
+ aaaaaaaaaa
- aaaaaaaaaaa
- aaaaaaaaaaaa
- aaaaaaaaaaaaa
- aaaaaaaaaaaaaa
- aaaaaaaaaaaaaaa
flw@debian:~/study$

hdc1112

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

8^# hdc1112 发表于 2008-07-23 19:18

恩，相当于提前看了匹配字符串前后的字母，学习。。。
记得正则表达式这书中有讲，有四个形式，前肯定断言，前否定断言，后肯定断言，后否定断言，这里用的是前后否定断言

guijia8427

UID: 8237
帖子: 160
积分: 368
在线时间: 1 天 11 小时

9^# guijia8427 发表于 2008-07-23 22:47

QUOTE:

原帖由 flw 于 2008-7-23 18:10 发表
你要的其实就是断言：
断言 a{5,10} 的前面不能和 a 相连，后面也不能和 a 相连。
分别用向前向后断言就可以了。

flw@debian:~/study$ cat ttt.pl
#!/usr/bin/perl

foreach ( map { 'a' x $_ . "\n" } ...

这个好像实现不了吧
假如这样的字符串：
$s="t111sgdt11111sjddjt1111111111"
我想匹配出 t111 和t111111 而不想匹配出t1111111111
好像实现不了吧

__lxmxn__

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

10^# __lxmxn__ 发表于 2008-07-24 08:27

Nothing is impossible ^_^

QUOTE:

D:\lxmxn\work\Other>type ss.pl
$s="t111sgdt11111sjddjt1111111111";

while ( $s =~ m/(?>t1{3,6})(?!1)/g ) {
print "[$&] ($` -- $')\n";
}

D:\lxmxn\work\Other>ss.pl
[t111] ( -- sgdt11111sjddjt1111111111)
[t11111] (t111sgd -- sjddjt1111111111)

D:\lxmxn\work\Other>