#!/usr/bin/perl #################################################################### # # Example of extracting known, simple XML-ish stuff using regular expressions. # # This method here *only* works if the XML lines to be parsed are of the form # $filename - xml contents

$filename - xml contents

content

'$tagname' vehicle : $content
\n"; print "
- property '$key' is '$defs{$key}'
  \n"; } print "
\n"; print "
\n"; } } # Print closing HTML print "

That's all...\n ";