perl 脚本去掉 word 自定义属性

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl

use Archive::Zip;
use IO::File;
use Data::Dumper;
use XML::Simple;

my $buffer;
my $zip = Archive::Zip->new();

$zip->read('600601.docx');
$buffer = $zip->contents( '_rels/.rels' );

my $xml = XML::Simple->new()->XMLin($buffer,KeepRoot => 1);
$temp = $xml->{Relationships}->{Relationship};
my $count = 0;
foreach $temp_b (@$temp){
	if ( $temp_b->{Target} =~ /custom.xml$/ ){
		print $temp_b->{Target}."n";
		delete $xml->{Relationships}->{Relationship}->[$count];
	}
	$count++;
}
my $xml = XML::Simple->new()->XMLout($xml,NoIndent => 1,RootName => '',XMLDecl => '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>');

$zip->contents( '_rels/.rels',"$xml" );
$zip->overwrite();

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!