PCRE正则表达式需要帮助

Question

我在写perl兼容正则表达式时遇到了麻烦，以便在每个条件之间存在差距时匹配几个不同的东西。它更有意义，当我解释我希望它找到

条件是什么

1. /世界/
2. 一个字母
3. 破折号或下划线
4. 一个字母
5. 单期
6. 三个或四个字母

我遇到的问题是我不知道如何编写表达式，使得条件＃1和＃2之间可能存在差距。条件＃2 - ＃4可以重复，但不总是。

我一直在使用多个在线正则表达式测试人员，但我无法获得一个匹配，我不知道我做错了什么。我认为正则表达式正在寻找/world/x_x或/world/y-y，而不是“展望”来匹配“字母短划线字母”或“字母下划线字母”模式。

当前正则表达式

/world/([a-z](-|_)[a-z]){1,}\.[a-z]{3,4}$ 

期望匹配（目前不匹配）

hxxp://armassimchilzeispreu.blackjackipad.com/world/activate_available.jar 

hxxp://chubfaceddamsel0.affittobarcheavela.it/world/eternal_threat-clearing.html 

hxxp://offdestroyengarabitar.freebookofraslot.com/world/bonus-middle-marathon.pdf 

Answer 1

我想你想这

use strict; 
use warnings; 

while (<DATA>) { 
    chomp; 
    print "OK $_\n" if m</world/[a-z]+(?:[_-][a-z]+)+\.[a-z]{3,4}$>; 
} 

__DATA__ 
hxxp://armassimchilzeispreu.blackjackipad.com/world/activate_available.jar 
hxxp://chubfaceddamsel0.affittobarcheavela.it/world/eternal_threat-clearing.html 
hxxp://offdestroyengarabitar.freebookofraslot.com/world/bonus-middle-marathon.pdf 

或者只是

m</world/[a-z-_]+\.[a-z]{3,4}$>