Perl의 XML :: Twig를 사용하여 하위 요소에 특성을 추가하려면 어떻게해야합니까?

Question

다음과 같은 XML 문자열이 있습니다.

<DATA> 
    <CHILD_DATA ATVAL="value1"/> 
    <CHILD_DATA /> 
</DATA> 

원하는 최종 출력은 다음과 같습니다.

<DATA> 
    <CHILD_DATA ATVAL="value1"/> 
    <CHILD_DATA ATVAL="value2"/> 
</DATA> 

내 나뭇 가지 $t은 <DATA>입니다. 이제 두 번째 <CHILD_DATA />에 특성을 추가하려고합니다. 특성은 ATVAL="value2"입니다. 나는 다음을 시도 :

$t->last_child('CHILD_DATA')->set_att{"ATVAL","value2"}; 

이것은 작동하지 않았다. 이 코드의 문제점은 무엇입니까? 이것을 할 또 다른 방법이 있습니까?

Answer 1

존이 당신에게 암시 한 것처럼, 게시 한 코드에 구문 오류가 있습니다. 당신은 같은 컴파일 오류 봤어야 : 테스트 라인 (18), 근처에

구문 오류 "-> set_att은 {"program.pl의 실행으로 인해 컴파일 오류로 중단되었습니다.

그러나 코드가 실제로 수행 한 것과 일치하지 않도록 코드에 대답을 입력했을 수도 있습니다. 항상 실제 코드를 다시 입력하는 대신 질문에 넣고 가능한 한 전체 프로그램을 게시하십시오. 프로그램을 게시 할 때 처음부터 다시 시작할 필요가 없습니다. :)

여기 당신이 원하는 않는 프로그램입니다 :

#!/usr/bin/perl 

use XML::Twig; 

my $xml = <<'XML'; 
<DATA> 
    <CHILD_DATA ATVAL="value1"/> 
    <CHILD_DATA /> 
</DATA> 
XML 

my $twig= XML::Twig->new(keep_spaces => 1); 

    $twig->parse($xml); 

    $t = $twig->root; 

    $t->last_child('CHILD_DATA')->set_att("ATVAL" => "value2"); 

$twig->flush; 

Answer 2

불과 몇 생각 : 번 같은 질문을 여러 게시

1. 당신을 돕는 사람 을 사랑 받게하지 않을.

2. 코드가 구문 상 정확하게 일치하지 않으므로 이 맞으므로 에 문제가있는 것은 아닙니다.

왜 이 점점 오류를 포함하지? 아마도 그것은 문제에 대해 빛을 발산합니까?