perl 脚本去掉 word 自定义属性

大佬教程收集整理的这篇文章主要介绍了perl 脚本去掉 word 自定义属性，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/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();

大佬总结

以上是大佬教程为你收集整理的perl 脚本去掉 word 自定义属性全部内容，希望文章能够帮你解决perl 脚本去掉 word 自定义属性所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。