Help for this page

Select Code to Download

Select or download this

#!/bin/perl -w

# strips an XML file from all of it's tags and outputs the result
...
    next if m/^\s*$/;                         # skip empty lines
    print;                                    # output the rest (text 
+in $tag)
  }

Select or download this

<?xml version="1.0" encoding="ISO-8859-1"?>
<cancion>
  <titulo>A mi me gusta lo blanco</titulo>
...
    </parte>
  </texto>
</cancion>