#!/usr/bin/perl use strict; open(wizi, "< $ARGV[0]"); open(wizo, "> $ARGV[1]"); my @tab; my $verbose = 0; while (<wizi>) { if (/(\s*defaultImage=\".*)\..*\"/) { print wizo "$1\"\n"; next; } if (/\s*guiType\s*\=.*/ || /\s*font.*\=.*/ || /\s*inputType\s*\=.*/ || /\s*dbPositions\s*\=.*/ || /\s*ratio\s*\=.*/ || /\s*proportional\s*\=.*/ || /\s*length\s*\=.*/ || /\s*alignement\s*\=.*/ || /\s*hasDb\s*\=.*/ || /\s*key\s*\=.*/ || /\s*db.*\=.*/ || /\s*reference.*\=.*/ || /\s*height\s*\=.*/ || /\s*width\s*\=.*/ || /\s*persistent\s*\=.*/) { print "# $_" if $verbose; next; } if (m/^\s*<Info/s.../^\s*<\/Info>/m ) { if (!/\s*name\s*\=\".*\"\s*/) { push @tab, $_; print ">> $_" if $verbose; } next; } else { if (@tab > 3) { foreach (@tab) { print "?? $_" if $verbose; print wizo $_; } } } @tab = (); print wizo $_; } close(wizi); close(wizo); print "$ARGV[0] -> $ARGV[1]\n";