태그 값을 기준으로 XML을 분할하십시오.

Question

안녕하세요, 저는 XML을 가지고 있으며 그 안에있는 태그 값을 기반으로 여러 XML로 분할하려고합니다.

예 - 상기 실시 예에서

<HEADER> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>78011DAC8</TAG2> 
<TAG3>US78011DAC83</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>78011DAD6</TAG2> 
<TAG3>US78011DAD66</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>B06983611</TAG2> 
<TAG3>GB0009075325</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>B06983629</TAG2> 
<TAG3>GB0009081828</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>BRS038D62</TAG2> 
<TAG3>FR0010050559</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>ABC</TAG1> 
<TAG2>BRS49ESZ5</TAG2> 
<TAG3>GB00B1Z5HQ14</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>B06983637</TAG2> 
<TAG3>GB0008983024</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS26Y2R4</TAG2> 
<TAG3>GB00B128DH60</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS1JW2X3</TAG2> 
<TAG3>FR0010235176</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS1JW2Y1</TAG2> 
<TAG3>GB00B0CNHZ09</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS3BP9P2</TAG2> 
<TAG3>GB00B1L6W962</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS7FFAV6</TAG2> 
<TAG3>GB00B3D4VD98</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>B0A07E1X7</TAG2> 
<TAG3>GB0031790826</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>DEF</TAG1> 
<TAG2>BRS1Z0T57</TAG2> 
<TAG3>GB00B0V3WQ75</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>XYZ</TAG1> 
<TAG2>BRS9ZDYJ6</TAG2> 
<TAG3>FR0010899765</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>XYZ</TAG1> 
<TAG2>BRS8ANE14</TAG2> 
<TAG3>DE0001030526</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>XYZ</TAG1> 
<TAG2>BRS22TXL8</TAG2> 
<TAG3>DE0001030500</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>XYZ</TAG1> 
<TAG2>BRS5LHPB7</TAG2> 
<TAG3>GB00B24FFM16</TAG3> 
</ROOT> 
<ROOT> 
<TAG1>XYZ</TAG1> 
<TAG2>B06983223</TAG2> 
<TAG3>GB0008932666</TAG3> 
</ROOT> 
</HEADER> 

난 TAG1 값을 확인해야하고, 다음 TAG1 값과 일치하는 경우는 분할하지 않아야하고 있지 일치하는 않는 경우가로 분할해야 새로운 XML 파일 ...

감사합니다.

Answer 1

어쩌면 당신은 내가 실제로 outcoming의 XML을 struc 여기

Answer 2

이다를 사용하여이 작업을 수행하는 비교적 간단한 방법을 잘 모릅니다

if ($xml->{HEADER}->[0]->{ROOT}->{TAG1} == $xml->{HEADER}->[1]->{ROOT}->{TAG1}) { ... } 

처럼 다음

use XML::Simple; 

my $xml = XMLin($your_xml); 

과 뭔가를 구문 분석 할 수 XML :: 나뭇 가지. 메모리에 유지되는 최대 크기는 전체 하위 파일이므로 중요 할 수도 있습니다 (메모리에 1 ROOT을 유지하는 것이 더 좋을 수 있습니다).

#!/usr/bin/perl 

use strict; 
use warnings; 

use autodie qw(open); 

use XML::Twig; 

my $in_file = $ARGV[0]; 

my $out_file= "$in_file.p"; 
my $i="01"; 
my $current_tag1=''; 


my $twig=XML::Twig->new( 
    twig_handlers => { 
     ROOT => sub { my($t, $root)= @_; 
        $current_tag1||= $root->field('TAG1');  # initialize current tag if needed 

        if($root->field('TAG1') ne $current_tag1) # found a break in the value of TAG1 
         { 
         $root->cut;        # get the new root out of the way 
         $t->print_to_file($out_file. $i++);  # output the part 
         $t->purge;        # remove the content of the part 
         $root->paste(first_child => $t->root); # put the new root back in place 

         $current_tag1= $root->field('TAG1'); 
         } 
        } 
    }, 
    keep_spaces => 1, # to keep line returns 
); 

$twig->parsefile($in_file); 
$twig->print_to_file($out_file . $i); # output the last part 

Answer 3

Atlast 내가 .... 수정 .. 아래 는 모두 수와 TAG 값을 확인합니다 코드입니다 발견

#!/usr/bin/perl 

use strict; 
use warnings; 

use autodie qw(open); 

use XML::Twig; 

my $in_file = $ARGV[0]; 

my $out_file= "$in_file.p"; 
my $i="01"; 
my $current_tag1=''; 
my $previous_tag1 = ''; 
my $nb_root_in_file =0; 
my $MIN_ROOT_IN_FILE = 5; 


my $twig=XML::Twig->new( 
twig_handlers => { 
    ROOT => sub { my($t, $root)= @_; 
    $current_tag1||= $root->field('TAG1');  # initialize current tag if needed 
    $nb_root_in_file++; 
    if($nb_root_in_file > $MIN_ROOT_IN_FILE && $root->field('TAG1') ne $current_tag1) # found a break in the value of TAG1 
        { 
        $root->cut;     # get the new root out of the way 
        $t->print_to_file($out_file. $i++);  # output the part 
        $t->purge;      # remove the content of the part 
       $root->paste(first_child => $t->root); # put the new root back in place 
        $current_tag1= $root->field('TAG1'); 
        $nb_root_in_file =0; 
        } 
        $previous_tag1 = $current_tag1; 
       } 
}, 
keep_spaces => 1, # to keep line returns 
); 

$twig->parsefile($in_file); 
    $twig->print_to_file($out_file . $i); # output the last part