XML :: Twig를 사용하여 twig_handlers 메소드 next_sibling 또는 next_elt를 사용할 수 없습니다.

Question

저는 XML::Twig을 사용하여 새롭습니다. 나는 서브 루틴 player에서 속성 @method="create"

와 요소를 찾아 주 프로그램에서

, 나는 속성 @method="modify"와 다음 요소/형제를 찾고 싶어요. 이러한 방법의

두

오류 input.xwo의 Can't call method "gi" on an undefined value

my $modif1=$valeur->next_sibling('[@method="modify"]') 

my $modif2=$valeur->next_elt('[@method="modify"]')->parent 

예와 서브 루틴 player 실패 :

<top id="World"> 

    <middle id="France" method="create"> 
    </middle> 

    <middle id="Germany" method="modify"> 
    </middle> 

</top> 

내 간단한 코드 : 항상

#!/bin/perl -w 
use warnings; 
use XML::Twig; 

my $twig= new XML::Twig( 
    twig_handlers => { 
    '[@method="create"]' => \&player 
    } 
);      

$twig->parsefile("input.xwo"); 
$twig->purge; 

sub player { 

    my ($twig, $valeur) = @_;      

    my $modif1 = $valeur->next_sibling('[@method="modify"]'); 
    my $modif2 = $valeur->next_elt('[@method="modify"]')->parent; 
    print "\nnextELT=" . $modif->gi . "\n"; 
} 

Answer 1

하십시오 프로그램 상단에을 삽입하고 첫 번째 사용 시점에 my을 사용하여 변수를 선언하십시오. use warnings과 -w 명령 줄 옵션에는 아무런 의미가 없습니다. 첫 번째가 바람직합니다.

<middle method="create"> 요소의 나뭇 가지 처리기가 호출되면 필요로하는 형제 인 <middle method="modify">이 처리되지 않았습니다. 아직 구문 트리에 있지 않기 때문에 찾을 수 없습니다.

당신은 전체 XML 구조를 읽고 나중에이를 처리, 또는 모두create 및 modify 요소를 둘러싸는 요소에 대한 처리기를 작성해야 하나.

이 프로그램은 후자를 수행합니다.

use strict; 
use warnings; 

use XML::Twig; 

my $twig= XML::Twig->new(
    twig_handlers => { 
    top => \&player 
    } 
);      

$twig->parsefile('input.xwo'); 
$twig->purge; 

sub player { 

    my ($twig, $valeur) = @_;     

    my $create = $valeur->first_child('[@method="create"]'); 
    return unless $create; 

    my $modify = $create->next_sibling('[@method="modify"]'); 
    return unless $modify; 

    printf "\nnextELT = %s\n", $modify->gi; 

    $twig->purge; 
} 

---

업데이트

이 대안은 전체 XML 트리를 읽고 나중에 그것에서 데이터를 추출합니다. 모든 요소가 인 'create' 인 트리를 찾은 다음 method 특성이 'modify' 인 다음 형제를 찾습니다.

use strict; 
use warnings; 

use XML::Twig; 

my $twig= XML::Twig->new; 

$twig->parsefile('input.xwo'); 

my @creates = $twig->get_xpath('//*[@method="create"]'); 

foreach my $create (@creates) { 
    my $modify = $create->next_sibling('[@method="modify"]'); 
    next unless $modify; 
    printf "\nnextELT = %s\n", $modify->gi; 
}