Удаление первой строки файла xml в Perl

Question

Привет, У меня есть XML-файл, который я хочу удалить с первой строки с помощью Perl и заменить его только одним словом. Не могли бы вы дать мне знать, как можно справиться с этим?

Фро пример, давайте мы имеем файл XML, который включает в себя несколько строк, как:

<SquishReport version="2.1" xmlns="http://www.froglogic.com/XML2"> 
<test name="test"> 
. 
. 
. 

, который после удаления и добавления нужной строки, я бы:

<SquishReport> 
<test name="test"> 
. 
. 

Answer 1

С XML::Twig:

Заменить «корневой элемент + атрибуты» только «корневым элементом»:

#!/usr/bin/env perl 
use strict; 
use warnings; 

use XML::Twig; 

my $twig = XML::Twig -> parse (\*DATA); 
$twig -> root -> del_atts; 
$twig -> set_pretty_print('indented_a'); 
$twig -> print; 

__DATA__ 
<SquishReport version="2.1" xmlns="http://www.froglogic.com/XML2"> 
<test name="test"> </test> 
</SquishReport> 

Печать:

<SquishReport> 
    <test name="test"> </test> 
</SquishReport> 

Примечание -

$twig -> set_pretty_print('indented_a'); 

Можно изменить содержимое файла - из документации на XML::Twig:

ВНИМАНИЕ: эта опция оставляет документ хорошо сформирован но может сделать его недействительным (не соответствующим его DTD).

Таким образом, выключение довольно печатного, если это проблема будет подходящим выбором.