Sorry for the CGI and other variables that aren't being used yet--this script is destined to run as a CGI.

use strict;
use CGI;
use WDDX;
use Data::Dumper;

my $q = new CGI;
my $wddx = new WDDX;

# get params
my $report = $q->param('report');

# send request to josh's data service
my $hashref = getData($report);

#print Dumper($hashref);
#print "\n\n";

my $type_sub = sub {
    my( $name, $row, $mode ) = @_;
    #print "$name--$row--$mode\n";
    #$name =~ /wind/     and return "number";
};

my $wddx_obj = $wddx->hash2wddx( $hashref, $type_sub );

$WDDX::INDENT = "   ";
print $wddx->serialize( $wddx_obj );

exit;

sub getData {
    # here's where we'll get various query params for ea report
    my $report = shift; # dummy value

    # return a hash w data structure
    my $data;

    open (FH,"/home/httpd/html/newdev2/wddx/ib_basics.txt") or die("Co
+uldn't open: $!");
    while (<FH>) {
        if ($_ =~ /^"\@QUERY:(.*)"/) {
            my $query = $1;
            my $i = 0;
            my @keys = ();
            while (<FH>) {
                last if /^"\@ENDQUERY"/;
                $_ =~ s/\r\n//;
                $_ =~ s/\"//g;

                # get the keys
                push(@keys,split(",",$_)) unless $i ne 0;
                # reset @values and get 'em
                my @values = ();
                push(@values,split(",",$_)) unless $i eq 0;

                # fill da hashes
                for(my $k = 0; $k <= $#keys; $k++) {
                    $data->{$query}->{"r$i"}->{$keys[$k]} = $values[$k
+] unless $values[$k] eq "";
                }
                # increment the row
                $i++
            }
        }
    }

    close FH;
    return $data;
}
[download]