--- bin/dtd2XMLRules.pl +++ bin/dtd2XMLRules.pl @@ -1,3 +1,5 @@ +#!/usr/bin/perl + use strict; use XML::Rules; use Data::Dumper; --- bin/xml2XMLRules.pl +++ bin/xml2XMLRules.pl @@ -1,3 +1,5 @@ +#!/usr/bin/perl + use strict; use XML::Rules; use Data::Dumper; @@ -12,4 +14,4 @@ if (!@ARGV) { local $Data::Dumper::Terse = 1; local $Data::Dumper::Indent = 1; -print Dumper(XML::Rules::inferRulesFromExample( @ARGV)); \ No newline at end of file +print Dumper(XML::Rules::inferRulesFromExample( @ARGV));