preprocesa.pl

#!/usr/bin/perl

my @fichero0;
open (file,"<@ARGV[0]");
while (<file>) {push (@fichero0,$_);}
close (file);

my @fichero1;
foreach (@fichero0)
{#por cada linea leida
        $_ =~ s/; /;\n/g;
        $_ =~ s/ {/\n{\n\t/g;
        $_ =~ s/} /}\n/g;
        push (@fichero1,$_);
}

open (out, ">out.php");
print out $_ foreach (@fichero1);
close (out);