scripts/niceXML
author insilmaril
Tue, 01 Dec 2009 11:06:15 +0000
changeset 813 82ebfc46233b
parent 192 96e7cd53125e
permissions -rwxr-xr-x
Fixed undo of detach()
     1 #!/usr/bin/perl 
     2 #
     3 # Hack to make single-line XML file  easier to read by using indention
     4 #
     5 # (c) Uwe Drechsel
     6 #
     7 # License: GPL 
     8 
     9 my $filename =shift;
    10 my $s;
    11 open (INFILE, "<$filename") ||
    12 	die "Could not read $filename.";
    13 $s=join("\n",<INFILE>);
    14 
    15 $s=~s/>/>\n/gm;
    16 
    17 my @lines=split ("\n",$s);
    18 my $i=0;
    19 my $is="";
    20 
    21 foreach (@lines)
    22 {
    23 	if (!/<.*?\/>/)
    24 	{
    25 		if (/<\//)
    26 		{
    27 			# Closing tag
    28 			$i--;
    29 			if ($i<0) {$i=0};
    30 			$is=indent($i);
    31 			print "$is$_\n";
    32 		} else
    33 		{
    34 			if (/<(?!\?)/)  # ignore <? ... ?>
    35 			{
    36 				# Opening tag
    37 				print "$is$_\n";
    38 				$i++;
    39 				$is=indent($i);
    40 			} else 
    41 			{ 
    42 				# empty lines etc
    43 				print "$is$_\n"; 
    44 			}
    45 		}
    46 	} else 
    47 	{ 
    48 		# Ignor single tags <../>
    49 		print "$is$_\n"; 
    50 	}
    51 }
    52 print "\n";
    53 exit;
    54 
    55 sub indent()
    56 {
    57 	my $size=shift;
    58 	my $s="";
    59 	for ($i=0; $i<$size; $i++)
    60 	{
    61 		$s=$s."  ";
    62 	}
    63 	return $s;
    64 }