1

私は初めて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>
4

1 に答える 1

3

これがあなたが望むものだと思います：

#!/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>
于 2013-07-08T12:18:18.263 に答える