File: xmltidy

package info (click to toggle)
libxml-tidy-perl 1.12.B55J2qn-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 260 kB
  • ctags: 73
  • sloc: perl: 781; makefile: 11
file content (40 lines) | stat: -rwxr-xr-x 1,154 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl -w
# 4BJ9OVI - xmltidy created by Pip Stuart <Pip@CPAN.Org>
#   to tidy up all the element indenting of XML documents.
# The parameters are:
#   filename
#   indent_string  ('tab' works as an alternate way to specify "\t")
# Examples:
#   `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 is licensed under the GNU General Public License version 2.
use strict; use XML::Tidy;
my $flnm = shift() || die "USAGE: `$0 FileName.xml '<indent_string>'`\n";
my $tidy = XML::Tidy->new($flnm); $tidy->tidy(shift()); $tidy->write();

=pod

=head1 NAME

xmltidy - tidy an XML document

=cut

=head1 SYNOPSIS

xmltidy FileName.xml <indent_string>

=cut

=head1 DESCRIPTION

The FileName is the file that will be tidied, and the optional
indent_string is the string that should be inserted for each indent
level, which defaults to two spaces.

=cut