去掉word自定义属性代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】去掉word自定义属性

作者:不吃皮蛋 / 发布于2014/1/17/ 503

#!/usr/bin/perl



useArchive::Zip;

useIO::File;

useData::Dumper;

useXML::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();

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　word　

同语言下

可能有用的

不吃皮蛋贡献的其它代码(18)