在Perl中需要RegEx用于以下场景

时间:2014-03-07 10:55:57

标签: php regex perl

嗨朋友我是perl的新手,我需要一个正则表达式来找到我在下面突出显示的内容,有人能给出解决方案吗?

&安培; #x 2003; Ferrara-Florence 33,58

圣帕特里克& #x 2019; s Purgatory 1,2,5,6,11-12,16,20,27,61,86,105-6,127-62,179,184-5,219,233,237-8, 260

Checco Rossi da Meleto 70,127,140-3,151

Aragona,Tullia d& #x 2019; 127,161-2

Checco 70,127,140-3

&安培; #x2003;费拉拉 - 佛罗伦萨 33,58

M& #x00FC; ns& #x 00FC; ter,Sebas& #x00FC; tia& #x00FC; n 215,228-32

Machiavelli,Niccolò 7-8,15,26,37-8,67,74,159,245,249-50

我提供了额外的空间来显示小数字符

谢谢

3 个答案:

答案 0 :(得分:0)

你可以尝试这种模式:

(?m)^(?>& *# *x *[A-F0-9]{4};|[\p{L} ,-]+?(?= |&))+

答案 1 :(得分:0)

试试这个:

(.+?)(?:[\d\-]+,\s)+.+

演示:

http://rubular.com/r/VAsBRQaRmV

和另一个演示(带解释和次要编辑):http://regex101.com/r/mS9oN3

答案 2 :(得分:0)

怎么样:

^(.+?)\s+(?=\d+[,-])