펄 XML 내가 Perl과 CPAN 모듈을위한 초보자 해요 솔루션

Question

변환

나는 XML 파일을 변환 싶어

은 다음과 같습니다

<Item><Link>http://example.com/</Link></Item>.... 

<Item><Link>http://mysite.com/</Link></Item>.... 

에 스마트 솔루션이 있습니까? CPAN 모듈로

Answer 1

• 는 XML::Twig를 참조 - 트리 모드에서 큰 XML 문서를 처리하기위한 펄 모듈을.
• 또는 XML::Simple - 간편한 API는, XML (특히 설정 파일)과 같은

을 유지하기

use strict; 
use warnings; 
use XML::Simple; 
use Data::Dumper; 

my $xml = q~<?xml version='1.0'?> 
<root> 
    <Item> 
    <Link>http://example.com/</Link> 
    </Item> 
    <Item> 
    <Link>http://example1.com/</Link> 
    </Item> 
</root>~; 

print $xml,$/; 

my $data = XMLin($xml); 

print Dumper($data); 

foreach my $test (@{$data->{Item}}){ 
    foreach my $key (keys %{$test}){ 
     $test->{$key} =~ s/example/mysite/; 
    } 
} 
print XMLout($data, RootName=>'root', NoAttr=>1,XMLDecl => 1); 

출력 :

<?xml version='1.0'?> 
<root> 
    <Item> 
    <Link>http://example.com/</Link> 
    </Item> 
    <Item> 
    <Link>http://example1.com/</Link> 
    </Item> 
</root> 
$VAR1 = { 
      'Item' => [ 
        { 
         'Link' => 'http://example.com/' 
        }, 
        { 
         'Link' => 'http://example1.com/' 
        } 
        ] 
     }; 
<?xml version='1.0' standalone='yes'?> 
<root> 
    <Item> 
    <Link>http://mysite.com/</Link> 
    </Item> 
    <Item> 
    <Link>http://mysite1.com/</Link> 
    </Item> 
</root> 

Answer 2

당신이 필요로하는 모든 특정 값을 변경하는 경우, 당신은 정말로 특별한 것을 필요로하지 않습니다, 당신은 단순히 regexp를 사용할 수 있습니다 :
명령 줄에서 :

perl -pi -e 's@http://example.com/@http://mysite.com/@g' file.xml 

편집 : 추가 전체 코드 버전 : XML을 사용하여

my $file = '/tmp/test.xml'; 

open IN, "<$file" or die "can't open $file $!"; 
open OUT, ">$file.tmp" or die "can't open $file.tmp $!"; 
foreach (<IN>) { 
    s@http://example.com/@http://mysite.com/@g; 
    print OUT $_; 
} 
close(IN); 
close(OUT); 

rename("$file.tmp", "$file") 

Answer 3

간단한 해결책은 : 나뭇 가지 아래입니다. XML :: Simple 옵션과 비교하여 Link 요소가 XML에 상관없이 작동하며 파일의 원래 형식을 준수합니다. XML이 혼합 컨텐츠를 포함하는 경우에도 작동합니다. 이 곳에서 파일을 변경해야하는 경우

대신 parsefile의 parsefile_inplace을 사용할 수 있습니다, 나는 subs_text에서 정규 표현식이 실제 생활에서 개선해야 할 수 있습니다 생각하지만,이 코드는 좋은 출발점이되어야한다.

#!/usr/bin/perl 

use strict; 
use warnings; 

use XML::Twig; 

XML::Twig->new(twig_roots => { Link => \&replace_link, }, # process Link 
       twig_print_outside_roots => 1,    # output everything else 
      ) 
      ->parsefile('my.xml'); 

sub replace_link 
    { my($t, $link)= @_; 
    $link->subs_text(qr{^http://example\.com/$}, 'http://mysite.com'); 
    $t->flush;    # or $link->print, outputs the modified (or not) link 
    }