From a folder, read all the XML files and add the end tag if not present.

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, I have a question for you, Pls can you suggest a solution for this...?

In a folder I have some 25 XML files . In some XML files the end tag is missing, so that it is not validating. I need to check whether it is having the end tag and if it is not there need to add it.

The sample XML file is below, and in some cases it is missing the last </main> tag. I need to check whether it is present there and if not there add it...

 <main> 
<tag1> </tag1>
<tag2> </tag2>
<tag3> </tag3>
</main>
[download]

Any possibilities Monks? Hope you can help(Also note that I am not a Perl programmer!) Thanks in advance!

Comment on From a folder, read all the XML files and add the end tag if not present. Download Code

Replies are listed 'Best First'.
Re: From a folder, read all the XML files and add the end tag if not present. by tobyink (Canon) on Nov 15, 2012 at 09:13 UTC
It is a quick check and a quick fix with a text editor, and there are only 25 files. Sometimes it's easier to just do it manually. That said, if you have the `xmllint` command-line tool available (which is fairly standard, and packaged by almost every Linux distribution), then that should be able to tell you very quickly which files have errors: xmllint --noout *.xml `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l]
Re^2: From a folder, read all the XML files and add the end tag if not present. by Anonymous Monk on Nov 15, 2012 at 09:20 UTC
Thanks tobyink, but there is more than 25 files (around 300 is there and cant do it manualy, I just mentioned 25 as a number.) Also I am working on windows, so I cannot use 'xmllint'. Pls can you suggest with a module or a program?	[reply]
Re^3: From a folder, read all the XML files and add the end tag if not present. by Anonymous Monk on Nov 15, 2012 at 09:24 UTC
Also I am working on windows, so I cannot use 'xmllint' Sure you can. Don't go looking to reinvent xmllint, go looking how to install xmllint	[reply]
Re: From a folder, read all the XML files and add the end tag if not present. by Anonymous Monk on Nov 15, 2012 at 09:20 UTC
Multilevel tag closing, or use XML::Twig with start_tag_handler, where you decide if to close main , or same with Marpa::HTML or XML::LibXML, Repair malformed XML	[reply]
Re: From a folder, read all the XML files and add the end tag if not present. by Anonymous Monk on Nov 15, 2012 at 14:14 UTC
You know that end-tags are missing .. which is highly unusual, BTW .. but what else might be wrong with the files? Be careful that you do not try too hard to "fix" incorrect inputs. There is the perhaps apocryphal tale of a COBOL compiler that "compiled" a copy of Lincoln's Gettysburg Address with no "errors."	[reply]


There's more than one way to do things
	PerlMonks