#!/usr/bin/perl
# 4BJJ9OVI:xmltidy created by Pip Stuart <Pip@CPAN.Org>
#   to tidy up all the element indenting of XML documents.
# The accepted parameters to this script are:
#   filename       (presumably an XML file with misaligned elements)
#   indent_string  ('tab' works as an alternate way to specify "\t")
# Examples:                        # two  (2) spaces is default
#   `xmltidy FileName.xml ' '   `  # one  (1) space  per indent level
#   `xmltidy FileName.xml '    '`  # four (4) spaces per indent level
#   `xmltidy FileName.xml tab   `  # one  (1) tab    per indent level
# This utility is part of the XML::Tidy Perl Module. Please run
#   `perldoc XML::Tidy` from the command-line for further documentation.
# This code is licensed under the GNU General Public License version 3+.
use strict;use warnings;use XML::Tidy;
my $flnm = shift() || die "USAGE: `$0 FileName.xml '<indent_string>'`\n";
my $nxto = XML::Tidy->new($flnm);$nxto->tidy(shift());$nxto->write();