एक्सएमएल पढ़ा से और जब तक मैं इस पर्ल कोड का उपयोग एक फ़ाइल से XML को पढ़ने के लिए, और फिर एक और फ़ाइल पर लिखने प्रारूप

Question

संरक्षण दायर करने के लिए (मेरा पूरा स्क्रिप्ट गुण जोड़ने के लिए कोड है):

#!usr/bin/perl -w 

use strict; 
use XML::DOM; 
use XML::Simple; 

my $num_args = $#ARGV + 1; 

if ($num_args != 2) { 
    print "\nUsage: ModifyXML.pl inputXML outputXML\n"; 
    exit; 
} 

my $inputPath = $ARGV[0]; 
my $outputPath = $ARGV[1]; 

open(inputXML, "$inputPath") || die "Cannot open $inputPath \n"; 

my $parser = XML::DOM::Parser->new(); 
my $data = $parser->parsefile($inputPath) || die "Error parsing XML File"; 

open my $fh, '>:utf8', "$outputPath" or die "Can't open $outputPath for writing: $!\n"; 
$data->printToFileHandle($fh); 

close(inputXML); 

लेकिन इस लाइन ब्रेक जैसे पात्रों को संरक्षित नहीं करता है। उदाहरण के लिए, इस XML:

<?xml version="1.0" encoding="utf-8"?> 
<Test> 
    <Notification Content="test1  testx &#xD;&#xA;test2&#xD;&#xA;test3&#xD;&#xA;" Type="Test1234"> 
    </Notification> 
</Test> 

इस हो जाता है:

<?xml version="1.0" encoding="utf-8"?> 
<Test> 
    <Notification Content="test1  testx 

test2 

test3 

" Type="Test1234"> 
    </Notification> 
</Test> 

मुझे लगता है मैं ठीक से दर्ज करने के लिए नहीं लिख रहा हूँ।

Answer 1

उदाहरण के लिए XML::LibXML का उपयोग करें। शामिल होने वाले मुख्य मॉड्यूल XML::LibXML::Parser और XML::LibXML::DOM (दूसरों के साथ) हैं। लौटे वस्तु आम तौर पर XML::LibXML::Document

use warnings 'all'; 
use strict; 

use XML::LibXML; 

my $inputPath = 'with_encodings.xml'; 
my $outputPath = 'keep_encodings.xml'; 

my $reader = XML::LibXML->new(); 
my $doc = $reader->load_xml(location => $inputPath, no_blanks => 1); 

print $doc->toString(); 

my $state = $doc->toFile($outputPath); 

हम पहले एक वस्तु बनाने के लिए नहीं है, लेकिन सीधे XML::LibXML->load_xml कह सकता है। मैं इसे एक उदाहरण के रूप में करता हूं क्योंकि इस तरह से कोई भी $reader पर पार्सिंग से पहले, लेकिन कन्स्ट्रक्टर के बाहर, एन्कोडिंग सेट करने के लिए विधियों का उपयोग कर सकता है।

यह मॉड्यूल प्रसंस्करण के लिए और भी सुविधाजनक है।

XML::Twig को एन्कोडिंग भी छोड़नी चाहिए, और प्रसंस्करण के लिए भी बेहतर है।

Answer 2

एफवाईआई, मैं विभिन्न एक्सएमएल पार्सर पर स्विच करके ऐसा करने में सक्षम था। अब एक्सएमएल :: LibXML का उपयोग कर।

सिंटेक्स समान है, इसे 'parsefile' के बजाय 'parse_file' को छोड़कर, और 'printToFileHandle' के बजाय आप फ़ाइल नाम के साथ 'toFile' का उपयोग करते हैं।