Perl XML :: LibXML 속성 값 검색 및 발생 횟수

Question

그래서이 코드는 동일한 구조의 속성 값을 다른 소스와 일치시키는 역할을하므로 xml을 표시하지 않았습니다. 난 그냥 플래시 XML이 :: LibXML이며, 그것을

#get from one data source 
for my $movie($review_details1->findnodes('/result_set/results/review')){ 
    my $id = $movie->findvalue('@movie_id'); 

    #check if it exists in the other data source 
    for my $new_movie($review_details2->findnodes('result_set/results/review')){ 
     my $new_id = $new_movie->findvalue('@movie_id'); 
     if ($id eq $new_id){ 
     print "ID $id matches NEW ID $new_id\n"; 
     } 
    } 
} 

건배

을 할 수있는 더 나은 방법이있을 것이라고 방법으로 생각

Answer 1

my %ids1; 
my %ids2; 

# count all the IDs in Details1 
$ids1{$_->value}++ foreach @{$review_details1->findnodes('book_reviewers/results/reviewer/@movie_id')}; 

# count all the IDs in Details2 
$ids2{$_->value}++ foreach @{$review_details2->findnodes('book_reviewers/results/reviewer/@movie_id')}; 

# pass through all keys from IDs2 that also exist in IDs1 
grep{exists $ids1{$_}} keys %ids2; 

그 grep 문은 id의 목록을 반환합니다. 당신이 좋아하는 것과 상관없이 그것을 인쇄하고 그것을 배열에 할당하십시오 - 모든 것.

Answer 2

당신은을 통해 각각의 구조를 반복 한 번 대신 루핑 더 나을 수 있습니다 두 번째 XML 때마다,하지만, TMTOWTDI. 아마도 XML 파일이 작은 지 여부는 중요하지 않지만 크기가 클 경우 가치가있을 수 있습니다.

my %movie_ids; 
for my $movie($review_details1->findnodes('/result_set/results/review')){ 
    my $id = $movie->findvalue('@movie_id'); 
    $movie_ids{$id}++; 

for my $new_movie($review_details2->findnodes('result_set/results/review')){ 
    my $new_id = $new_movie->findvalue('@movie_id'); 
    $movie_ids{$new_id}++; 

그럼 당신은 %movie_ids를 통해 볼 수 있으며, 각 키의 값은 중 1 (전혀 일치) 또는> 1 (경기) 일 것이다.

두 파일을 먼저 결합한 다음 비슷한 파일을 만들 수 있지만 하나의 XML 파일 만 살펴 봐야합니다.