Perl регулярное выражение

Question

<ref id="ch02_ref1"><mixed-citation publication-type="journal"><person-group person-group-type="author"><name><surname>J.M.</surname><given-names>Astilleros</given-names></name> 

Это отдельная строка. Мне просто нужно извлечь слово между тегами <given-names> и </given-names>, которые в этом случае составляют Astilleros. Есть ли регулярное выражение для этого. Проблема, с которой я сталкиваюсь, заключается в том, что между каждым словом и конечным тегом не существует пробела </given-names> где '/' является символом в perl regex .. пожалуйста, помогите ..

Идея состоит в том, чтобы получить имена, найти их в тексте на странице и поместить <given-names>Astilleros</given-names> тегов вокруг них .. Я обязательно попробовать XML парсер ..

Answer 1

Не разобрать XML с regexes - просто слишком сложно получить право. Есть хорошие парсеры, которые лежат вокруг, просто ждут, чтобы их использовали. Давайте использовать XML::LibXML:

use strict; use warnings; 
use XML::LibXML; 

my $dom = XML::LibXML->load_xml(string => <<'END'); 
<ref id="ch02_ref1"> 
    <mixed-citation publication-type="journal"> 
    <person-group person-group-type="author"> 
     <name> 
     <surname>J.M.</surname> 
     <given-names>Astilleros</given-names> 
     </name> 
    </person-group> 
    </mixed-citation> 
</ref> 
END 

# use XPath to find your element 
my ($name) = $dom->findnodes('//given-names'); 
print $name->textContent, "\n"; 

(! Все, что вы попробуете, не использовать XML :: Simple)

Answer 2

Это должно работать как регулярное выражение:

/<given-names>(.*?)</ 

с вашего входа, он будет захватывать Astilleros

Это соответствует:

• Буквальное <given-names>
• Захватывает (от 0 до бесконечных раз) любой символ (за исключением символа новой строки)
• До тех пор, пока не достигнет буквальным <