# /usr/bin/perl # removeAnnotaion.pl # scripte to remove all of the annotation tags (xs:annotation) # from an XML schema file. # ------------------------------------------------------------------- # usage: perl removeAnnotation.pl outputfile.xsd while(<>) { if(m!*!) { while(not m!*!) { s!!!; $_ = <>; } # print ''; } s!!!; print; } s!\n\s*!!g;