Справка по Regexp из xml (Tcl)

Question

У меня есть файл XML.

<?xml version="1.0"?> 
<catalog> 
    <book id="bk101"> 
    </book> 
<catalog> 

Я прочитал файл и сохранить его в file_data

set data [split $file_data "\n"] 
foreach line $data { 
regexp { book id=\"(.*)\" } $line all dummy 
puts $all 
puts $dummy 
} 

Так вот, как вы можете видеть, что я пытаюсь читать книгу идентификатор и распечатать его. Я получаю ошибку, которая не найдена? Я делаю это неправильно?

Редактировать

Жутко, когда я пытаюсь это:

set mydata {<book id="bk101"> testing the code } 
puts $mydata 

regexp {book id="(.*)"} $mydata all part 
puts $all 
puts $part 

Выход

<book id="bk101"> testing the code 
book id="bk101" 
bk101 

понятия не имеют код в верхней части все еще показывает ошибку

Answer 1

Пространства в RE значительны, и вы размещаете их вокруг оригинального RE, где не ожидалось. Если вы хотите анализировать XML, лучше всего использовать tdom или TclXML.

Вы должны проверить, что результат регулярного выражения возвращает ненулевой ответ (что означает, что он что-то нашел), иначе «фиктивный» не будет установлен или останется таким, каким был ранее установлен.

Answer 2

2 Очки:

1. Если вы читаете строку данных по линии, вы должны проверить, что регулярное выражение действительно спичку перед чтением переменных
2. Джефф является правильным, и у вас есть дополнительный пробелы в начале и в конце вашего регулярного выражения

    set data [split $file_data "\n"] 
    foreach line $data { 
    if { [regexp {book id=\"(.*)\"} $line all dummy] } { 
     puts $all 
     puts $dummy 
    } 
    } 

Другой вариант можно рассмотреть, если вы можете обойтись без XML, а также контролировать формат файла данных, вы можете легко создать формат, который является читаемым человеком, и TCL читаемым сделать вашу жизнь намного проще

catalog { 
    book { 
    { id "bk101" } 
    } 
} 

и т.д. Это очень легко читать как список tcl и интерпретировать в программе

Answer 3

Don't do that (хотя этот вопрос касается XHTML, это не хуже, чем любой другой диалект XML в этом отношении; простой HTML - если что-то хуже). Короче говоря, XML относится к классу языков, который REs не может полностью разобрать.

Вместо этого используйте tDOM для анализа XML и XPath (поддерживается tDOM), чтобы выделить интересные части документа.

package require tdom 

# Get the XML here by whatever method, and parse it here... 
set doc [dom parse $file_data] 

# Iterate over the books in the document and print their IDs 
foreach book [$doc selectNodes "//book"] { 
    puts "book with id=[$book @id]" 
} 

# Tidy up at the end... 
$doc delete 

Использование tDOM для обработки XML очень просто. На самом деле это проще, чем использование RE, и это тоже правильно. Двойной выигрыш!

Answer 4

Чтобы ответить на ваш конкретный вопрос, у вас есть дополнительные пробелы в вашем регулярном выражении. Посмотрите внимательно на эту строку кода:

regexp { book id=\"(.*)\" } 

Обратите внимание на место перед книжкой слов. Это важно. Вы запрашиваете регулярное выражение для поиска последовательности символов, которая начинается с пробела, буквального слова «книга», другого пространства и т. Д. Ваш шаблон не соответствует, отчасти потому, что «книга» не отображается в данных.