Как сжать XML из XML :: Simple :: XMLout?

Question

Я использую XML :: Simple для синтаксического анализа и редактирования очень большого XML-файла, и скорость важна (до сих пор все методы, которые я пробовал, XML: Simple был самым быстрым)

Теперь, когда все мои редактирование завершено. Я печатаю XML в документе с помощью XMLout(), хотя он печатает его с правильным отступом, которое хорошо, если это было прочитано людьми, но совершенно бесполезно в моей ситуации.

Выходной файл без пробела составляет 1,2 МБ с пробелом 15 Мб.

Я использую:

my $string = XMLout($data); 
$string =~ s/>[\s]*</></g; 
print $out $string; 

Но это, кажется, не только экстремальные боры процессора и занимает огромное количество памяти, чтобы сделать.

Является ли это способом простого вывода моего XML-объекта в качестве правильного XML без всякого бесполезного пробела?

Благодаря

Answer 1

Посмотрите на опции NoIndent: от XML :: Simple страница руководства:

NoIndent => 1 # из - редко используется

Установите этот параметр 1, чтобы отключить " Режим вывода XMLout() «по умолчанию» довольно . Если этот параметр включен, вывод XML будет быть в одной строке (если в данных нет новых строк) - это может быть проще для последующей обработки.

NormaliseSpace => 0 │ 1 │ 2 # в - удобный

Этот параметр определяет, как пробелы в текстовый контент обрабатывается. Признанные значения для опции:

• 0 = (по умолчанию) пробельные передается через неизмененный (за исключением, конечно, для нормализации пробелов в значений атрибутов, который уполномочен по рекомендации XML)

• 1 = пробельные нормализуется в любом значения, используемого в качестве ключа хэш (нормирующий означает удаление передней и задней whites- темп и свертывание последовательности пробельных символов в один пробел)

• 2 = пробел нормализуется во всем текстовом содержимом

  Примечание: вы можете записать эту опцию с помощью «z», если это более естественно для вас.

Answer 2

управляемого событиями XML-парсер будет быстрее, чем то, что нужно, чтобы загрузить все вещи в память сразу.

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

$string =~ s/>\s+</></g; 

Answer 3

Просто установите параметр NoIndent в вызове XMLout().Пример:

my $string = XMLout($data, NoIndent=>1); 

Tada!