File: xmltidy

package info (click to toggle)
libxml-tidy-perl 1.20-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 268 kB
  • sloc: perl: 621; makefile: 8
file content (16 lines) | stat: -rwxr-xr-x 982 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/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();