root/trunk/midgard/tools/yamp/remove_grps.pl

#!/usr/bin/perl

#  remove _all_ groups from xml file
#  remember to kill all group references before


local $/;

open FILE, "< $ARGV[0]";
$xml = <FILE>;
close FILE;

# remove all "grp" elements (scary)
$xml =~ s#<grp.*?>.*?</grp>##sg;

open FILE2, "> /tmp/$1.$$";
print FILE2 $xml;
close FILE2;

system("mv", "/tmp/$1.$$", $ARGV[0]);
unlink("/tmp/$1.$$");