XML에 속성을 추가하는 방법

Question

내가 xml::Twig에 새로운 오전 나뭇 가지. vmerge 태그의 속성 및 값을 추가하는 방법은 특히 vmerge과 함께 계산됩니까? 어떻게 시작할 수 있습니까? 이 과정에서 어떤 논리가 사용됩니까? 지금까지

내 스크립트를

use XML::Twig; 
my $XMLHandler = XML::Twig->new(TwigHandlers => { 
    }, 
    pretty_print => 'indented', 
); 
$XMLHandler->parsefile("sample.xml"); 
$XMLHandler->print; 

입력 XML : 나는 다음과 같은 수의 출력을 필요

<xml> 
    <table> 
     <tr> 
      <column><vmerge value="start"/></column> 
      <column></column> 
      <column></column> 
      <column><vmerge value="start"/></column> 
     </tr> 
     <tr> 
      <column><vmerge/></column> 
      <column></column> 
      <column></column> 
      <column><vmerge/></column> 
     </tr> 
     <tr> 
      <column><vmerge value="start"/></column> 
      <column></column> 
      <column></column> 
      <column><vmerge/></column> 
     </tr> 
     <tr> 
      <column><vmerge/></column> 
      <column></column> 
      <column></column> 
      <column><vmerge/></column> 
     </tr> 
    </table> 
</xml> 

:

<xml> 
    <table> 
     <tr> 
      <column rowspan="2"></column> 
      <column></column> 
      <column></column> 
      <column rowspan="4"></column> 
     </tr> 
     <tr> 
      <column></column> 
      <column></column> 
      <column></column> 
      <column></column> 
     </tr> 
     <tr> 
      <column rowspan="2"></column> 
      <column></column> 
      <column></column> 
      <column></column> 
     </tr> 
     <tr> 
      <column></column> 
      <column></column> 
      <column></column> 
      <column></column> 
     </tr> 
    </table> 
</xml> 

Answer 1

나는 이것이 당신이 원하는 생각 :

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::Twig; 
my $twig = XML::Twig->new(twig_handlers => { table => \&table, }, 
          pretty_print => 'indented', 
         ) 
        ->parse(\*DATA) 
        ->print; 

sub table 
    { my($t, $table)= @_; 
    foreach my $vmerge ($table->descendants('vmerge[@value="start"]')) 
     { my $span=1; 
     my $start_column= $vmerge->parent; 
     $vmerge->delete; 
     my $column_index= scalar $start_column->prev_siblings('column'); 

     my $tr= $start_column->parent('tr')->next_sibling('tr'); 
     while($tr) 
      { my $cont_vmerge= $tr->child($column_index)->first_child('vmerge[@value!="start"]'); 
      if($cont_vmerge) { $span++; $cont_vmerge->delete; } 
      else    { last;       } 
      $tr= $tr->next_sibling('tr'); 
      } 
     $start_column->set_att(rowspan => $span); 
     } 
    } 

__DATA__ 
<xml> 
<table> 
<tr> 
<column><vmerge value="start"/></column> 
<column></column> 
<column></column> 
<column><vmerge value="start"/></column> 
</tr> 
<tr> 
<column><vmerge/></column> 
<column></column> 
<column></column> 
<column><vmerge/></column> 
</tr> 
<tr> 
<column><vmerge value="start"/></column> 
<column></column> 
<column></column> 
<column><vmerge/></column> 
</tr> 
<tr> 
<column><vmerge/></column> 
<column></column> 
<column></column> 
<column><vmerge/></column> 
</tr> 
</table> 
</xml>