drakwizard/trunk/Zwiffer.pl

#!/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";
1	#!/usr/bin/perl
2
3	use strict;
4
5	open(wizi, "< $ARGV[0]");
6	open(wizo, "> $ARGV[1]");
7	my @tab;
8	my $verbose = 0;
9
10	while (<wizi>)
11	{
12	if (/(\sdefaultImage=\".)\..*\"/) {
13	print wizo "$1\"\n";
14	next;
15	}
16	if (/\sguiType\s\=./ \|\| /\sfont.\=./ \|\| /\sinputType\s\=./ \|\| /\sdbPositions\s\=./ \|\|
17	/\sratio\s\=./ \|\| /\sproportional\s\=./ \|\| /\slength\s\=./ \|\| /\salignement\s\=./ \|\|
18	/\shasDb\s\=./ \|\| /\skey\s\=./ \|\| /\sdb.\=./ \|\| /\sreference.\=./ \|\| /\sheight\s\=.*/ \|\|
19	/\swidth\s\=./ \|\| /\spersistent\s\=./) {
20	print "# $_" if $verbose;
21	next;
22	}
23	if (m/^\s<Info/s.../^\s<\/Info>/m ) {
24	if (!/\sname\s\=\".\"\s/) {
25	push @tab, $_;
26	print ">> $_" if $verbose;
27	}
28	next;
29	}
30	else {
31	if (@tab > 3) {
32	foreach (@tab) {
33	print "?? $_" if $verbose;
34	print wizo $_;
35	}
36	}
37	}
38	@tab = ();
39	print wizo $_;
40	}
41	close(wizi);
42	close(wizo);
43	print "$ARGV[0] -> $ARGV[1]\n";